[slime-cvs] CVS slime

[trittweiler]

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

Modified Files:
	slime.el 
Log Message:

* slime.el (slime-edit-definition-hooks): This variable can be
  used to hook into the M-. machinery.
  (slime-edit-definition): Run above hooks until one succeeds. By
  default, try to find a definition for the symbol at point.


--- /project/slime/cvsroot/slime/slime.el	2008/02/28 19:45:32	1.914
+++ /project/slime/cvsroot/slime/slime.el	2008/03/02 15:10:18	1.915
@@ -5139,14 +5139,17 @@
 (defun slime-xref-has-location-p (xref)
   (slime-location-p (slime-xref.location xref)))
 
+(defvar slime-edit-definition-hooks)
+
 (defun slime-edit-definition (name &optional where)
   "Lookup the definition of the name at point.  
 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: ")))
-  (slime-find-definitions name
-                          (slime-rcurry
-                           #'slime-edit-definition-cont name where)))
+  (or (run-hook-with-args-until-success 'slime-edit-definition-hooks (point))
+      (slime-find-definitions name
+                              (slime-rcurry
+                               #'slime-edit-definition-cont name where))))
 
 (defun slime-edit-definition-cont (xrefs name where)
   (destructuring-bind (1loc file-alist) (slime-analyze-xrefs xrefs)