(view-inhibit-help-message): New defcustom.

(view-mode-enter): Use it.

2 files changed, 17 insertions, 5 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index a108e294634..3511a86f9f3 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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
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.