Update all my elpa files

elpa/slime-20180413.1720/contrib/slime-scratch.el

@@ -0,0 +1,48 @@
+;;; slime-scratch.el
+
+(require 'slime)
+(require 'cl-lib)
+
+(define-slime-contrib slime-scratch
+  "Imitate Emacs' *scratch* buffer"
+  (:authors "Helmut Eller  <heller@common-lisp.net>")
+  (:license "GPL")
+  (:on-load
+   (def-slime-selector-method ?s "*slime-scratch* buffer."
+     (slime-scratch-buffer))))
+
+
+;;; Code
+
+(defvar slime-scratch-mode-map
+  (let ((map (make-sparse-keymap)))
+    (set-keymap-parent map lisp-mode-map)
+    map))
+
+(defun slime-scratch ()
+  (interactive)
+  (slime-switch-to-scratch-buffer))
+
+(defun slime-switch-to-scratch-buffer ()
+  (set-buffer (slime-scratch-buffer))
+  (unless (eq (current-buffer) (window-buffer))
+    (pop-to-buffer (current-buffer) t)))
+
+(defvar slime-scratch-file nil)
+
+(defun slime-scratch-buffer ()
+  "Return the scratch buffer, create it if necessary."
+  (or (get-buffer (slime-buffer-name :scratch))
+      (with-current-buffer (if slime-scratch-file
+                               (find-file slime-scratch-file)
+                             (get-buffer-create (slime-buffer-name :scratch)))
+        (rename-buffer (slime-buffer-name :scratch))
+	(lisp-mode)
+	(use-local-map slime-scratch-mode-map)
+	(slime-mode t)
+	(current-buffer))))
+
+(slime-define-keys slime-scratch-mode-map
+  ("\C-j" 'slime-eval-print-last-expression))
+
+(provide 'slime-scratch)