[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: Is there a way to inhibit message3 from Elisp?
From: |
Oleh Krehel |
Subject: |
Re: Is there a way to inhibit message3 from Elisp? |
Date: |
Wed, 22 Apr 2015 14:50:49 +0200 |
User-agent: |
Gnus/5.13 (Gnus v5.13) Emacs/25.0.50 (gnu/linux) |
Thanks for the comments, Eli. I attach a squashed patch.
Please check again if it's alright.
Oleh
===File
/home/oleh/git/gnu-emacs/0001-Add-a-new-inhibit-message-variable.patch===
>From 95015bef323d1cc7c935a676a6526995ea0a3ca9 Mon Sep 17 00:00:00 2001
From: Oleh Krehel <address@hidden>
Date: Wed, 22 Apr 2015 14:45:09 +0200
Subject: [PATCH] Add a new `inhibit-message' variable
* src/xdisp.c (syms_of_xdisp): Define a boolean `inhibit_message'.
(message3): Don't call `message3_nolog' (i.e. use the Echo Area) when
`inhibit_message' is non-zero.
* etc/NEWS: Add an entry.
* doc/lispref/display.texi: Add an entry for `inhibit-message',
mention it in `message'.
---
doc/lispref/display.texi | 8 ++++++++
etc/NEWS | 5 +++++
src/xdisp.c | 9 +++++++--
3 files changed, 20 insertions(+), 2 deletions(-)
diff --git a/doc/lispref/display.texi b/doc/lispref/display.texi
index e2a38b6..f86149d 100644
--- a/doc/lispref/display.texi
+++ b/doc/lispref/display.texi
@@ -257,6 +257,9 @@ text properties (@pxref{Logging Messages}).
In batch mode, the message is printed to the standard error stream,
followed by a newline.
+When @code{inhibit-message} is non-nil, no message will be displayed
+in the echo area, it will only be logged to @samp{*Messages*}.
+
If @var{format-string} is @code{nil} or the empty string,
@code{message} clears the echo area; if the echo area has been
expanded automatically, this brings it back to its normal size. If
@@ -282,6 +285,11 @@ To automatically display a message in the echo area or in
a pop-buffer,
depending on its size, use @code{display-message-or-buffer} (see below).
@end defun
address@hidden inhibit-message
+When this variable is non-nil, @code{message} and related functions
+will not use the Echo Area to display messages.
address@hidden defvar
+
@defmac with-temp-message message &rest body
This construct displays a message in the echo area temporarily, during
the execution of @var{body}. It displays @var{message}, executes
diff --git a/etc/NEWS b/etc/NEWS
index 804b819..e2b6b11 100644
--- a/etc/NEWS
+++ b/etc/NEWS
@@ -200,6 +200,11 @@ font, and (iii) the specified window.
** New possible value for `system-type': nacl.
++++
+** New variable `inhibit-message', when bound to non-nil, inhibits
+ `message' and related functions from displaying messages the Echo
+ Area. The output is still logged to the *Messages* buffer.
+
* Editing Changes in Emacs 25.1
diff --git a/src/xdisp.c b/src/xdisp.c
index a17f5a9..6ca1906 100644
--- a/src/xdisp.c
+++ b/src/xdisp.c
@@ -10053,8 +10053,8 @@ message3 (Lisp_Object m)
message_dolog (buffer, nbytes, true, multibyte);
SAFE_FREE ();
}
- message3_nolog (m);
-
+ if (! inhibit_message)
+ message3_nolog (m);
UNGCPRO;
}
@@ -30430,6 +30430,11 @@ syms_of_xdisp (void)
DEFSYM (Qredisplay_internal, "redisplay_internal (C function)");
+ DEFVAR_BOOL("inhibit-message", inhibit_message,
+ doc: /* Non-nil means calls to `message' are not displayed.
+They are still logged to the *Messages* buffer. */);
+ inhibit_message = 0;
+
message_dolog_marker1 = Fmake_marker ();
staticpro (&message_dolog_marker1);
message_dolog_marker2 = Fmake_marker ();
--
1.8.4
============================================================
- Is there a way to inhibit message3 from Elisp?, Oleh Krehel, 2015/04/21
- Re: Is there a way to inhibit message3 from Elisp?, Stefan Monnier, 2015/04/21
- Re: Is there a way to inhibit message3 from Elisp?, Oleh Krehel, 2015/04/21
- Re: Is there a way to inhibit message3 from Elisp?, Eli Zaretskii, 2015/04/22
- Re: Is there a way to inhibit message3 from Elisp?, Oleh Krehel, 2015/04/22
- Re: Is there a way to inhibit message3 from Elisp?, Eli Zaretskii, 2015/04/22
- Re: Is there a way to inhibit message3 from Elisp?,
Oleh Krehel <=
- Re: Is there a way to inhibit message3 from Elisp?, Eli Zaretskii, 2015/04/22
- Re: Is there a way to inhibit message3 from Elisp?, Stefan Monnier, 2015/04/22
- Re: Is there a way to inhibit message3 from Elisp?, Oleh Krehel, 2015/04/22
- Re: Is there a way to inhibit message3 from Elisp?, Artur Malabarba, 2015/04/22
- Re: Is there a way to inhibit message3 from Elisp?, Stefan Monnier, 2015/04/22
- Re: Is there a way to inhibit message3 from Elisp?, Artur Malabarba, 2015/04/22
- Re: Is there a way to inhibit message3 from Elisp?, Artur Malabarba, 2015/04/22
- Re: Is there a way to inhibit message3 from Elisp?, Oleh Krehel, 2015/04/22
- Re: Is there a way to inhibit message3 from Elisp?, Stefan Monnier, 2015/04/22