Commit ca449fb1 authored by Stephen Leake's avatar Stephen Leake

Rename new user variable `next-error-verbosity' to `next-error-verbose'

* etc/NEWS: Update entry to match renaming.

* lisp/simple.el (next-error-verbose): Rename.
(next-error, next-error-internal): Match rename.
parent 7ba7def5
...@@ -309,7 +309,7 @@ and directory-local variables. ...@@ -309,7 +309,7 @@ and directory-local variables.
longer. longer.
--- ---
** next-error-verbosity controls when `next-error' outputs a message ** next-error-verbose controls when `next-error' outputs a message
about the error locus. about the error locus.
......
...@@ -110,9 +110,9 @@ If non-nil, the value is passed directly to `recenter'." ...@@ -110,9 +110,9 @@ If non-nil, the value is passed directly to `recenter'."
:type 'hook :type 'hook
:group 'next-error) :group 'next-error)
(defcustom next-error-verbosity nil (defcustom next-error-verbose t
"If nil, `next-error' always outputs the current error buffer. "If non-nil, `next-error' always outputs the current error buffer.
If non-nil, the message is output only when the error buffer If nil, the message is output only when the error buffer
changes." changes."
:group 'next-error :group 'next-error
:type 'boolean :type 'boolean
...@@ -323,7 +323,7 @@ To control which errors are matched, customize the variable ...@@ -323,7 +323,7 @@ To control which errors are matched, customize the variable
(funcall next-error-function (prefix-numeric-value arg) reset) (funcall next-error-function (prefix-numeric-value arg) reset)
(let ((prev next-error-last-buffer)) (let ((prev next-error-last-buffer))
(next-error-found buffer (current-buffer)) (next-error-found buffer (current-buffer))
(when (or (not next-error-verbosity) (when (or next-error-verbose
(not (eq prev next-error-last-buffer))) (not (eq prev next-error-last-buffer)))
(message "%s locus from %s" (message "%s locus from %s"
(cond (reset "First") (cond (reset "First")
...@@ -339,7 +339,7 @@ To control which errors are matched, customize the variable ...@@ -339,7 +339,7 @@ To control which errors are matched, customize the variable
(funcall next-error-function 0 nil) (funcall next-error-function 0 nil)
(let ((prev next-error-last-buffer)) (let ((prev next-error-last-buffer))
(next-error-found buffer (current-buffer)) (next-error-found buffer (current-buffer))
(when (or (not next-error-verbosity) (when (or next-error-verbose
(not (eq prev next-error-last-buffer))) (not (eq prev next-error-last-buffer)))
(message "Current locus from %s" next-error-last-buffer))))) (message "Current locus from %s" next-error-last-buffer)))))
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment