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

(view-mode-enter): Use it.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index a108e294634883096d51032ba65021b219a2a435..3511a86f9f302ea55c4c6f7324bc32e13ac8a102 100644 (file)
--- 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 0d6b941a0caf11ed876732f02192c0cc5eb04b28..4cbc0fe9e4ca394027f529674559978e4f0f6a12 100644 (file)
--- 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.")))))
 \f
 (defun view-mode-exit (&optional return-to-alist exit-action all-win)
   "Exit View mode in various ways, depending on optional arguments.