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

[Helmut Eller]

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

Modified Files:
	slime.el 
Log Message:
Modification for the new source-location stuff. I'm sure OpenMCL is
now pretty broken.
Date: Wed Nov 12 19:36:30 2003
Author: heller

Index: slime/slime.el
diff -u slime/slime.el:1.88 slime/slime.el:1.89
--- slime/slime.el:1.88	Wed Nov 12 19:10:30 2003
+++ slime/slime.el	Wed Nov 12 19:36:29 2003
@@ -1878,7 +1878,8 @@
      (beginning-of-defun))
     ((:error message)
      (error "Cannot locate source: %s" message))
-    ((:openmcl &key function-name)
+    ((:openmcl filename function-name)
+     (set-buffer (find-file-noselect filename t))
      (ignore-errors
        (goto-char (point-min))
        (re-search-forward (format "^(def\\w+\\s +%s\\s +" function-name)