# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 763660925 0
# Node ID 3badf836d51dd688d49505cf5fdc6d9bed126c5d
# Parent  a8922d5bcb06f6a9787b639e85173e9b271a1c05
(view-mode): Run view-mode-hook as well as view-hook.
(view-mode-hook): New defvar.

diff -r a8922d5bcb06 -r 3badf836d51d lisp/view.el
--- 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)