diff options
| author | Richard M. Stallman | 2005-10-02 03:33:02 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 2005-10-02 03:33:02 +0000 |
| commit | 56ab610b006ae0e586ee7750abc174c5ada74348 (patch) | |
| tree | 09450736adecc9033f1f8e0ad33ddb40b0fd3ea9 | |
| parent | 71433d39f54a26dbe9b5ff6c87e66e8cba8b2c10 (diff) | |
| download | emacs-56ab610b006ae0e586ee7750abc174c5ada74348.tar.gz emacs-56ab610b006ae0e586ee7750abc174c5ada74348.zip | |
(next-error-internal): New function.
| -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 | |||
| 261 | (funcall next-error-function (prefix-numeric-value arg) reset) | 261 | (funcall next-error-function (prefix-numeric-value arg) reset) |
| 262 | (run-hooks 'next-error-hook)))) | 262 | (run-hooks 'next-error-hook)))) |
| 263 | 263 | ||
| 264 | (defun next-error-internal () | ||
| 265 | "Visit the source code corresponding to the `next-error' message at point." | ||
| 266 | (setq next-error-last-buffer (current-buffer)) | ||
| 267 | ;; we know here that next-error-function is a valid symbol we can funcall | ||
| 268 | (with-current-buffer next-error-last-buffer | ||
| 269 | (funcall next-error-function 0 nil) | ||
| 270 | (run-hooks 'next-error-hook))) | ||
| 271 | |||
| 264 | (defalias 'goto-next-locus 'next-error) | 272 | (defalias 'goto-next-locus 'next-error) |
| 265 | (defalias 'next-match 'next-error) | 273 | (defalias 'next-match 'next-error) |
| 266 | 274 | ||