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

[Helmut Eller]

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

Modified Files:
	slime.el 
Log Message:
(slime-close-buffer): New utility function.
(slime-space): Use it to kill superfluous *Completions* buffers.

Date: Tue Apr 20 15:58:41 2004
Author: heller

Index: slime/slime.el
diff -u slime/slime.el:1.264 slime/slime.el:1.265
--- slime/slime.el:1.264	Sat Apr 17 05:34:10 2004
+++ slime/slime.el	Tue Apr 20 15:58:41 2004
@@ -995,6 +995,11 @@
       (prin1 sexp (current-buffer))
       (buffer-string))))
 
+(defun slime-close-buffer (buffer-name)
+  "Kills buffer BUFFER-NAME if it exists."
+  (when (buffer-live-p (get-buffer buffer-name))
+    (kill-buffer buffer-name)))
+
 
 ;;; Inferior CL Setup: compiling and connecting to Swank
 
@@ -2675,8 +2680,7 @@
 ;;;;; Compiler notes list
 
 (defun slime-maybe-show-xrefs-for-notes (&optional notes)
-  "Show the compiler notes NOTES in a xref buffer if they come from
-more than one file."
+  "Show the compiler notes NOTES if they come from more than one file."
   (let* ((notes (or notes (slime-compiler-notes))) 
          (xrefs (slime-xrefs-for-notes notes)))
     (when (> (length xrefs) 1)          ; >1 file
@@ -3224,6 +3228,7 @@
 more than one space."
   (interactive "p")
   (self-insert-command n)
+  (slime-close-buffer "*Completions*")
   (when (and (slime-connected-p)
 	     (or (not (slime-busy-p))
                  ;; XXX should we enable this?