mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-04 14:40:54 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source 
(view-mode-enter): Use it.
This commit is contained in:
Romain Francoise 2005-11-29 10:53:30 +00:00
parent 59f1b05814
commit 1c0484e2a2
2 changed files with 17 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

9
lisp/ChangeLog
View file

@ -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

13
lisp/view.el
View file

@ -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.