changeset 65782:d88ec92a0f15

(next-error-internal): New function.
author Richard M. Stallman <rms@gnu.org>
date Sun, 02 Oct 2005 03:33:02 +0000
parents d9e5cd5bce05
children a2cbf1cc9c6d
files lisp/simple.el
diffstat 1 files changed, 8 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- 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)