diff options
| author | Drew Adams <drew.adams@oracle.com> | 2012-11-14 21:02:00 -0500 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2012-11-14 21:02:00 -0500 |
| commit | 875ce3a7c5cb1b1b49cad6f1ecdff752c7923a70 (patch) | |
| tree | 7134819f369759f34d5dee37529bb015ab823030 /lisp/imenu.el | |
| parent | 589fc4791fb569279b23e5a09243115a7b52cf74 (diff) | |
| download | emacs-875ce3a7c5cb1b1b49cad6f1ecdff752c7923a70.tar.gz | |
* lisp/imenu.el (imenu--split-submenus): Use imenu--subalist-p.
Fixes: debbugs:12717
Diffstat (limited to 'lisp/imenu.el')
| -rw-r--r-- | lisp/imenu.el | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/lisp/imenu.el b/lisp/imenu.el index 4686d1cf538..1d3da2db15b 100644 --- a/lisp/imenu.el +++ b/lisp/imenu.el @@ -546,9 +546,7 @@ The returned alist DOES NOT share structure with MENULIST." 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)) |