[Emacs-diffs] /srv/bzr/emacs/trunk r108917: * lisp/files.el (toggle-read-only): Restrict message to interactive use.

[Glenn Morris]

------------------------------------------------------------
revno: 108917
committer: Glenn Morris <address@hidden>
branch nick: trunk
timestamp: Fri 2012-07-06 15:06:54 -0400
message:
  * lisp/files.el (toggle-read-only): Restrict message to interactive use.
modified:
  lisp/ChangeLog
  lisp/files.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2012-07-06 13:16:13 +0000
+++ b/lisp/ChangeLog    2012-07-06 19:06:54 +0000
@@ -1,3 +1,7 @@
+2012-07-06  Glenn Morris  <address@hidden>
+
+       * files.el (toggle-read-only): Restrict message to interactive use.
+
 2012-07-06  Michael Albinus  <address@hidden>
 
        * net/tramp.el (tramp-restricted-shell-hosts-alist): New defcustom.

=== modified file 'lisp/files.el'
--- a/lisp/files.el     2012-07-06 04:31:46 +0000
+++ b/lisp/files.el     2012-07-06 19:06:54 +0000
@@ -4856,8 +4856,9 @@
        (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.