Mercurial > emacs
comparison lisp/simple.el @ 65782:d88ec92a0f15
(next-error-internal): New function.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sun, 02 Oct 2005 03:33:02 +0000 |
| parents | c2427cf9fc77 |
| children | 8b246680b846 2a679c81f552 |
comparison
equal
deleted
inserted
replaced
| 65781:d9e5cd5bce05 | 65782:d88ec92a0f15 |
|---|---|
| 258 (when (setq next-error-last-buffer (next-error-find-buffer)) | 258 (when (setq next-error-last-buffer (next-error-find-buffer)) |
| 259 ;; we know here that next-error-function is a valid symbol we can funcall | 259 ;; we know here that next-error-function is a valid symbol we can funcall |
| 260 (with-current-buffer next-error-last-buffer | 260 (with-current-buffer next-error-last-buffer |
| 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 | |
| 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))) | |
| 263 | 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 |
| 267 (defun previous-error (&optional n) | 275 (defun previous-error (&optional n) |