[slime-cvs] CVS slime

[heller]

Update of /project/slime/cvsroot/slime
In directory clnet:/tmp/cvs-serv4836

Modified Files:
	slime.el ChangeLog 
Log Message:
Move slime-scratch to contrib.


--- /project/slime/cvsroot/slime/slime.el	2007/08/24 12:49:51	1.806
+++ /project/slime/cvsroot/slime/slime.el	2007/08/24 13:15:44	1.807
@@ -830,7 +830,6 @@
        [ "Eval Last Expression"    slime-eval-last-expression ,C ]
        [ "Eval And Pretty-Print"   slime-pprint-eval-last-expression ,C ]
        [ "Eval Region"             slime-eval-region ,C ]
-       [ "Scratch Buffer"          slime-scratch ,C ]
        [ "Interactive Eval..."     slime-interactive-eval ,C ]
        [ "Edit Lisp Value..."      slime-edit-value ,C ]
        [ "Call Defun"              slime-call-defun ,C ])
@@ -4632,38 +4631,6 @@
       (kill-buffer buf))))
 
 
-;;;; Scratch
-
-(defvar slime-scratch-mode-map
-  (let ((map (make-sparse-keymap)))
-    (set-keymap-parent map lisp-mode-map)
-    map))
-
-(defun slime-scratch-buffer ()
-  "Return the scratch buffer, create it if necessary."
-  (or (get-buffer "*slime-scratch*")
-      (with-current-buffer (get-buffer-create "*slime-scratch*")
-	(lisp-mode)
-	(use-local-map slime-scratch-mode-map)
-	(slime-mode t)
-        (when slime-repl-enable-presentations 
-          ;; Respect the syntax text properties of presentations.
-          (set (make-local-variable 'parse-sexp-lookup-properties) t))
-	(current-buffer))))
-
-(defun slime-switch-to-scratch-buffer ()
-  (set-buffer (slime-scratch-buffer))
-  (unless (eq (current-buffer) (window-buffer))
-    (pop-to-buffer (current-buffer) t)))
-
-(defun slime-scratch ()
-  (interactive)
-  (slime-switch-to-scratch-buffer))
-
-(slime-define-keys slime-scratch-mode-map
-  ("\C-j" 'slime-eval-print-last-expression))
-
-
 ;;;; Compilation and the creation of compiler-note annotations
 
 (defvar slime-before-compile-functions nil
@@ -9193,10 +9160,6 @@
         ((y-or-n-p "No connection: start Slime? ")
          (slime))))
 
-(def-slime-selector-method ?s
-  "*slime-scratch* buffer."
-  (slime-scratch-buffer))
-
 (def-slime-selector-method ?i
   "*inferior-lisp* buffer."
   (cond ((and (slime-connected-p) (slime-process))
--- /project/slime/cvsroot/slime/ChangeLog	2007/08/24 12:49:51	1.1156
+++ /project/slime/cvsroot/slime/ChangeLog	2007/08/24 13:15:45	1.1157
@@ -1,5 +1,11 @@
 2007-08-24  Helmut Eller  <heller at common-lisp.net>
 
+	Move slime-scratch to contrib.
+
+	* slime.el (slime-scratch): Gone.
+
+2007-08-24  Helmut Eller  <heller at common-lisp.net>
+
 	Various cleanups related to slime-insert-propertized.
 
 	* slime.el (slime-with-rigid-indentation): Fix evaluation order.