diff options
| author | Richard M. Stallman <rms@gnu.org> | 1994-03-14 16:02:05 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1994-03-14 16:02:05 +0000 |
| commit | 6213ac493fc418ab9d44b33072f751bb62d62f6e (patch) | |
| tree | 85b4e41ba9618b94e39a4d10b1d820f49a401a10 /lisp/view.el | |
| parent | 193fef97e3043180a5d298c0a56c83e4dbddd203 (diff) | |
| download | emacs-6213ac493fc418ab9d44b33072f751bb62d62f6e.tar.gz | |
(view-mode): Run view-mode-hook as well as view-hook.
(view-mode-hook): New defvar.
Diffstat (limited to 'lisp/view.el')
| -rw-r--r-- | lisp/view.el | 15 |
1 files changed, 9 insertions, 6 deletions
diff --git a/lisp/view.el b/lisp/view.el index 1ecd68728dd..35e6223875d 100644 --- a/lisp/view.el +++ b/lisp/view.el @@ -106,7 +106,7 @@ are defined for moving around in the buffer. Space scrolls forward, Delete scrolls backward. For list of all View commands, type ? or h while viewing. -This command runs the normal hook `view-hook'." +This command runs the normal hook `view-mode-hook'." (interactive "fView file: ") (let ((old-buf (current-buffer)) (had-a-buf (get-file-buffer file-name)) @@ -126,7 +126,7 @@ are defined for moving around in the buffer. Space scrolls forward, Delete scrolls backward. For list of all View commands, type ? or h while viewing. -This command runs the normal hook `view-hook'." +This command runs the normal hook `view-mode-hook'." (interactive "fView file: ") (let ((old-arrangement (current-window-configuration)) (had-a-buf (get-file-buffer file-name)) @@ -145,7 +145,7 @@ are defined for moving around in the buffer. Space scrolls forward, Delete scrolls backward. For list of all View commands, type ? or h while viewing. -This command runs the normal hook `view-hook'." +This command runs the normal hook `view-mode-hook'." (interactive "bView buffer: ") (let ((old-buf (current-buffer))) (switch-to-buffer buffer-name t) @@ -163,7 +163,7 @@ are defined for moving around in the buffer. Space scrolls forward, Delete scrolls backward. For list of all View commands, type ? or h while viewing. -This command runs the normal hook `view-hook'." +This command runs the normal hook `view-mode-hook'." (interactive "bView buffer:\nP") (let ((return-to (and not-return (current-window-configuration)))) (switch-to-buffer-other-window buffer-name) @@ -205,7 +205,7 @@ C-p moves upward lines vertically. C-l recenters the screen. q or C-c exit view-mode and return to previous buffer. -Entry to this mode runs the normal hook `view-hook'. +Entry to this mode runs the normal hook `view-mode-hook'. \\{view-mode-map}" ; Not interactive because dangerous things happen @@ -257,7 +257,7 @@ Entry to this mode runs the normal hook `view-hook'. (setq goal-column nil) (use-local-map view-mode-map) - (run-hooks 'view-hook) + (run-hooks 'view-hook 'view-mode-hook) (view-helpful-message)) @@ -305,6 +305,9 @@ If you viewed a file that was not present in Emacs, its buffer is killed." (defvar view-hook nil "Normal hook run when starting to view a buffer or file.") +(defvar view-mode-hook nil + "Normal hook run when starting to view a buffer or file.") + ;(defun view-last-command (&optional who what) ; (setq view-last-command-entry this-command) ; (setq view-last-command who) |