93 |
:type 'boolean |
:type 'boolean |
94 |
:group 'view) |
:group 'view) |
95 |
|
|
96 |
|
(defcustom view-inhibit-help-message nil |
97 |
|
"*Non-nil inhibits the help message showed upon entering View mode." |
98 |
|
:type 'boolean |
99 |
|
:group 'view |
100 |
|
:version "22.1") |
101 |
|
|
102 |
;;;###autoload |
;;;###autoload |
103 |
(defvar view-mode nil |
(defvar view-mode nil |
104 |
"Non-nil if View mode is enabled. |
"Non-nil if View mode is enabled. |
522 |
(unless view-mode ; Do nothing if already in view mode. |
(unless view-mode ; Do nothing if already in view mode. |
523 |
(view-mode-enable) |
(view-mode-enable) |
524 |
(force-mode-line-update) |
(force-mode-line-update) |
525 |
(message "%s" |
(unless view-inhibit-help-message |
526 |
(substitute-command-keys "\ |
(message "%s" |
527 |
View mode: type \\[help-command] for help, \\[describe-mode] for commands, \\[View-quit] to quit.")))) |
(substitute-command-keys "\ |
528 |
|
View mode: type \\[help-command] for help, \\[describe-mode] for commands, \\[View-quit] to quit."))))) |
529 |
|
|
530 |
(defun view-mode-exit (&optional return-to-alist exit-action all-win) |
(defun view-mode-exit (&optional return-to-alist exit-action all-win) |
531 |
"Exit View mode in various ways, depending on optional arguments. |
"Exit View mode in various ways, depending on optional arguments. |