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

[Helmut Eller]

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

Modified Files:
	slime.el 
Log Message:
(sldb-get-buffer): Create a fresh buffer if there's no buffer for the
connection (and don't reuse an existing buffer even if it has a
matching name).

(slime-buffer-visible-p, slime-ir1-expand): Delete unused functions.
Mark some others as unused, but leave them there because they are
potentially useful.

Date: Sat Apr  9 09:05:56 2005
Author: heller

Index: slime/slime.el
diff -u slime/slime.el:1.481 slime/slime.el:1.482
--- slime/slime.el:1.481	Thu Apr  7 12:00:12 2005
+++ slime/slime.el	Sat Apr  9 09:05:54 2005
@@ -2676,10 +2676,6 @@
           (goto-char (point-max))
           (recenter -1))))))
 
-(defun slime-buffer-visible-p (&optional buffer)
-  (if (get-buffer-window (or buffer (current-buffer)))
-      t))
-
 (defun slime-repl-current-input ()
   "Return the current input as string.  The input is the region from
 after the last prompt to the end of buffer."
@@ -3606,6 +3602,7 @@
       (setf (getf new-note :references) new-references)
       new-note)))
 
+;; XXX: unused function
 (defun slime-intersperse (element list)
   "Intersperse ELEMENT between each element of LIST."
   (if (null list) 
@@ -3987,6 +3984,7 @@
         sev1
       sev2)))
 
+;; XXX: unused function
 (defun slime-visit-source-path (source-path)
   "Visit a full source path including the top-level form."
   (goto-char (point-min))
@@ -6140,11 +6138,6 @@
   (interactive)
   (slime-eval-macroexpand 'swank:swank-macroexpand-all))
 
-(defun slime-ir1-expand ()
-  "Display the ir1 form of the sexp at point."
-  (interactive)
-  (slime-eval-macroexpand 'swank:print-ir1-converted-blocks))
-
 
 ;;;; Subprocess control
 
@@ -6414,7 +6407,7 @@
   (let ((connection (or connection (slime-connection))))
     (or (sldb-find-buffer thread connection)
         (let ((name (format "*sldb %s/%s*" (slime-connection-name) thread)))
-          (with-current-buffer (get-buffer-create name)
+          (with-current-buffer (generate-new-buffer name)
             (setq slime-buffer-connection connection 
                   slime-current-thread thread)
             (current-buffer))))))
@@ -7141,6 +7134,7 @@
                   (rassoc name slime-registered-lisp-implementations))))
     (if cons (cdr cons) name)))
 
+;; XXX: unused function
 (defun slime-find-lisp-implementation-name (command)
   (cdr (rassoc command slime-registered-lisp-implementations)))
 
@@ -8117,6 +8111,7 @@
 (defun slime-sync-to-top-level (timeout)
   (slime-wait-condition "top-level" #'slime-at-top-level-p timeout))
 
+;; XXX: unused function
 (defun slime-check-sldb-level (expected)
   (let ((sldb-level (when-let (sldb (sldb-get-default-buffer))
                       (with-current-buffer sldb
@@ -8556,6 +8551,7 @@
 	(match-string 1 n)
       default)))
 
+;; XXX: unused function
 (defun slime-cl-symbol-external-ref-p (symbol)
   "Does SYMBOL refer to an external symbol?
 FOO:BAR is an external reference.
@@ -8564,6 +8560,7 @@
     (and (string-match ":" name)
          (not (string-match "::" name)))))
 
+;; XXX: unused function
 (defun slime-qualify-cl-symbol (symbol-or-name)
   "Like `slime-qualify-cl-symbol-name', but interns the result."
   (intern (slime-qualify-cl-symbol-name symbol-or-name)))