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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index cf95fd39e2a8f000d398cd75778359ea75995072..2233642e5b4c8fc3e8a96056fb3dc695c0c9ec39 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+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.

diff --git a/lisp/files.el b/lisp/files.el
index b17b2ffbd2a89315ef7ffe929dd44c3b42a005e5..53b701dbcbe4efda0f933c6b922ff1b8846ed556 100644 (file)
--- 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.