(imenu--truncate-items): Revert last change.

diff --git a/lisp/imenu.el b/lisp/imenu.el
index 1457f6f861ca87d84e4938c9e33a3efea359ee88..486fb0d23946b7122bf22850f3004f2d16db61eb 100644 (file)
--- a/lisp/imenu.el
+++ b/lisp/imenu.el
@@ -557,15 +557,18 @@ This variable is local in all buffers, once set.")
 
 ;;; Truncate all strings in MENULIST to imenu-max-item-length
 (defun imenu--truncate-items (menulist)
-  (dolist (item menulist)
-    (cond
-     ((consp (cdr item))
-      (imenu--truncate-items (cdr item)))
-     (t
-      ;; truncate if necessary
-      (if (and (numberp imenu-max-item-length)
-              (> (length (car item)) imenu-max-item-length))
-         (setcar item (substring (car item) 0 imenu-max-item-length)))))))
+  (mapcar (function
+          (lambda (item)
+            (cond
+             ((consp (cdr item))
+              (imenu--truncate-items (cdr item)))
+             (t
+              ;; truncate if necessary
+              (if (and (numberp imenu-max-item-length)
+                       (> (length (car item)) imenu-max-item-length))
+                  (setcar item (substring (car item) 0
+                                          imenu-max-item-length)))))))
+         menulist))
 
 
 (defun imenu--make-index-alist (&optional noerror)