[slime-cvs] CVS slime

[CVS User trittweiler]

Update of /project/slime/cvsroot/slime
In directory cl-net:/tmp/cvs-serv26355

Modified Files:
	ChangeLog slime.el 
Log Message:
	* slime.el (slime-define-channel-type): Indulge in pretty colors.
	(slime-define-channel-method): You, too!

	(slime-handle-indentation-update): Always put an indentation
	update on 'slime-indent; for slime-indentation-fu.


--- /project/slime/cvsroot/slime/ChangeLog	2009/03/09 11:52:37	1.1716
+++ /project/slime/cvsroot/slime/ChangeLog	2009/03/09 22:51:24	1.1717
@@ -1,3 +1,11 @@
+2009-03-09  Tobias C. Rittweiler  <tcr at freebits.de>
+
+	* slime.el (slime-define-channel-type): Indulge in pretty colors.
+	(slime-define-channel-method): You, too!
+
+	(slime-handle-indentation-update): Always put an indentation
+	update on 'slime-indent; for slime-indentation-fu.
+
 2009-03-09  Anton Vodonosov <avodonosov at yandex.ru>
 
 	Use correct encoding and eol conventions for socket streams.
@@ -28,7 +36,7 @@
 
 2009-03-08  Tobias C. Rittweiler  <tcr at freebits.de>
 
-	* slime.el (slime-choose-overlay-for-read-error): Extraced and
+	* slime.el (slime-choose-overlay-for-read-error): Extracted and
 	extended from `slime-choose-overlay-region'. Differentiate between
 	symbol-related reader-errors (package not found &c) and
 	character-related reader-errors.
--- /project/slime/cvsroot/slime/slime.el	2009/03/09 11:55:21	1.1147
+++ /project/slime/cvsroot/slime/slime.el	2009/03/09 22:51:24	1.1148
@@ -2471,12 +2471,16 @@
        (defvar ,tab)
        (setq ,tab (make-hash-table :size 10)))))
 
+(put 'slime-indulge-pretty-colors 'slime-define-channel-type t)
+
 (defmacro slime-define-channel-method (type method args &rest body)
   `(puthash ',method
             (lambda (self . ,args) . ,body)
             ,(slime-channel-method-table-name type)))
 
 (put 'slime-define-channel-method 'lisp-indent-function 3)
+(put 'slime-indulge-pretty-colors 'slime-define-channel-method t)
+
 
 (defun slime-send-to-remote-channel (channel-id msg)
   (slime-dispatch-event `(:emacs-channel-send ,channel-id ,msg)))
@@ -6735,10 +6739,10 @@
   (dolist (info alist)
     (let ((symbol (intern (car info)))
           (indent (cdr info)))
+      (put symbol 'slime-indent indent)
       ;; Does the symbol have an indentation value that we set?
       (when (equal (get symbol 'common-lisp-indent-function)
                    (get symbol 'slime-indent))
-        (put symbol 'slime-indent indent)
         (put symbol 'common-lisp-indent-function indent))
       (run-hook-with-args 'slime-indentation-update-hooks symbol indent))))