Use find-file-hook instead of find-file-hooks.

diff --git a/lisp/elide-head.el b/lisp/elide-head.el
index 9a23e622c455c5e59223e16e7e236181a14f997b..cae63481d14b79b184e13afbeef0dcaf10388f93 100644 (file)
--- a/lisp/elide-head.el
+++ b/lisp/elide-head.el
@@ -33,7 +33,7 @@
 ;; elision.
 
 ;; You might add `elide-head' to appropriate major mode hooks or to
-;; `find-file-hooks'.  Please do not do this in site init files.  If
+;; `find-file-hook'.  Please do not do this in site init files.  If
 ;; you do, information may be hidden from users who don't know it
 ;; already.
 
@@ -78,7 +78,7 @@ cdr."
 The header is made invisible with an overlay.  With a prefix arg, show
 an elided material again.
 
-This is suitable as an entry on `find-file-hooks' or appropriate mode hooks."
+This is suitable as an entry on `find-file-hook' or appropriate mode hooks."
   (interactive "P")
   (if arg
       (elide-head-show)

diff --git a/lisp/font-core.el b/lisp/font-core.el
index cf5e29d9eef6ed18c129662d64b1c3ade87e7a38..ff0bec65902d5fa0413843f99cd7fff683826a89 100644 (file)
--- a/lisp/font-core.el
+++ b/lisp/font-core.el
@@ -290,7 +290,7 @@ Sets various variables using `font-lock-defaults' (or, if nil, using
 ;; hook is run, the major mode is in the process of being changed and we do not
 ;; know what the final major mode will be.  So, `font-lock-change-major-mode'
 ;; only (a) notes the name of the current buffer, and (b) adds our function
-;; `turn-on-font-lock-if-enabled' to the hook variables `find-file-hooks' and
+;; `turn-on-font-lock-if-enabled' to the hook variables `find-file-hook' and
 ;; `post-command-hook' (for buffers that are not visiting files).  By the time
 ;; the functions on the first of these hooks to be run are run, the new major
 ;; mode is assumed to be in place.  This way we get a Font Lock function run

diff --git a/lisp/obsolete/hilit19.el b/lisp/obsolete/hilit19.el
index 305838eea26c6e5d8968ef7f8872969d740f598e..bc06583c69433bdc30dd606c75c81a4aac9c0900 100644 (file)
--- a/lisp/obsolete/hilit19.el
+++ b/lisp/obsolete/hilit19.el
@@ -956,7 +956,7 @@ the entire buffer is forced."
 
 (global-set-key [?\C-\S-l] 'hilit-repaint-command)
 
-(add-hook 'find-file-hooks 'hilit-find-file-hook t)
+(add-hook 'find-file-hook 'hilit-find-file-hook t)
 
 (eval-when-compile (require 'gnus))    ; no compilation gripes
 

diff --git a/lisp/play/meese.el b/lisp/play/meese.el
index 30793af6db706d2b2884967af1a339baf8bfe677..d811dacb9bc888633f0edff5199d64fbdacc9a62 100644 (file)
--- a/lisp/play/meese.el
+++ b/lisp/play/meese.el
@@ -31,7 +31,7 @@
            (insert-file-contents buffer-file-name t))
          (rename-buffer (file-name-nondirectory buffer-file-name))))))
 
-(add-hook 'find-file-hooks 'protect-innocence-hook)
+(add-hook 'find-file-hook 'protect-innocence-hook)
 (provide 'meese)
 
 ;;; meese.el ends here

diff --git a/lisp/saveplace.el b/lisp/saveplace.el
index 2b4a818464067fd9d89a8f48e737dabcb8b3c2e2..f3b99e6cdd8955a7546fd5b28ddc3e3ff8c148bd 100644 (file)
--- a/lisp/saveplace.el
+++ b/lisp/saveplace.el
@@ -230,7 +230,7 @@ To save places automatically in all files, put this in your `.emacs' file:
   (if save-place-loaded
       (save-place-alist-to-file)))
 
-(add-hook 'find-file-hooks 'save-place-find-file-hook t)
+(add-hook 'find-file-hook 'save-place-find-file-hook t)
 
 (add-hook 'kill-emacs-hook 'save-place-kill-emacs-hook)
 

diff --git a/lisp/smerge-mode.el b/lisp/smerge-mode.el
index 5ce9328048d931250c7aca5a556b6f49f9b982f2..83c2d6cb1caa994580bebfe089f7aca014c8077e 100644 (file)
--- a/lisp/smerge-mode.el
+++ b/lisp/smerge-mode.el
@@ -4,7 +4,7 @@
 
 ;; Author: Stefan Monnier <monnier@cs.yale.edu>
 ;; Keywords: merge diff3 cvs conflict
-;; Revision: $Id: smerge-mode.el,v 1.14 2001/07/31 08:28:43 gerd Exp $
+;; Revision: $Id: smerge-mode.el,v 1.15 2001/11/15 01:25:35 monnier Exp $
 
 ;; This file is part of GNU Emacs.
 
@@ -38,7 +38,7 @@
 ;;      (goto-char (point-min))
 ;;      (when (re-search-forward "^<<<<<<< " nil t)
 ;;        (smerge-mode 1))))
-;;   (add-hook 'find-file-hooks 'sm-try-smerge t)
+;;   (add-hook 'find-file-hook 'sm-try-smerge t)
 
 ;;; Todo:
 

diff --git a/lisp/uniquify.el b/lisp/uniquify.el
index 88f513de32cb07ddbe525f22e1e8d421bd5188b8..de5a2a231f2d253ded8272c447b8f3b3eb6c5c1f 100644 (file)
--- a/lisp/uniquify.el
+++ b/lisp/uniquify.el
@@ -352,7 +352,7 @@ in `uniquify-list-buffers-directory-modes', otherwise returns nil."
 ;; generate-new-buffer, which is called only by Lisp functions
 ;; create-file-buffer and rename-uniquely.  Rename-uniquely generally
 ;; isn't used for buffers visiting files, so it's sufficient to hook
-;; rename-buffer and create-file-buffer.  (Setting find-file-hooks isn't
+;; rename-buffer and create-file-buffer.  (Setting find-file-hook isn't
 ;; sufficient.)
 
 (defadvice rename-buffer (after rename-buffer-uniquify activate)

diff --git a/lisp/which-func.el b/lisp/which-func.el
index c594945d89e43993d6a30b836857928ba75c167b..aba47b964e4ef4f9c969f07fc688988c248bd9e5 100644 (file)
--- a/lisp/which-func.el
+++ b/lisp/which-func.el
@@ -58,7 +58,7 @@
 ;; Peter Eisenhauer <pipe@fzi.de>
 ;;     Bug fixing in case nested indexes.
 ;; Terry Tateyama   <ttt@ursa0.cs.utah.edu>
-;;     Suggestion to use find-file-hooks for first imenu
+;;     Suggestion to use find-file-hook for first imenu
 ;;     index building.
 
 ;;; Code:
@@ -131,7 +131,7 @@ This makes a difference only if `which-function-mode' is non-nil.")
 (make-variable-buffer-local 'which-func-mode)
 ;;(put 'which-func-mode 'permanent-local t)
 
-(add-hook 'find-file-hooks 'which-func-ff-hook t)
+(add-hook 'find-file-hook 'which-func-ff-hook t)
 
 (defun which-func-ff-hook ()
   "File find hook for Which Function mode.