[Emacs-diffs] scratch/inhibit-message3 27921dc: Rename `Vinhibit_message' to a boolean `inhibit_message'

[Oleh Krehel]

branch: scratch/inhibit-message3
commit 27921dc4f75431be021794830b96179cf2d33755
Author: Oleh Krehel <address@hidden>
Commit: Oleh Krehel <address@hidden>

    Rename `Vinhibit_message' to a boolean `inhibit_message'
    
    * etc/NEWS: Announce `inhibit-message'.
    
    * doc/lispref/display.texi (Displaying Messages): Add
      `inhibit-message' to the info on the `message' function.
    
    * src/xdisp.c (message3): Update.
    (syms_of_xdisp): Update declaration.
---
 doc/lispref/display.texi |    3 +++
 etc/NEWS                 |    4 ++++
 src/xdisp.c              |   10 +++++-----
 3 files changed, 12 insertions(+), 5 deletions(-)

diff --git a/doc/lispref/display.texi b/doc/lispref/display.texi
index e2a38b6..b39c319 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 @code{t}, no message will be displayed
+in the echo area, it will only be logged to @file{*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
diff --git a/etc/NEWS b/etc/NEWS
index 804b819..c5c1280 100644
--- a/etc/NEWS
+++ b/etc/NEWS
@@ -200,6 +200,10 @@ font, and (iii) the specified window.
 
 ** New possible value for `system-type': nacl.
 
+** New variable `inhibit-message', when bound to t, inhibits the
+   message3 C function from using 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 c8fdb9e..6ca1906 100644
--- a/src/xdisp.c
+++ b/src/xdisp.c
@@ -10053,9 +10053,8 @@ message3 (Lisp_Object m)
       message_dolog (buffer, nbytes, true, multibyte);
       SAFE_FREE ();
     }
-  if (NILP (Vinhibit_message)) {
+  if (! inhibit_message)
     message3_nolog (m);
-  }
   UNGCPRO;
 }
 
@@ -30431,9 +30430,10 @@ syms_of_xdisp (void)
 
   DEFSYM (Qredisplay_internal, "redisplay_internal (C function)");
 
-  DEFVAR_LISP("inhibit-message", Vinhibit_message,
-              doc:  /* Non-nil means calls to `message' are ignored.  */);
-  Vinhibit_message = Qnil;
+  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);