elisp: how to stop messaging in echo area for save-buffer

elisp: how to stop messaging in echo area for save-buffer

[Xah Lee]

i have a elisp script that does a few hundred saving files. Each time

    (save-buffer)

is called, the *Message* buffer contains 2 lines like this:

Saving file c:/Users/xah/web/xxst/make_download_copy/
make_download_copy.el...
Wrote c:/Users/xah/web/xxst/make_download_copy/make_download_copy.el

How to disable printing this message?

i vaguely recall i've seen in elisp doc on how, but can't find it atm.

thanks.

  Xah
∑ http://xahlee.org/

☄

Re: elisp: how to stop messaging in echo area for save-buffer

[A.Politz]

On Aug 8, 5:15 pm, Xah Lee <xah...@gmail.com> wrote:
> i have a elisp script that does a few hundred saving files. Each time
>
>     (save-buffer)
>
> is called, the *Message* buffer contains 2 lines like this:
>
> Saving file c:/Users/xah/web/xxst/make_download_copy/
> make_download_copy.el...
> Wrote c:/Users/xah/web/xxst/make_download_copy/make_download_copy.el
>
> How to disable printing this message?
>
> i vaguely recall i've seen in elisp doc on how, but can't find it atm.
>
> thanks.
>
>   Xah
> ∑http://xahlee.org/
>
> ☄

(let (message-log-max)
  (save-buffer))

-ap

Re: elisp: how to stop messaging in echo area for save-buffer

[Xah Lee]

On Aug 8, 9:54 am, "A.Politz" <poli...@googlemail.com> wrote:
> > i have a elisp script that does a few hundred saving files. Each time
>
> >     (save-buffer)
>
> > is called, the *Message* buffer contains 2 lines like this:
>
> > Saving file c:/Users/xah/web/xxst/make_download_copy/
> > make_download_copy.el...
> > Wrote c:/Users/xah/web/xxst/make_download_copy/make_download_copy.el
>
> > How to disable printing this message?

> On Aug 8, 5:15 pm, Xah Lee <xah...@gmail.com> wrote:
> (let (message-log-max)
>   (save-buffer))

thanks.

though i needed to keep messages in the *Message* buffer before and
after the save flood.

my problem is that save-buffer caused so many lines (about 2 x 1000
lines) that scrolled off important messages (such as copy dir failed)
in the buffer, and i also wanted messages like “Xyz is done now.” that
happens when the elisp script finished.

am looking for a way to temp disable save-buffer writing a message to
*Message*. Thanks.

  Xah
∑ http://xahlee.org/

☄

Re: elisp: how to stop messaging in echo area for save-buffer

[Eli Zaretskii]

> From: Xah Lee <xahlee@gmail.com>
> Date: Sat, 8 Aug 2009 08:15:52 -0700 (PDT)
> 
> i have a elisp script that does a few hundred saving files. Each time
> 
>     (save-buffer)
> 
> is called, the *Message* buffer contains 2 lines like this:
> 
> Saving file c:/Users/xah/web/xxst/make_download_copy/
> make_download_copy.el...
> Wrote c:/Users/xah/web/xxst/make_download_copy/make_download_copy.el
> 
> How to disable printing this message?

Temporarily bind message-log-max to nil, perhaps?

Re: elisp: how to stop messaging in echo area for save-buffer

[Florian Beck]

Xah Lee <xahlee@gmail.com> writes:


>> > i have a elisp script that does a few hundred saving files. Each time
>>
>> >     (save-buffer)
>>
>> > is called, the *Message* buffer contains 2 lines like this:
>
> am looking for a way to temp disable save-buffer writing a message to
> *Message*. Thanks.

Redfine the save-buffer function.

