[Emacs-diffs] Changes to emacs/lisp/simple.el

[Richard M . Stallman]

Index: emacs/lisp/simple.el
diff -c emacs/lisp/simple.el:1.752 emacs/lisp/simple.el:1.753
*** emacs/lisp/simple.el:1.752  Mon Sep 26 00:03:43 2005
--- emacs/lisp/simple.el        Sun Oct  2 03:33:02 2005
***************
*** 261,266 ****
--- 261,274 ----
        (funcall next-error-function (prefix-numeric-value arg) reset)
        (run-hooks 'next-error-hook))))
  
+ (defun next-error-internal ()
+   "Visit the source code corresponding to the `next-error' message at point."
+   (setq next-error-last-buffer (current-buffer))
+   ;; we know here that next-error-function is a valid symbol we can funcall
+   (with-current-buffer next-error-last-buffer
+     (funcall next-error-function 0 nil)
+     (run-hooks 'next-error-hook)))
+ 
  (defalias 'goto-next-locus 'next-error)
  (defalias 'next-match 'next-error)