261 |
(funcall next-error-function (prefix-numeric-value arg) reset) |
(funcall next-error-function (prefix-numeric-value arg) reset) |
262 |
(run-hooks 'next-error-hook)))) |
(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))) |
271 |
|
|
272 |
(defalias 'goto-next-locus 'next-error) |
(defalias 'goto-next-locus 'next-error) |
273 |
(defalias 'next-match 'next-error) |
(defalias 'next-match 'next-error) |
274 |
|
|