Re: How to suppress messages?

[Thien-Thi Nguyen <ttn@glug.org>]

John Paul Wallington <jpw@gnu.org>:

> Not recommended [...]

while we're unrecommending things, below is some more unrecommended
(five-minute sketch, incomplete, not exactly pretty result) stuff...

thi

____________________________________
cvs diff editfns.c xdisp.c
Index: editfns.c
===================================================================
RCS file: /cvsroot/emacs/emacs/src/editfns.c,v
retrieving revision 1.389
diff -w -b -B -u -r1.389 editfns.c
--- editfns.c	21 Jan 2005 00:32:36 -0000	1.389
+++ editfns.c	27 Jan 2005 23:38:58 -0000
@@ -3114,6 +3114,8 @@
 /* Allocated length of that buffer.  */
 static int message_length;
 
+Lisp_Object Vmessage_stfu_dammit;
+
 DEFUN ("message", Fmessage, Smessage, 1, MANY, 0,
        doc: /* Print a one-line message at the bottom of the screen.
 The message also goes into the `*Messages*' buffer.
@@ -3125,11 +3127,16 @@
 If the first argument is nil, the function clears any existing message;
 this lets the minibuffer contents show.  See also `current-message'.
 
+TTN curmudgeon hack: Non-nil `message-stfu-dammit' inhibits everything.
+
 usage: (message STRING &rest ARGS)  */)
      (nargs, args)
      int nargs;
      Lisp_Object *args;
 {
+  if (! NILP (Vmessage_stfu_dammit))
+    return Qnil;
+
   if (NILP (args[0])
       || (STRINGP (args[0])
 	  && SBYTES (args[0]) == 0))
@@ -4271,6 +4278,10 @@
 {
   environbuf = 0;
 
+  DEFVAR_LISP ("message-stfu-dammit", &Vmessage_stfu_dammit,
+	       doc: /* Non-nil makes `message' a no-op.  */);
+  Vmessage_stfu_dammit = Qnil;
+
   Qbuffer_access_fontify_functions
     = intern ("buffer-access-fontify-functions");
   staticpro (&Qbuffer_access_fontify_functions);
Index: xdisp.c
===================================================================
RCS file: /cvsroot/emacs/emacs/src/xdisp.c,v
retrieving revision 1.974
diff -w -b -B -u -r1.974 xdisp.c
--- xdisp.c	27 Jan 2005 22:33:52 -0000	1.974
+++ xdisp.c	27 Jan 2005 23:39:04 -0000
@@ -7045,6 +7045,14 @@
      char *m;
      EMACS_INT a1, a2, a3;
 {
+  /* TTN curmudgeon hack (same as for `Fmessage'):
+     Non-nil `message-stfu-dammit' inhibits everything.  */
+  extern Lisp_Object Vmessage_stfu_dammit;
+
+  if (! NILP (Vmessage_stfu_dammit))
+    return;
+  /* We now return you to your regularly spewful Emacs...  */
+
   if (noninteractive)
     {
       if (m)