diff options
| -rw-r--r-- | etc/NEWS | 2 | ||||
| -rw-r--r-- | lisp/simple.el | 10 |
2 files changed, 6 insertions, 6 deletions
| @@ -309,7 +309,7 @@ and directory-local variables. | |||
| 309 | longer. | 309 | longer. |
| 310 | 310 | ||
| 311 | --- | 311 | --- |
| 312 | ** next-error-verbosity controls when `next-error' outputs a message | 312 | ** next-error-verbose controls when `next-error' outputs a message |
| 313 | about the error locus. | 313 | about the error locus. |
| 314 | 314 | ||
| 315 | 315 | ||
diff --git a/lisp/simple.el b/lisp/simple.el index 37f92540dde..fb667350dcf 100644 --- a/lisp/simple.el +++ b/lisp/simple.el | |||
| @@ -110,9 +110,9 @@ If non-nil, the value is passed directly to `recenter'." | |||
| 110 | :type 'hook | 110 | :type 'hook |
| 111 | :group 'next-error) | 111 | :group 'next-error) |
| 112 | 112 | ||
| 113 | (defcustom next-error-verbosity nil | 113 | (defcustom next-error-verbose t |
| 114 | "If nil, `next-error' always outputs the current error buffer. | 114 | "If non-nil, `next-error' always outputs the current error buffer. |
| 115 | If non-nil, the message is output only when the error buffer | 115 | If nil, the message is output only when the error buffer |
| 116 | changes." | 116 | changes." |
| 117 | :group 'next-error | 117 | :group 'next-error |
| 118 | :type 'boolean | 118 | :type 'boolean |
| @@ -323,7 +323,7 @@ To control which errors are matched, customize the variable | |||
| 323 | (funcall next-error-function (prefix-numeric-value arg) reset) | 323 | (funcall next-error-function (prefix-numeric-value arg) reset) |
| 324 | (let ((prev next-error-last-buffer)) | 324 | (let ((prev next-error-last-buffer)) |
| 325 | (next-error-found buffer (current-buffer)) | 325 | (next-error-found buffer (current-buffer)) |
| 326 | (when (or (not next-error-verbosity) | 326 | (when (or next-error-verbose |
| 327 | (not (eq prev next-error-last-buffer))) | 327 | (not (eq prev next-error-last-buffer))) |
| 328 | (message "%s locus from %s" | 328 | (message "%s locus from %s" |
| 329 | (cond (reset "First") | 329 | (cond (reset "First") |
| @@ -339,7 +339,7 @@ To control which errors are matched, customize the variable | |||
| 339 | (funcall next-error-function 0 nil) | 339 | (funcall next-error-function 0 nil) |
| 340 | (let ((prev next-error-last-buffer)) | 340 | (let ((prev next-error-last-buffer)) |
| 341 | (next-error-found buffer (current-buffer)) | 341 | (next-error-found buffer (current-buffer)) |
| 342 | (when (or (not next-error-verbosity) | 342 | (when (or next-error-verbose |
| 343 | (not (eq prev next-error-last-buffer))) | 343 | (not (eq prev next-error-last-buffer))) |
| 344 | (message "Current locus from %s" next-error-last-buffer))))) | 344 | (message "Current locus from %s" next-error-last-buffer))))) |
| 345 | 345 | ||