Mercurial > emacs

comparison lisp/which-func.el @ 22308:87366acfb1e9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(which-func-ff-hook): If imenu gets error, clear which-func-mode.
author Karl Heuer <kwzh@gnu.org>
date Mon, 01 Jun 1998 03:09:43 +0000
parents 29c2db002dd5
children 114211878bf9
comparison
equal deleted inserted replaced
22307:57d1e5467c24 22308:87366acfb1e9
134 It creates the Imenu index for the buffer, if necessary." 134 It creates the Imenu index for the buffer, if necessary."
135 (if (or (eq which-func-modes t) (member major-mode which-func-modes)) 135 (if (or (eq which-func-modes t) (member major-mode which-func-modes))
136 (setq which-func-mode which-func-mode-global) 136 (setq which-func-mode which-func-mode-global)
137 (setq which-func-mode nil)) 137 (setq which-func-mode nil))
138 138
139 (if (and which-func-mode 139 (condition-case nil
140 (not (member major-mode which-func-non-auto-modes)) 140 (if (and which-func-mode
141 (or (< buffer-saved-size which-func-maxout) 141 (not (member major-mode which-func-non-auto-modes))
142 (= which-func-maxout 0))) 142 (or (< buffer-saved-size which-func-maxout)
143 (setq imenu--index-alist 143 (= which-func-maxout 0)))
144 (save-excursion (funcall imenu-create-index-function))))) 144 (setq imenu--index-alist
145 (save-excursion (funcall imenu-create-index-function))))
146 (error
147 (setq which-func-mode nil))))
145 148
146 (defun which-func-update () 149 (defun which-func-update ()
147 ;; Update the string containing the current function. 150 ;; Update the string containing the current function.
148 (condition-case info 151 (condition-case info
149 (progn 152 (progn