# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 907182143 0
# Node ID df3df03d8a197bace16dd1085c7babe09d5891ff
# Parent  081564884463f471864b97547cd0cb2d2310a6cd
(which-function): Handle case when (car imenu--index-alist) is nil.

diff -r 081564884463 -r df3df03d8a19 lisp/which-func.el
--- a/lisp/which-func.el	Tue Sep 29 18:20:36 1998 +0000
+++ b/lisp/which-func.el	Wed Sep 30 19:02:23 1998 +0000
@@ -204,8 +204,9 @@
    (let ((pair (car-safe imenu--index-alist))
          (rest (cdr-safe imenu--index-alist))
          (name nil))
-     (while (and pair (or (not (number-or-marker-p (cdr pair)))
-			  (> (point) (cdr pair))))
+     (while (and (or rest pair)
+		 (or (not (number-or-marker-p (cdr pair)))
+		     (> (point) (cdr pair))))
        (setq name (car pair))
        (setq pair (car-safe rest))
        (setq rest (cdr-safe rest)))