diff options
| author | Romain Francoise <romain@orebokech.com> | 2005-11-29 10:53:30 +0000 |
|---|---|---|
| committer | Romain Francoise <romain@orebokech.com> | 2005-11-29 10:53:30 +0000 |
| commit | 1c0484e2a2cdd089d16eeadfd057f08ccbb2308d (patch) | |
| tree | 33243bcddbc49fbefafa00a364a5339494131159 /lisp/view.el | |
| parent | 59f1b05814c0e8cad89a81747e6fa2085f434867 (diff) | |
| download | emacs-1c0484e2a2cdd089d16eeadfd057f08ccbb2308d.tar.gz | |
(view-inhibit-help-message): New defcustom.
(view-mode-enter): Use it.
Diffstat (limited to 'lisp/view.el')
| -rw-r--r-- | lisp/view.el | 13 |
1 files changed, 10 insertions, 3 deletions
diff --git a/lisp/view.el b/lisp/view.el index 0d6b941a0ca..4cbc0fe9e4c 100644 --- a/lisp/view.el +++ b/lisp/view.el @@ -93,6 +93,12 @@ considered for restoring." :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 @@ This function runs the normal hook `view-mode-hook'." (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. |