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

[Helmut Eller]

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

Modified Files:
	slime.el 
Log Message:
(slime-repl-clear-buffer, slime-repl-clear-output): Fix docstrings.
Date: Thu Dec  2 18:10:44 2004
Author: heller

Index: slime/slime.el
diff -u slime/slime.el:1.433 slime/slime.el:1.434
--- slime/slime.el:1.433	Mon Nov 29 18:31:03 2004
+++ slime/slime.el	Thu Dec  2 18:10:43 2004
@@ -2563,6 +2563,7 @@
                  ;; xemacs stuff
                  start-open t end-open t)
         (insert prompt))
+      ;; FIXME: we could also set beginning-of-defun-function
       (setq defun-prompt-regexp (concat "^" prompt))
       (set-marker slime-output-end start)
       (set-marker slime-repl-prompt-start-mark prompt-start)
@@ -2803,7 +2804,7 @@
     (line-beginning-position)))
 
 (defun slime-repl-clear-buffer ()
-  "Delete all die tage die wir im Umlauf wärhen"
+  "Delete the entire output generated by the Lisp process."
   (interactive)
   (set-marker slime-repl-last-input-start-mark nil)
   (let ((inhibit-read-only t))
@@ -2811,7 +2812,7 @@
     (goto-char slime-repl-input-start-mark)))
 
 (defun slime-repl-clear-output ()
-  "See slime-repl-clear-buffer."
+  "Delete the output inserted since the last input."
   (interactive)
   (let ((start (save-excursion 
                  (slime-repl-previous-prompt)
@@ -5928,7 +5929,7 @@
 (defun sldb-get-buffer (thread)
   (or (sldb-find-buffer thread)
       (let* ((name (slime-connection-name))
-             (buffer-name (format "*sldb [%s/%s]*" name thread))
+             (buffer-name (format "*sldb %s/%s*" name thread))
              (buffer (get-buffer-create buffer-name)))
         (push (cons (cons (slime-connection) thread) buffer)
               sldb-buffers)