[slime-cvs] CVS slime

[CVS User heller]

Update of /project/slime/cvsroot/slime
In directory tiger.common-lisp.net:/tmp/cvs-serv1163

Modified Files:
	ChangeLog slime.el 
Log Message:
* slime.el (slime-update-system-indentation): Moved to
contrib/slime-indentation.el.

--- /project/slime/cvsroot/slime/ChangeLog	2011/12/07 18:02:03	1.2274
+++ /project/slime/cvsroot/slime/ChangeLog	2011/12/07 18:02:16	1.2275
@@ -1,5 +1,10 @@
 2011-12-07  Helmut Eller  <heller at common-lisp.net>
 
+	* slime.el (slime-update-system-indentation): Move to
+	contrib/slime-indentation.el.
+
+2011-12-07  Helmut Eller  <heller at common-lisp.net>
+
 	* slime.el (slime-batch-test): Forgot to rename slime-run-one-test
 	to slime-run-test here.
 	(slime-net-connect): Remove coding-system argument.
--- /project/slime/cvsroot/slime/slime.el	2011/12/07 18:02:03	1.1386
+++ /project/slime/cvsroot/slime/slime.el	2011/12/07 18:02:16	1.1387
@@ -2323,7 +2323,8 @@
           ((:emacs-channel-send id msg)
            (slime-send `(:emacs-channel-send ,id ,msg)))
           ((:read-from-minibuffer thread tag prompt initial-value)
-           (slime-read-from-minibuffer-for-swank thread tag prompt initial-value))
+           (slime-read-from-minibuffer-for-swank thread tag prompt 
+                                                 initial-value))
           ((:y-or-n-p thread tag question)
            (slime-y-or-n-p thread tag question))
           ((:emacs-return-string thread tag string)
@@ -6973,26 +6974,9 @@
         (t
          spec)))
 
-(defun slime-update-system-indentation (symbol indent packages)
-  (let ((list (gethash symbol common-lisp-system-indentation))
-        (ok nil))
-    (if (not list)
-        (puthash symbol (list (cons indent packages))
-                 common-lisp-system-indentation)
-      (dolist (spec list)
-        (cond ((equal (car spec) indent)
-               (dolist (p packages)
-                 (unless (member p (cdr spec))
-                   (push p (cdr spec))))
-               (setf ok t))
-              (t
-               (setf (cdr spec)
-                     (set-difference (cdr spec) packages :test 'equal)))))
-      (unless ok
-        (puthash symbol (cons (cons indent packages)
-                              list)
-                 common-lisp-system-indentation)))))
-
+;; FIXME: restore the old version without per-package
+;; stuff. slime-indentation.el should be able tho disable the simple
+;; version if needed.
 (defun slime-handle-indentation-update (alist)
   "Update Lisp indent information.