/[emacs]/emacs/lisp/view.el
ViewVC logotype

Diff of /emacs/lisp/view.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.79 by schwab, Fri Oct 28 09:41:21 2005 UTC revision 1.80 by rfrancoise, Tue Nov 29 10:53:29 2005 UTC
# Line 93  considered for restoring." Line 93  considered for restoring."
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.
# Line 516  This function runs the normal hook `view Line 522  This function runs the normal hook `view
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.

Legend:
Removed from v.1.79  
changed lines
  Added in v.1.80

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26