diff lisp/simple.el @ 65782:d88ec92a0f15

(next-error-internal): New function.

--- 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)