[slime-cvs] CVS slime
heller
heller at common-lisp.net
Wed Nov 22 15:29:39 UTC 2006
Update of /project/slime/cvsroot/slime
In directory clnet:/tmp/cvs-serv7874
Modified Files:
slime.el
Log Message:
(slime-edit-definition): Don't hide error messages.
--- /project/slime/cvsroot/slime/slime.el 2006/11/19 21:26:36 1.689
+++ /project/slime/cvsroot/slime/slime.el 2006/11/22 15:29:37 1.690
@@ -6683,10 +6683,7 @@
(interactive (list (slime-read-symbol-name "Name: ")))
(let ((definitions (slime-eval `(swank:find-definitions-for-emacs ,name))))
(cond
- ((or (null definitions)
- (every (lambda (definition)
- (eq :error (caadr definition)))
- definitions))
+ ((null definitions)
(if slime-edit-definition-fallback-function
(funcall slime-edit-definition-fallback-function name)
(error "No known definition for: %s" name)))
More information about the slime-cvs
mailing list