Mercurial > emacs
diff lisp/view.el @ 6330:3badf836d51d
(view-mode): Run view-mode-hook as well as view-hook.
(view-mode-hook): New defvar.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Mon, 14 Mar 1994 16:02:05 +0000 |
parents | 4bf8c101aaef |
children | 11db8cd482ad |
line wrap: on
line diff
--- a/lisp/view.el Mon Mar 14 06:15:30 1994 +0000 +++ b/lisp/view.el Mon Mar 14 16:02:05 1994 +0000 @@ -106,7 +106,7 @@ 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 @@ 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 @@ 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 @@ 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-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 @@ (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 @@ (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)