[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] /srv/bzr/emacs/trunk r108917: * lisp/files.el (toggle-read
From: |
Glenn Morris |
Subject: |
[Emacs-diffs] /srv/bzr/emacs/trunk r108917: * lisp/files.el (toggle-read-only): Restrict message to interactive use. |
Date: |
Fri, 06 Jul 2012 15:06:54 -0400 |
User-agent: |
Bazaar (2.5.0) |
------------------------------------------------------------
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.
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] /srv/bzr/emacs/trunk r108917: * lisp/files.el (toggle-read-only): Restrict message to interactive use.,
Glenn Morris <=