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

[Luke Gorrie]

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

Modified Files:
	slime.el 
Log Message:
(slime-toggle-trace-fdefinition): If there is no symbol at point then
prompt for one.

Date: Thu Mar 10 19:43:59 2005
Author: lgorrie

Index: slime/slime.el
diff -u slime/slime.el:1.466 slime/slime.el:1.467
--- slime/slime.el:1.466	Wed Mar  9 18:57:44 2005
+++ slime/slime.el	Thu Mar 10 19:43:58 2005
@@ -5394,16 +5394,15 @@
   (let ((spec (if using-context-p
                   (slime-extract-context)
                 (slime-symbol-at-point))))
-    (cond ((not spec)
-           (error "No symbol to trace"))
-	  (t
-           (let ((spec (slime-trace-query spec)))
-             (message "%s" (slime-eval `(swank:swank-toggle-trace ,spec))))))))
+    (let ((spec (slime-trace-query spec)))
+      (message "%s" (slime-eval `(swank:swank-toggle-trace ,spec))))))
 
 (defun slime-trace-query (spec)
   "Ask the user which function to trace; SPEC is the default.
 The result is a string."
-  (cond ((symbolp spec)
+  (cond ((null spec)
+         (slime-read-from-minibuffer "(Un)trace: "))
+        ((symbolp spec)
          (slime-read-from-minibuffer "(Un)trace: " (symbol-name spec)))
         (t
          (destructure-case spec