procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source
This commit is contained in:
Glenn Morris 2012-07-06 15:06:54 -04:00
parent a69ca79981
commit 133a11fc59
2 changed files with 7 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lisp/ChangeLog
View file

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

5
lisp/files.el
View file

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