/[emacs]/emacs/lisp/simple.el
ViewVC logotype

Diff of /emacs/lisp/simple.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.752 by rms, Mon Sep 26 00:03:43 2005 UTC revision 1.753 by rms, Sun Oct 2 03:33:02 2005 UTC
# Line 261  See variables `compilation-parse-errors- Line 261  See variables `compilation-parse-errors-
261        (funcall next-error-function (prefix-numeric-value arg) reset)        (funcall next-error-function (prefix-numeric-value arg) reset)
262        (run-hooks 'next-error-hook))))        (run-hooks 'next-error-hook))))
263    
264    (defun next-error-internal ()
265      "Visit the source code corresponding to the `next-error' message at point."
266      (setq next-error-last-buffer (current-buffer))
267      ;; we know here that next-error-function is a valid symbol we can funcall
268      (with-current-buffer next-error-last-buffer
269        (funcall next-error-function 0 nil)
270        (run-hooks 'next-error-hook)))
271    
272  (defalias 'goto-next-locus 'next-error)  (defalias 'goto-next-locus 'next-error)
273  (defalias 'next-match 'next-error)  (defalias 'next-match 'next-error)
274    

Legend:
Removed from v.1.752  
changed lines
  Added in v.1.753

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26