Or temporarily change `message':

  (flet ((message (lambda (&rest args))))
    ...    
    (save-buffer)
    ...)

Use at your own risk.    
-- 
Florian Beck

Re: elisp: how to stop messaging in echo area for save-buffer

[Xah Lee]

thanks all. Setting message-log-max worked out for me.

 Xah

On Aug 8, 10:35 am, Eli Zaretskii <e...@gnu.org> wrote:
> > From: Xah Lee <xah...@gmail.com>
> > Date: Sat, 8 Aug 2009 08:15:52 -0700 (PDT)
>
> > i have a elisp script that does a few hundred saving files. Each time
>
> >     (save-buffer)
>
> > is called, the *Message* buffer contains 2 lines like this:
>
> > Saving file c:/Users/xah/web/xxst/make_download_copy/
> > make_download_copy.el...
> > Wrote c:/Users/xah/web/xxst/make_download_copy/make_download_copy.el
>
> > How to disable printing this message?
>
> Temporarily bind message-log-max to nil, perhaps?

Re: elisp: how to stop messaging in echo area for save-buffer

[Pascal J. Bourguignon]

Florian Beck <abstraktion@t-online.de> writes:

> Xah Lee <xahlee@gmail.com> writes:
>
>
>>> > i have a elisp script that does a few hundred saving files. Each time
>>>
>>> >     (save-buffer)
>>>
>>> > is called, the *Message* buffer contains 2 lines like this:
>>
>> am looking for a way to temp disable save-buffer writing a message to
>> *Message*. Thanks.
>
> Redfine the save-buffer function.
>
> Or temporarily change `message':
>
>   (flet ((message (lambda (&rest args))))
>     ...    
>     (save-buffer)
>     ...)
>
> Use at your own risk.    

Indeed.  This works because of a bug in flet.  Since it's
inspiration is Common Lisp FLET, it should make only a lexical
binding.  The version I have has corrected this bug:

(macroexpand '(flet   ((message (&rest args))) (f) (message "done")))
-->
(let* ((--cl-letf-bound-- (fboundp #1=(quote message)))
       (--cl-letf-save--  (and --cl-letf-bound-- (symbol-function #1#))))
 (unwind-protect
      (progn
        (fset #1# (function* (lambda (&rest args) (block message))))
        (f)     
        (message "done"))
   (if --cl-letf-bound--
       (fset #1# --cl-letf-save--)
       (fmakunbound #1#))))



-- 
__Pascal Bourguignon__

Re: elisp: how to stop messaging in echo area for save-buffer

[Florian Beck]

pjb@informatimago.com (Pascal J. Bourguignon) writes:

> Florian Beck <abstraktion@t-online.de> writes:
>
>> Xah Lee <xahlee@gmail.com> writes:
>>
>>
>>>> > i have a elisp script that does a few hundred saving files. Each time
>>>>
>>>> >     (save-buffer)
>>>>
>>>> > is called, the *Message* buffer contains 2 lines like this:
>>>
>>> am looking for a way to temp disable save-buffer writing a message to
>>> *Message*. Thanks.
>>
>> Redfine the save-buffer function.
>>
>> Or temporarily change `message':
>>
>>   (flet ((message (lambda (&rest args))))
>>     ...    
>>     (save-buffer)
>>     ...)
>>
>> Use at your own risk.    
>
> Indeed.  This works because of a bug in flet.  Since it's
> inspiration is Common Lisp FLET, it should make only a lexical
> binding. 

An inspiration is not a specification.

In fact, from aber user's perspective, I think the above is about the strongest
argument one can make for elisp's  dynamic binding.

This is strictly from the point of view of someone who want to customize
his emacs.

> The version I have has corrected this bug:
>
> (macroexpand '(flet   ((message (&rest args))) (f) (message "done")))
> -->
> (let* ((--cl-letf-bound-- (fboundp #1=(quote message)))
>        (--cl-letf-save--  (and --cl-letf-bound-- (symbol-function #1#))))
>  (unwind-protect
>       (progn
>         (fset #1# (function* (lambda (&rest args) (block message))))
>         (f)     
>         (message "done"))
>    (if --cl-letf-bound--
>        (fset #1# --cl-letf-save--)
>        (fmakunbound #1#))))

-- 
Florian Beck