silence append-to-file?

silence append-to-file?

[Eric S Fraga]

Hello all,

I have a little timer running in Emacs that appends a line to a log
file.  I use append-to-file for this.  However, every time this gets
invoked, a message gets written to the *Messages* buffer, a message I do
not need and simply adds clutter to that buffer.

Is it possible to silence that function?  I've tracked the code down to
fileio.c (in write-region, line 5501) and I cannot see how to do so
(from elisp).

Alternatively, is there a better function to use for this?

thank you,
eric

-- 
Eric S Fraga with org 9.5 in Emacs 29.0.50 on Debian 11.1

Re: silence append-to-file?

[Marcin Borkowski]

On 2021-11-12, at 13:36, Eric S Fraga <e.fraga@ucl.ac.uk> wrote:

> Hello all,
>
> I have a little timer running in Emacs that appends a line to a log
> file.  I use append-to-file for this.  However, every time this gets
> invoked, a message gets written to the *Messages* buffer, a message I do
> not need and simply adds clutter to that buffer.
>
> Is it possible to silence that function?  I've tracked the code down to
> fileio.c (in write-region, line 5501) and I cannot see how to do so
> (from elisp).
>
> Alternatively, is there a better function to use for this?

 -- User Option: message-log-max
     This variable specifies how many lines to keep in the ‘*Messages*’
     buffer.  The value ‘t’ means there is no limit on how many lines to
     keep.  The value ‘nil’ disables message logging entirely.  Here’s
     how to display a message and prevent it from being logged:

          (let (message-log-max)
            (message ...))

Hth,

-- 
Marcin Borkowski
http://mbork.pl

Re: silence append-to-file?

[Gregory Heytings]

>
> Alternatively, is there a better function to use for this?
>

(defun append-to-file-quiet (start end filename)
   "Like `append-to-file', but do not log a message in *Messages*"
   (let ((message-log-max nil))
     (append-to-file start end filename)))

Re: silence append-to-file?

[Eric S Fraga]

On Friday, 12 Nov 2021 at 13:18, Gregory Heytings wrote:
>   (let ((message-log-max nil))
>     (append-to-file start end filename)))

Gregory (& Marcin),

thank you for this.  Works perfectly!

-- 
Eric S Fraga with org 9.5 in Emacs 29.0.50 on Debian 11.1

Re: silence append-to-file?

[Emanuel Berg via Users list for the GNU Emacs text editor]

Gregory Heytings wrote:

>> Alternatively, is there a better function to use for this?
>
> (defun append-to-file-quiet (start end filename)
>   "Like `append-to-file', but do not log a message in *Messages*"
>   (let ((message-log-max nil))
>     (append-to-file start end filename)))

Do this for how to improve the docstring ...

(require 'checkdoc)

(setq checkdoc-permit-comma-termination-flag t)

(defun check-package-style ()
  (interactive)
  (let ((msg "Style check..."))
    (message msg)
    (checkdoc-current-buffer t) ; TAKE-NOTES
    (message "%sdone" msg) ))
(defalias 'check-style #'check-package-style)

-- 
underground experts united
https://dataswamp.org/~incal

Re: silence append-to-file?

[Emanuel Berg via Users list for the GNU Emacs text editor]

Gregory Heytings wrote:

>> Alternatively, is there a better function to use for this?
>
> (defun append-to-file-quiet (start end filename)
>   "Like `append-to-file', but do not log a message in *Messages*"
>   (let ((message-log-max nil))
>     (append-to-file start end filename)))

Can't one have a list of messages and errors one don't want to
hear ... e.g. Beginning of buffer, Mark set ...

-- 
underground experts united
https://dataswamp.org/~incal