Patch: ilisp-src.el
Eduardo Muñoz <[email protected]>
| Newsgroups | gmane.lisp.ilisp.devel |
|---|---|
| Organization | :noitazinagrO |
| Message-ID | <[email protected]> |
The function 'lisp-locate-definition-in-file' moves the point to the beginning of the buffer if the file where it is trying to find the definition is the current buffer. The following patch fixes it. -- Eduardo Muñoz | (prog () 10 (print "Hello world!") http://213.97.131.125/ | 20 (go 10))
ilisp-src.el.diff
(text/x-patch, 918 B)
Index: ilisp-src.el
===================================================================
RCS file: /cvsroot/ilisp/ILISP/ilisp-src.el,v
retrieving revision 1.9
diff -u -r1.9 ilisp-src.el
--- ilisp-src.el 9 May 2003 14:45:25 -0000 1.9
+++ ilisp-src.el 10 May 2003 15:27:09 -0000
@@ -616,8 +616,7 @@
(old-buffer (current-buffer))
;; go to the right place in the file buffer (if we can).
(result (lisp-set-up-for-search-in-new-file
- (ilisp-defn-spec-file defn-spec)))
- (first-point (point)))
+ (ilisp-defn-spec-file defn-spec))))
(cond ((null result)
nil)
((progn
@@ -646,7 +645,7 @@
;; not found in this buffer. restore point in searched buffer,
;; before returning to the old buffer. [shouldn't this be in an
;; unwind-protect cleanup? -- rgr, 4-Oct-02.]
- (goto-char first-point)
+ (goto-char lisp-last-point)
(set-buffer old-buffer)
nil))))