From: Richard M. Stallman <rms@gnu.org>
Date: Sun, 2 Oct 2005 03:33:02 +0000 (+0000)
Subject: (next-error-internal): New function.
X-Git-Tag: emacs-pretest-22.0.90~6867
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=56ab610b006ae0e586ee7750abc174c5ada74348;p=emacs.git

(next-error-internal): New function.
---

diff --git a/lisp/simple.el b/lisp/simple.el
index 760d8cde744..96ca1cc7ea1 100644
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -261,6 +261,14 @@ See variables `compilation-parse-errors-function' and
       (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)