# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1112105811 0
# Node ID dc55bf752d7c79d29db1963cb59d952aa8fd0370
# Parent  92798b3ec45d95d71423538d49ef76f1d461ae53
(which-function): Be robust in the face of an
imenu--make-index-alist failure.

diff -r 92798b3ec45d -r dc55bf752d7c lisp/progmodes/which-func.el
--- a/lisp/progmodes/which-func.el	Tue Mar 29 14:13:15 2005 +0000
+++ b/lisp/progmodes/which-func.el	Tue Mar 29 14:16:51 2005 +0000
@@ -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 @@
     (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 @@
 
 (provide 'which-func)
 
-;;; arch-tag: fa8a55c7-bfe3-4ffc-95ab-01bf21796827
+;; arch-tag: fa8a55c7-bfe3-4ffc-95ab-01bf21796827
 ;;; which-func.el ends here