[slime-cvs] CVS update: slime/slime.el

[Helmut Eller]

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

Modified Files:
	slime.el 
Log Message:
(slime-repl-insert-result): Add slime-repl-result-face face.
(slime-repl-update-banner): Avoid insert extra newlines.

Date: Tue Sep 13 02:11:59 2005
Author: heller

Index: slime/slime.el
diff -u slime/slime.el:1.541 slime/slime.el:1.542
--- slime/slime.el:1.541	Tue Sep 13 00:57:00 2005
+++ slime/slime.el	Tue Sep 13 02:11:56 2005
@@ -2481,8 +2481,8 @@
       (animate-string (format "; SLIME %s" (or (slime-changelog-date) 
                                                "- ChangeLog file not found"))
                       0 0))
-    (slime-repl-insert-prompt 
-     `(:values (,(if use-header-p "" (concat "; " banner)))))))
+    (slime-repl-insert-prompt (cond (use-header-p `(:suppress-output))
+                                    (t `(:values (,(concat "; " banner))))))))
 
 (defun slime-changelog-date ()
   "Return the datestring of the latest entry in the ChangeLog file.
@@ -3113,7 +3113,8 @@
     ((:values strings)
      (cond ((null strings) (insert "; No value\n"))
            (t (dolist (s strings)
-                (insert s "\n")))))
+                (slime-insert-propertized `(face slime-repl-result-face) s)
+                (insert "\n")))))
     ((:present stuff)
      (cond ((and stuff slime-repl-enable-presentations)
             (loop for (s . id) in stuff do