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

[Helmut Eller]

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

Modified Files:
	slime.el 
Log Message:
(slime-autodoc): Escape %-signs in arglist before passing to format.

(slime-maybe-list-compiler-notes): Display the notes for C-c C-c when
there are notes without a good source-location.

Date: Thu Apr  1 17:20:14 2004
Author: heller

Index: slime/slime.el
diff -u slime/slime.el:1.249 slime/slime.el:1.250
--- slime/slime.el:1.249	Tue Mar 30 18:10:46 2004
+++ slime/slime.el	Thu Apr  1 17:20:14 2004
@@ -2620,7 +2620,10 @@
   "Show the compiler notes if appropriate.
 Useful value for `slime-compilation-finished-hook'"
   (unless (or (null notes)
-	      (eq last-command 'slime-compile-defun))
+	      (and (eq last-command 'slime-compile-defun)
+                   (not (find ':error notes 
+                              :key (lambda (x) 
+                                     (car (slime-note.location x)))))))
     (slime-list-compiler-notes notes)))
 
 (defun slime-list-compiler-notes (&optional notes)
@@ -3215,7 +3218,7 @@
     (let ((name (symbol-name sym))
           (cache-key (slime-qualify-cl-symbol-name sym)))
       (or (when-let (documentation (slime-get-cached-autodoc cache-key))
-            (slime-background-message documentation)
+            (slime-background-message "%s" documentation)
             t)
           ;; Asynchronously fetch, cache, and display arglist
           (slime-eval-async
@@ -3227,7 +3230,7 @@
                (if (string-match "<not available>" arglist)
                    (setq arglist ""))
                (slime-update-autodoc-cache cache-key arglist)
-               (slime-background-message arglist))))))))
+               (slime-background-message "%s" arglist))))))))
 
 (defun slime-get-cached-autodoc (symbol-name)
   "Return the cached autodoc documentation for SYMBOL-NAME, or nil."