# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1128223982 0
# Node ID d88ec92a0f15e12534c818695188e5efbb759547
# Parent  d9e5cd5bce05a8abde2d3a6084a95b8779067caf
(next-error-internal): New function.

diff -r d9e5cd5bce05 -r d88ec92a0f15 lisp/simple.el
--- a/lisp/simple.el	Sun Oct 02 03:28:56 2005 +0000
+++ b/lisp/simple.el	Sun Oct 02 03:33:02 2005 +0000
@@ -261,6 +261,14 @@
       (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)