[slime-cvs] CVS slime

[trittweiler]

Update of /project/slime/cvsroot/slime
In directory clnet:/tmp/cvs-serv18385

Modified Files:
	slime.el 
Log Message:

* slime.el (slime-edit-definition): The `slime-edit-definition-hooks'
  are now invoked with the same args as `slime-edit-definition'.


--- /project/slime/cvsroot/slime/slime.el	2008/03/27 11:46:50	1.935
+++ /project/slime/cvsroot/slime/slime.el	2008/04/06 09:58:17	1.936
@@ -5045,6 +5045,11 @@
 (defun slime-xref-has-location-p (xref)
   (slime-location-p (slime-xref.location xref)))
 
+
+;;; The hooks are tried in order until one succeeds, otherwise the
+;;; default implementation involving `slime-find-definitions-function'
+;;; is used. The hooks are called with the same arguments as
+;;; `slime-edit-definition'.
 (defvar slime-edit-definition-hooks)
 
 (defun slime-edit-definition (name &optional where)
@@ -5052,7 +5057,7 @@
 If there's no name at point, or a prefix argument is given, then the
 function name is prompted."
   (interactive (list (slime-read-symbol-name "Name: ")))
-  (or (run-hook-with-args-until-success 'slime-edit-definition-hooks (point))
+  (or (run-hook-with-args-until-success 'slime-edit-definition-hooks name where)
       (slime-edit-definition-cont (slime-find-definitions name)
                                   name where)))