From 133a11fc593ee918a6c4c1e68c024949c9ba2f1b Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Fri, 6 Jul 2012 15:06:54 -0400 Subject: [PATCH] * lisp/files.el (toggle-read-only): Restrict message to interactive use. --- lisp/ChangeLog | 4 ++++ lisp/files.el | 5 +++-- 2 files changed, 7 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index cf95fd39e2a..2233642e5b4 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2012-07-06 Glenn Morris + + * files.el (toggle-read-only): Restrict message to interactive use. + 2012-07-06 Michael Albinus * net/tramp.el (tramp-restricted-shell-hosts-alist): New defcustom. 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. -- 2.11.4.GIT