[Emacs-diffs] /srv/bzr/emacs/trunk r110900: * lisp/imenu.el (imenu--split-submenus): Use imenu--subalist-p.

[Stefan Monnier]

------------------------------------------------------------
revno: 110900
fixes bug: http://debbugs.gnu.org/cgi/bugreport.cgi?bug=12717
author: Drew Adams <address@hidden>
committer: Stefan Monnier <address@hidden>
branch nick: trunk
timestamp: Wed 2012-11-14 21:02:00 -0500
message:
  * lisp/imenu.el (imenu--split-submenus): Use imenu--subalist-p.
modified:
  lisp/ChangeLog
  lisp/imenu.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2012-11-15 01:26:52 +0000
+++ b/lisp/ChangeLog    2012-11-15 02:02:00 +0000
@@ -1,3 +1,7 @@
+2012-11-15  Drew Adams  <address@hidden>
+
+       * imenu.el (imenu--split-submenus): Use imenu--subalist-p (bug#12717).
+
 2012-11-15  Stefan Monnier  <address@hidden>
 
        * emacs-lisp/cl-macs.el (cl--transform-lambda): Defend against

=== modified file 'lisp/imenu.el'
--- a/lisp/imenu.el     2012-10-29 09:58:49 +0000
+++ b/lisp/imenu.el     2012-11-15 02:02:00 +0000
@@ -546,9 +546,7 @@
 Return a split and sorted copy of ALIST.  The returned alist DOES
 NOT share structure with ALIST."
   (mapcar (lambda (elt)
-            (if (and (consp elt)
-                     (stringp (car elt))
-                     (listp (cdr elt)))
+            (if (imenu--subalist-p elt)
                 (imenu--split-menu (cdr elt) (car elt))
               elt))
          alist))