diff options
| author | Glenn Morris <rgm@gnu.org> | 2012-07-06 15:06:54 -0400 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2012-07-06 15:06:54 -0400 |
| commit | 133a11fc593ee918a6c4c1e68c024949c9ba2f1b (patch) | |
| tree | c489f51e85f0b78936b0d294509365943e18909a /lisp/files.el | |
| parent | a69ca799814c682861c0736204f0f81e4366c06e (diff) | |
| download | emacs-133a11fc593ee918a6c4c1e68c024949c9ba2f1b.tar.gz emacs-133a11fc593ee918a6c4c1e68c024949c9ba2f1b.tar.bz2 emacs-133a11fc593ee918a6c4c1e68c024949c9ba2f1b.zip | |
* lisp/files.el (toggle-read-only): Restrict message to interactive use.
Diffstat (limited to 'lisp/files.el')
| -rw-r--r-- | lisp/files.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/files.el b/lisp/files.el index b17b2ffbd2a..53b701dbcbe 100644 --- 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. |