From: Richard M. Stallman <rms@gnu.org>
Date: Mon, 14 Mar 1994 16:02:05 +0000 (+0000)
Subject: (view-mode): Run view-mode-hook as well as view-hook.
X-Git-Tag: emacs-19.34~9522
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=bd0d2c58e1b6ed25aed108e820abd9e60256cf13;p=emacs.git

(view-mode): Run view-mode-hook as well as view-hook.
(view-mode-hook): New defvar.
---

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)