diff options
| author | Richard M. Stallman | 2006-11-28 02:21:03 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 2006-11-28 02:21:03 +0000 |
| commit | ee4dc5d959abd9c1795d3c01a0a036d057fc5838 (patch) | |
| tree | ff0a8894993fb6155e0e7f9327ecf7e0703127af | |
| parent | b2d239c1ba9d4472868f40bd82a555b9de702f3d (diff) | |
| download | emacs-ee4dc5d959abd9c1795d3c01a0a036d057fc5838.tar.gz emacs-ee4dc5d959abd9c1795d3c01a0a036d057fc5838.zip | |
(next-error-find-buffer): Improve messages.
| -rw-r--r-- | lisp/simple.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/simple.el b/lisp/simple.el index c064bbcdb91..7a278ad3db6 100644 --- a/lisp/simple.el +++ b/lisp/simple.el | |||
| @@ -262,10 +262,10 @@ that buffer is rejected." | |||
| 262 | (next-error-buffer-p (current-buffer) nil | 262 | (next-error-buffer-p (current-buffer) nil |
| 263 | extra-test-inclusive extra-test-exclusive) | 263 | extra-test-inclusive extra-test-exclusive) |
| 264 | (progn | 264 | (progn |
| 265 | (message "This is the only next-error capable buffer") | 265 | (message "This is the only buffer with error message locations") |
| 266 | (current-buffer))) | 266 | (current-buffer))) |
| 267 | ;; 6. Give up. | 267 | ;; 6. Give up. |
| 268 | (error "No next-error capable buffer found"))) | 268 | (error "No buffers contain error message locations"))) |
| 269 | 269 | ||
| 270 | (defun next-error (&optional arg reset) | 270 | (defun next-error (&optional arg reset) |
| 271 | "Visit next `next-error' message and corresponding source code. | 271 | "Visit next `next-error' message and corresponding source code. |