* lisp/files.el (toggle-read-only): Restrict message to interactive use.

133a11fc · Glenn Morris · a69ca799 · 133a11fc · 133a11fc
Commit 133a11fc authored Jul 06, 2012 by Glenn Morris
Hide whitespace changes
Inline Side-by-side

Showing with 7 additions and 2 deletions

lisp/ChangeLog lisp/ChangeLog +4 -0

lisp/files.el lisp/files.el +3 -2

No files found.
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
+2012-07-06  Glenn Morris  <rgm@gnu.org>
+
+	* files.el (toggle-read-only): Restrict message to interactive use.
+
 2012-07-06  Michael Albinus  <michael.albinus@gmx.de>
  
 	* net/tramp.el (tramp-restricted-shell-hosts-alist): New defcustom.

--- 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.