diff options
| author | Richard M. Stallman <rms@gnu.org> | 2005-10-02 03:33:02 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 2005-10-02 03:33:02 +0000 |
| commit | 56ab610b006ae0e586ee7750abc174c5ada74348 (patch) | |
| tree | 09450736adecc9033f1f8e0ad33ddb40b0fd3ea9 /lisp/simple.el | |
| parent | 71433d39f54a26dbe9b5ff6c87e66e8cba8b2c10 (diff) | |
| download | emacs-56ab610b006ae0e586ee7750abc174c5ada74348.tar.gz | |
(next-error-internal): New function.
Diffstat (limited to 'lisp/simple.el')
| -rw-r--r-- | lisp/simple.el | 8 |
1 files changed, 8 insertions, 0 deletions
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) |