bug#13576: 24.2.92; [PATCH] a bug in imenu--truncate-items

[Leo Liu]

According to documentation on imenu--index-alist, a special item looks
like:

        (INDEX-NAME POSITION FUNCTION ARGUMENTS...)

which fails imenu--truncate-items.

diff --git a/lisp/imenu.el b/lisp/imenu.el
index 80dacf93..649fc0a7 100644
--- a/lisp/imenu.el
+++ b/lisp/imenu.el
@@ -557,7 +557,7 @@ (defun imenu--truncate-items (menulist)
   "Truncate all strings in MENULIST to `imenu-max-item-length'."
   (mapcar (lambda (item)
             (cond
-             ((consp (cdr item))
+             ((imenu--subalist-p item)
               (imenu--truncate-items (cdr item)))
              ;; truncate if necessary
              ((and (numberp imenu-max-item-length)