# HG changeset patch
# User Dave Love <fx@gnu.org>
# Date 979239869 0
# Node ID 569b2a1b20dfb637a012186c8af5b5aa911c7f38
# Parent  910222f6a03c8dac289b937d5bc6324703cb4715
(imenu--truncate-items): Revert last change.

diff -r 910222f6a03c -r 569b2a1b20df lisp/imenu.el
--- a/lisp/imenu.el	Thu Jan 11 16:44:28 2001 +0000
+++ b/lisp/imenu.el	Thu Jan 11 19:04:29 2001 +0000
@@ -557,15 +557,18 @@
 
 ;;; 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)