mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-10 15:56:18 +00:00
Code Issues Releases Activity

* lisp/imenu.el (imenu--split-submenus): Use imenu--subalist-p.

Browse Source 
Fixes: debbugs:12717
This commit is contained in:
Drew Adams 2012-11-14 21:02:00 -05:00 committed by Stefan Monnier
parent 589fc4791f
commit 875ce3a7c5
2 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/ChangeLog
View File

@ -1,3 +1,7 @@
2012-11-15 Drew Adams <drew.adams@oracle.com>
* imenu.el (imenu--split-submenus): Use imenu--subalist-p (bug#12717).
2012-11-15 Stefan Monnier <monnier@iro.umontreal.ca> 2012-11-15 Stefan Monnier <monnier@iro.umontreal.ca>
* emacs-lisp/cl-macs.el (cl--transform-lambda): Defend against * emacs-lisp/cl-macs.el (cl--transform-lambda): Defend against

4
lisp/imenu.el
View File

@ -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 Return a split and sorted copy of ALIST. The returned alist DOES
NOT share structure with ALIST." NOT share structure with ALIST."
(mapcar (lambda (elt) (mapcar (lambda (elt)
(if (and (consp elt) (if (imenu--subalist-p elt)
(stringp (car elt))
(listp (cdr elt)))
(imenu--split-menu (cdr elt) (car elt)) (imenu--split-menu (cdr elt) (car elt))
elt)) elt))
alist)) alist))