58 |
;; Peter Eisenhauer <pipe@fzi.de> |
;; Peter Eisenhauer <pipe@fzi.de> |
59 |
;; Bug fixing in case nested indexes. |
;; Bug fixing in case nested indexes. |
60 |
;; Terry Tateyama <ttt@ursa0.cs.utah.edu> |
;; Terry Tateyama <ttt@ursa0.cs.utah.edu> |
61 |
;; Suggestion to use find-file-hooks for first imenu |
;; Suggestion to use find-file-hook for first imenu |
62 |
;; index building. |
;; index building. |
63 |
|
|
64 |
;;; Code: |
;;; Code: |
65 |
|
|
66 |
;; Variables for customization |
;; Variables for customization |
67 |
;; --------------------------- |
;; --------------------------- |
68 |
;; |
;; |
69 |
(defvar which-func-unknown "???" |
(defvar which-func-unknown "???" |
70 |
"String to display in the mode line when current function is unknown.") |
"String to display in the mode line when current function is unknown.") |
71 |
|
|
131 |
(make-variable-buffer-local 'which-func-mode) |
(make-variable-buffer-local 'which-func-mode) |
132 |
;;(put 'which-func-mode 'permanent-local t) |
;;(put 'which-func-mode 'permanent-local t) |
133 |
|
|
134 |
(add-hook 'find-file-hooks 'which-func-ff-hook t) |
(add-hook 'find-file-hook 'which-func-ff-hook t) |
135 |
|
|
136 |
(defun which-func-ff-hook () |
(defun which-func-ff-hook () |
137 |
"File find hook for Which Function mode. |
"File find hook for Which Function mode. |