Mercurial > emacs

comparison lisp/which-func.el @ 46899:f00337f04e78

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Use find-file-hook instead of find-file-hooks.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Thu, 15 Aug 2002 00:48:20 +0000
parents 9e8cfa1e3b05
children e88404e8f2cf
comparison
equal deleted inserted replaced
46898:0b0448a9c183 46899:f00337f04e78
56 ;; and toggling this mode) have been borrowed from his package 56 ;; and toggling this mode) have been borrowed from his package
57 ;; column.el 57 ;; column.el
58 ;; Peter Eisenhauer <pipe@fzi.de> 58 ;; Peter Eisenhauer <pipe@fzi.de>
59 ;; Bug fixing in case nested indexes. 59 ;; Bug fixing in case nested indexes.
60 ;; Terry Tateyama <ttt@ursa0.cs.utah.edu> 60 ;; Terry Tateyama <ttt@ursa0.cs.utah.edu>
61 ;; Suggestion to use find-file-hooks for first imenu 61 ;; Suggestion to use find-file-hook for first imenu
62 ;; index building. 62 ;; index building.
63 63
64 ;;; Code: 64 ;;; Code:
65 65
66 ;; Variables for customization 66 ;; Variables for customization
129 "Non-nil means display current function name in mode line. 129 "Non-nil means display current function name in mode line.
130 This makes a difference only if `which-function-mode' is non-nil.") 130 This makes a difference only if `which-function-mode' is non-nil.")
131 (make-variable-buffer-local 'which-func-mode) 131 (make-variable-buffer-local 'which-func-mode)
132 ;;(put 'which-func-mode 'permanent-local t) 132 ;;(put 'which-func-mode 'permanent-local t)
133 133
134 (add-hook 'find-file-hooks 'which-func-ff-hook t) 134 (add-hook 'find-file-hook 'which-func-ff-hook t)
135 135
136 (defun which-func-ff-hook () 136 (defun which-func-ff-hook ()
137 "File find hook for Which Function mode. 137 "File find hook for Which Function mode.
138 It creates the Imenu index for the buffer, if necessary." 138 It creates the Imenu index for the buffer, if necessary."
139 (setq which-func-mode 139 (setq which-func-mode