From 133a11fc593ee918a6c4c1e68c024949c9ba2f1b Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Fri, 6 Jul 2012 15:06:54 -0400 Subject: * lisp/files.el (toggle-read-only): Restrict message to interactive use. --- lisp/files.el | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'lisp/files.el') diff --git a/lisp/files.el b/lisp/files.el index b17b2ffbd2a..53b701dbcbe 100644 --- a/lisp/files.el +++ b/lisp/files.el @@ -4856,8 +4856,9 @@ properties or buffer state) and make changes, temporarily bind (view-mode-enter)) (t (setq buffer-read-only (not buffer-read-only)) (force-mode-line-update)))) - (message "Read-only %s for this buffer" - (if buffer-read-only "enabled" "disabled")))) + (if (called-interactively-p 'interactive) + (message "Read-only %s for this buffer" + (if buffer-read-only "enabled" "disabled"))))) (defun insert-file (filename) "Insert contents of file FILENAME into buffer after point. -- cgit v1.2.3