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

[Luke Gorrie]

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

Modified Files:
	slime.el 
Log Message:
Backed out the previous change (below). Has bugs and needs more
thinking.

Date: Wed Jun 30 06:26:21 2004
Author: lgorrie

Index: slime/slime.el
diff -u slime/slime.el:1.347 slime/slime.el:1.348
--- slime/slime.el:1.347	Wed Jun 30 00:24:20 2004
+++ slime/slime.el	Wed Jun 30 06:26:21 2004
@@ -1256,9 +1256,6 @@
     (string-match "^[^ ]*" name)
     (capitalize (match-string 0 name))))
 
-(slime-def-connection-var slime-debug-level 0
-  "The current level of recursive debugging.")
-
 
 (defvar slime-words-of-encouragement
   `("Let the hacking commence!"
@@ -1605,11 +1602,9 @@
        (sldb-activate thread level))
       ((:debug thread level condition restarts frames)
        (assert thread)
-       (setf (slime-debug-level) level)
        (sldb-setup thread level condition restarts frames))
       ((:debug-return thread level)
        (assert thread)
-       (setf (slime-debug-level) (1- level))
        (sldb-exit thread level))
       ((:emacs-interrupt thread)
        (cond ((slime-use-sigint-for-interrupt) (slime-send-sigint))
@@ -2173,9 +2168,7 @@
     (slime-insert-propertized '(face slime-repl-result-face) result)
     (unless (bolp) (insert "\n"))
     (let ((prompt-start (point))
-          (prompt (if (> (slime-debug-level) 0)
-                      (format "%s [%d]> " (slime-lisp-package) (slime-debug-level))
-                      (format "%s> "  (slime-lisp-package)))))
+          (prompt (format "%s> "  (slime-lisp-package))))
       (slime-propertize-region
           '(face slime-repl-prompt-face
                  read-only t