Mercurial > emacs
changeset 67203:78e1225a40a2
(view-inhibit-help-message): New defcustom.
(view-mode-enter): Use it.
| author | Romain Francoise <romain@orebokech.com> |
|---|---|
| date | Tue, 29 Nov 2005 10:53:30 +0000 |
| parents | 3423d9dbb1b7 |
| children | 0ae69a6a591d |
| files | lisp/ChangeLog lisp/view.el |
| diffstat | 2 files changed, 17 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Tue Nov 29 06:12:52 2005 +0000 +++ b/lisp/ChangeLog Tue Nov 29 10:53:30 2005 +0000 @@ -1,8 +1,13 @@ +2005-11-29 Romain Francoise <romain@orebokech.com> + + * view.el (view-inhibit-help-message): New defcustom. + (view-mode-enter): Use it. + 2005-11-29 Michael Kifer <kifer@cs.stonybrook.edu> - + * ediff-wind (ediff-setup-control-frame, ediff-make-wide-display): preserve user position. - + 2005-11-28 Luc Teirlinck <teirllm@auburn.edu> * font-lock.el: Throw error if facemenu is not loaded to prevent
--- a/lisp/view.el Tue Nov 29 06:12:52 2005 +0000 +++ b/lisp/view.el Tue Nov 29 10:53:30 2005 +0000 @@ -93,6 +93,12 @@ :type 'boolean :group 'view) +(defcustom view-inhibit-help-message nil + "*Non-nil inhibits the help message showed upon entering View mode." + :type 'boolean + :group 'view + :version "22.1") + ;;;###autoload (defvar view-mode nil "Non-nil if View mode is enabled. @@ -516,9 +522,10 @@ (unless view-mode ; Do nothing if already in view mode. (view-mode-enable) (force-mode-line-update) - (message "%s" - (substitute-command-keys "\ -View mode: type \\[help-command] for help, \\[describe-mode] for commands, \\[View-quit] to quit.")))) + (unless view-inhibit-help-message + (message "%s" + (substitute-command-keys "\ +View mode: type \\[help-command] for help, \\[describe-mode] for commands, \\[View-quit] to quit."))))) (defun view-mode-exit (&optional return-to-alist exit-action all-win) "Exit View mode in various ways, depending on optional arguments.