(next-error-internal): New function.

diff --git a/lisp/simple.el b/lisp/simple.el
index 760d8cde744fd66e3fe58b5fd18e3c9104b06b25..96ca1cc7ea1ef163e657b71c0b24e3892885c148 100644 (file)
--- 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)