mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-03 22:20:52 -08:00
Code Issues Projects Releases Wiki Activity

(which-function): Be robust in the face of an

Browse source 
imenu--make-index-alist failure.
This commit is contained in:
Stefan Monnier 2005-03-29 14:18:00 +00:00
parent 8d194e3e9b
commit ef91372af5
2 changed files with 9 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -1,3 +1,8 @@
2005-03-29 Stephan Stahl <stahl@eos.franken.de> (tiny change)
* progmodes/which-func.el (which-function): Be robust in the face of an
imenu--make-index-alist failure.
2005-03-29 Stefan Monnier <monnier@iro.umontreal.ca>
* reveal.el (reveal-mode-map): Don't override C-a and C-e.

7
lisp/progmodes/which-func.el
View file

@ -1,6 +1,7 @@
;;; which-func.el --- print current function in mode line
;; Copyright (C) 1994, 1997, 1998, 2001, 2003 Free Software Foundation, Inc.
;; Copyright (C) 1994, 1997, 1998, 2001, 2003, 2005
;; Free Software Foundation, Inc.
;; Author: Alex Rezinsky <alexr@msil.sps.mot.com>
;; (doesn't seem to be responsive any more)
@ -251,7 +252,7 @@ If no function name is found, return nil."
(when (and (null name)
(boundp 'imenu--index-alist) (null imenu--index-alist)
(null which-function-imenu-failed))
(imenu--make-index-alist)
(imenu--make-index-alist t)
(unless imenu--index-alist
(make-local-variable 'which-function-imenu-failed)
(setq which-function-imenu-failed t)))
@ -291,5 +292,5 @@ If no function name is found, return nil."
(provide 'which-func)
;;; arch-tag: fa8a55c7-bfe3-4ffc-95ab-01bf21796827
;; arch-tag: fa8a55c7-bfe3-4ffc-95ab-01bf21796827
;;; which-func.el ends here