Commit 1a4914f3 authored by Stefan Monnier's avatar Stefan Monnier
Browse files

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

parent 06772363
......@@ -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
......@@ -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
......@@ -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
......@@ -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
......@@ -230,7 +230,7 @@ To save places automatically in all files, put this in your `.emacs' file:
(if save-place-loaded
(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)
......@@ -4,7 +4,7 @@
;; Author: Stefan Monnier <>
;; 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:
......@@ -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)
......@@ -58,7 +58,7 @@
;; Peter Eisenhauer <>
;; Bug fixing in case nested indexes.
;; Terry Tateyama <>
;; 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.
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment