* bug#52518: Log only vc-command-messages
@ 2021-12-15 17:31 Juri Linkov
2021-12-15 22:02 ` Stefan Kangas
0 siblings, 1 reply; 5+ messages in thread
From: Juri Linkov @ 2021-12-15 17:31 UTC (permalink / raw)
To: 52518
[-- Attachment #1: Type: text/plain, Size: 381 bytes --]
Tags: patch
It's useful to customize vc-command-messages to t
to be able to inspect the performed vc commands
in the *Messages* buffer. When something goes wrong,
it's clearly visible what command caused the problem.
But displaying such all vc commands in the echo area
causes too much noise. Here is an option to not
display such messages, only log in the *Messages* buffer:
[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: vc-command-messages-log.patch --]
[-- Type: text/x-diff, Size: 2685 bytes --]
diff --git a/lisp/vc/vc-dispatcher.el b/lisp/vc/vc-dispatcher.el
index 346974bdba..894ca060eb 100644
--- a/lisp/vc/vc-dispatcher.el
+++ b/lisp/vc/vc-dispatcher.el
@@ -127,8 +127,12 @@ vc-delete-logbuf-window
:group 'vc)
(defcustom vc-command-messages nil
- "If non-nil, display run messages from back-end commands."
- :type 'boolean
+ "If non-nil, log run messages from back-end commands.
+If `log', messages are logged to the *Messages* buffer, but not displayed.
+Other non-nil values also display run messages in the echo area."
+ :type '(choice (const :tag "No display and no log" nil)
+ (const :tag "Display and log messages" t)
+ (const :tag "Only log messages without displaying" log))
:group 'vc)
(defcustom vc-suppress-confirm nil
@@ -335,7 +339,9 @@ vc-do-command
(apply #'start-file-process command (current-buffer)
command squeezed))))
(when vc-command-messages
- (let ((inhibit-message (eq (selected-window) (active-minibuffer-window))))
+ (let ((inhibit-message
+ (or (eq vc-command-messages 'log)
+ (eq (selected-window) (active-minibuffer-window)))))
(message "Running in background: %s" full-command)))
;; Get rid of the default message insertion, in case we don't
;; set a sentinel explicitly.
@@ -345,11 +351,15 @@ vc-do-command
(when vc-command-messages
(vc-run-delayed
(let ((message-truncate-lines t)
- (inhibit-message (eq (selected-window) (active-minibuffer-window))))
+ (inhibit-message
+ (or (eq vc-command-messages 'log)
+ (eq (selected-window) (active-minibuffer-window)))))
(message "Done in background: %s" full-command)))))
;; Run synchronously
(when vc-command-messages
- (let ((inhibit-message (eq (selected-window) (active-minibuffer-window))))
+ (let ((inhibit-message
+ (or (eq vc-command-messages 'log)
+ (eq (selected-window) (active-minibuffer-window)))))
(message "Running in foreground: %s" full-command)))
(let ((buffer-undo-list t))
(setq status (apply #'process-file command nil t nil squeezed)))
@@ -364,7 +374,9 @@ vc-do-command
(if (integerp status) (format "status %d" status) status)
full-command))
(when vc-command-messages
- (let ((inhibit-message (eq (selected-window) (active-minibuffer-window))))
+ (let ((inhibit-message
+ (or (eq vc-command-messages 'log)
+ (eq (selected-window) (active-minibuffer-window)))))
(message "Done (status=%d): %s" status full-command)))))
(vc-run-delayed
(run-hook-with-args 'vc-post-command-functions
^ permalink raw reply related [flat|nested] 5+ messages in thread
* bug#52518: Log only vc-command-messages
2021-12-15 17:31 bug#52518: Log only vc-command-messages Juri Linkov
@ 2021-12-15 22:02 ` Stefan Kangas
2021-12-16 17:15 ` Juri Linkov
0 siblings, 1 reply; 5+ messages in thread
From: Stefan Kangas @ 2021-12-15 22:02 UTC (permalink / raw)
To: Juri Linkov; +Cc: 52518
Juri Linkov <juri@linkov.net> writes:
> It's useful to customize vc-command-messages to t
> to be able to inspect the performed vc commands
> in the *Messages* buffer. When something goes wrong,
> it's clearly visible what command caused the problem.
>
> But displaying such all vc commands in the echo area
> causes too much noise. Here is an option to not
> display such messages, only log in the *Messages* buffer:
Good idea.
> (when vc-command-messages
> - (let ((inhibit-message (eq (selected-window) (active-minibuffer-window))))
> + (let ((inhibit-message
> + (or (eq vc-command-messages 'log)
> + (eq (selected-window) (active-minibuffer-window)))))
> (message "Running in background: %s" full-command)))
> ;; Get rid of the default message insertion, in case we don't
> ;; set a sentinel explicitly.
> @@ -345,11 +351,15 @@ vc-do-command
> (when vc-command-messages
> (vc-run-delayed
> (let ((message-truncate-lines t)
> - (inhibit-message (eq (selected-window) (active-minibuffer-window))))
> + (inhibit-message
> + (or (eq vc-command-messages 'log)
> + (eq (selected-window) (active-minibuffer-window)))))
> (message "Done in background: %s" full-command)))))
> ;; Run synchronously
> (when vc-command-messages
> - (let ((inhibit-message (eq (selected-window) (active-minibuffer-window))))
> + (let ((inhibit-message
> + (or (eq vc-command-messages 'log)
> + (eq (selected-window) (active-minibuffer-window)))))
> (message "Running in foreground: %s" full-command)))
> (let ((buffer-undo-list t))
> (setq status (apply #'process-file command nil t nil squeezed)))
> @@ -364,7 +374,9 @@ vc-do-command
> (if (integerp status) (format "status %d" status) status)
> full-command))
> (when vc-command-messages
> - (let ((inhibit-message (eq (selected-window) (active-minibuffer-window))))
> + (let ((inhibit-message
> + (or (eq vc-command-messages 'log)
> + (eq (selected-window) (active-minibuffer-window)))))
Should these be refactored into a function of their own? It seems
a tad repetitive as is.
^ permalink raw reply [flat|nested] 5+ messages in thread
* bug#52518: Log only vc-command-messages
2021-12-15 22:02 ` Stefan Kangas
@ 2021-12-16 17:15 ` Juri Linkov
2021-12-16 18:01 ` Stefan Kangas
0 siblings, 1 reply; 5+ messages in thread
From: Juri Linkov @ 2021-12-16 17:15 UTC (permalink / raw)
To: Stefan Kangas; +Cc: 52518
[-- Attachment #1: Type: text/plain, Size: 490 bytes --]
>> (when vc-command-messages
>> - (let ((inhibit-message (eq (selected-window) (active-minibuffer-window))))
>> + (let ((inhibit-message
>> + (or (eq vc-command-messages 'log)
>> + (eq (selected-window) (active-minibuffer-window)))))
>
> Should these be refactored into a function of their own? It seems
> a tad repetitive as is.
I agree these should be refactored. I was unsure if selected-window
changes during function execution, but this would be better:
[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: vc-inhibit-message.patch --]
[-- Type: text/x-diff, Size: 2751 bytes --]
diff --git a/lisp/vc/vc-dispatcher.el b/lisp/vc/vc-dispatcher.el
index 346974bdba..4adc01fbfc 100644
--- a/lisp/vc/vc-dispatcher.el
+++ b/lisp/vc/vc-dispatcher.el
@@ -127,8 +127,12 @@ vc-delete-logbuf-window
:group 'vc)
(defcustom vc-command-messages nil
- "If non-nil, display run messages from back-end commands."
- :type 'boolean
+ "If non-nil, log run messages from back-end commands.
+If `log', messages are logged to the *Messages* buffer, but not displayed.
+Other non-nil values also display run messages in the echo area."
+ :type '(choice (const :tag "No display and no log" nil)
+ (const :tag "Display and log messages" t)
+ (const :tag "Only log messages without displaying" log))
:group 'vc)
(defcustom vc-suppress-confirm nil
@@ -311,7 +315,10 @@ vc-do-command
(substring command 0 -1)
command)
" " (vc-delistify flags)
- " " (vc-delistify files))))
+ " " (vc-delistify files)))
+ (vc-inhibit-message
+ (or (eq vc-command-messages 'log)
+ (eq (selected-window) (active-minibuffer-window)))))
(save-current-buffer
(unless (or (eq buffer t)
(and (stringp buffer)
@@ -335,7 +342,7 @@ vc-do-command
(apply #'start-file-process command (current-buffer)
command squeezed))))
(when vc-command-messages
- (let ((inhibit-message (eq (selected-window) (active-minibuffer-window))))
+ (let ((inhibit-message vc-inhibit-message))
(message "Running in background: %s" full-command)))
;; Get rid of the default message insertion, in case we don't
;; set a sentinel explicitly.
@@ -345,11 +352,11 @@ vc-do-command
(when vc-command-messages
(vc-run-delayed
(let ((message-truncate-lines t)
- (inhibit-message (eq (selected-window) (active-minibuffer-window))))
+ (inhibit-message vc-inhibit-message))
(message "Done in background: %s" full-command)))))
;; Run synchronously
(when vc-command-messages
- (let ((inhibit-message (eq (selected-window) (active-minibuffer-window))))
+ (let ((inhibit-message vc-inhibit-message))
(message "Running in foreground: %s" full-command)))
(let ((buffer-undo-list t))
(setq status (apply #'process-file command nil t nil squeezed)))
@@ -364,7 +371,7 @@ vc-do-command
(if (integerp status) (format "status %d" status) status)
full-command))
(when vc-command-messages
- (let ((inhibit-message (eq (selected-window) (active-minibuffer-window))))
+ (let ((inhibit-message vc-inhibit-message))
(message "Done (status=%d): %s" status full-command)))))
(vc-run-delayed
(run-hook-with-args 'vc-post-command-functions
^ permalink raw reply related [flat|nested] 5+ messages in thread
* bug#52518: Log only vc-command-messages
2021-12-16 17:15 ` Juri Linkov
@ 2021-12-16 18:01 ` Stefan Kangas
2021-12-16 19:17 ` Juri Linkov
0 siblings, 1 reply; 5+ messages in thread
From: Stefan Kangas @ 2021-12-16 18:01 UTC (permalink / raw)
To: Juri Linkov; +Cc: 52518
Juri Linkov <juri@linkov.net> writes:
> I agree these should be refactored. I was unsure if selected-window
> changes during function execution, but this would be better:
Thanks. Some documentation comments:
> diff --git a/lisp/vc/vc-dispatcher.el b/lisp/vc/vc-dispatcher.el
> index 346974bdba..4adc01fbfc 100644
> --- a/lisp/vc/vc-dispatcher.el
> +++ b/lisp/vc/vc-dispatcher.el
> @@ -127,8 +127,12 @@ vc-delete-logbuf-window
> :group 'vc)
>
> (defcustom vc-command-messages nil
> - "If non-nil, display run messages from back-end commands."
> - :type 'boolean
> + "If non-nil, log run messages from back-end commands.
> +If `log', messages are logged to the *Messages* buffer, but not displayed.
> +Other non-nil values also display run messages in the echo area."
Would this be simpler?
If non-nil, display and log run messages from back-end commands.
If `log', messages are logged to the *Messages* buffer but not
displayed.
> + :type '(choice (const :tag "No display and no log" nil)
> + (const :tag "Display and log messages" t)
> + (const :tag "Only log messages without displaying" log))
Perhaps the first one could be:
No messages
Perhaps the last one could be:
Log messages
^ permalink raw reply [flat|nested] 5+ messages in thread
* bug#52518: Log only vc-command-messages
2021-12-16 18:01 ` Stefan Kangas
@ 2021-12-16 19:17 ` Juri Linkov
0 siblings, 0 replies; 5+ messages in thread
From: Juri Linkov @ 2021-12-16 19:17 UTC (permalink / raw)
To: Stefan Kangas; +Cc: 52518
close 52518 29.0.50
thanks
> Would this be simpler?
>
> If non-nil, display and log run messages from back-end commands.
> If `log', messages are logged to the *Messages* buffer but not
> displayed.
>
>> + :type '(choice (const :tag "No display and no log" nil)
>> + (const :tag "Display and log messages" t)
>> + (const :tag "Only log messages without displaying" log))
>
> Perhaps the first one could be:
>
> No messages
>
> Perhaps the last one could be:
>
> Log messages
Thanks for the suggestions. Now pushed to master with all corrections.
I'm not sure if a NEWS entry is needed, since this option is useful mostly
for debugging.
^ permalink raw reply [flat|nested] 5+ messages in thread
end of thread, other threads:[~2021-12-16 19:17 UTC | newest]
Thread overview: 5+ messages (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2021-12-15 17:31 bug#52518: Log only vc-command-messages Juri Linkov
2021-12-15 22:02 ` Stefan Kangas
2021-12-16 17:15 ` Juri Linkov
2021-12-16 18:01 ` Stefan Kangas
2021-12-16 19:17 ` Juri Linkov
Code repositories for project(s) associated with this public inbox
https://git.savannah.gnu.org/cgit/emacs.git
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).