Inhibit "Wrote" message in saveplace.el when non-interactive

* lisp/saveplace.el (save-place-alist-to-file): Tell 'write-region'
to be quiet when called non-interactively.  This is in harmony with
'savehist-save'.  (Bug#76267)
This commit is contained in:
shipmints 2025-02-13 08:10:45 -05:00 committed by Eli Zaretskii
parent 0ee50a3420
commit 8f45cbdee4

View file

@ -401,7 +401,8 @@ may have changed) back to `save-place-alist'."
t))))
(condition-case nil
;; Don't use write-file; we don't want this buffer to visit it.
(write-region (point-min) (point-max) file)
(write-region (point-min) (point-max) file nil
(unless (called-interactively-p 'interactive) 'quiet))
(file-error (message "Saving places: can't write %s" file)))))))
(defun save-places-to-alist ()