diff options
| author | Dave Love | 2001-01-11 19:04:29 +0000 |
|---|---|---|
| committer | Dave Love | 2001-01-11 19:04:29 +0000 |
| commit | 117be359bf4253cccaf522846ccc2192537bdc10 (patch) | |
| tree | f57546ea564d0782ab9c06553431f9aea48e849e | |
| parent | 3280fbe885ab0b9d16e898a44032338eda5840fe (diff) | |
| download | emacs-117be359bf4253cccaf522846ccc2192537bdc10.tar.gz emacs-117be359bf4253cccaf522846ccc2192537bdc10.zip | |
(imenu--truncate-items): Revert last change.
| -rw-r--r-- | lisp/imenu.el | 21 |
1 files changed, 12 insertions, 9 deletions
diff --git a/lisp/imenu.el b/lisp/imenu.el index 1457f6f861c..486fb0d2394 100644 --- a/lisp/imenu.el +++ b/lisp/imenu.el | |||
| @@ -557,15 +557,18 @@ This variable is local in all buffers, once set.") | |||
| 557 | 557 | ||
| 558 | ;;; Truncate all strings in MENULIST to imenu-max-item-length | 558 | ;;; Truncate all strings in MENULIST to imenu-max-item-length |
| 559 | (defun imenu--truncate-items (menulist) | 559 | (defun imenu--truncate-items (menulist) |
| 560 | (dolist (item menulist) | 560 | (mapcar (function |
| 561 | (cond | 561 | (lambda (item) |
| 562 | ((consp (cdr item)) | 562 | (cond |
| 563 | (imenu--truncate-items (cdr item))) | 563 | ((consp (cdr item)) |
| 564 | (t | 564 | (imenu--truncate-items (cdr item))) |
| 565 | ;; truncate if necessary | 565 | (t |
| 566 | (if (and (numberp imenu-max-item-length) | 566 | ;; truncate if necessary |
| 567 | (> (length (car item)) imenu-max-item-length)) | 567 | (if (and (numberp imenu-max-item-length) |
| 568 | (setcar item (substring (car item) 0 imenu-max-item-length))))))) | 568 | (> (length (car item)) imenu-max-item-length)) |
| 569 | (setcar item (substring (car item) 0 | ||
| 570 | imenu-max-item-length))))))) | ||
| 571 | menulist)) | ||
| 569 | 572 | ||
| 570 | 573 | ||
| 571 | (defun imenu--make-index-alist (&optional noerror) | 574 | (defun imenu--make-index-alist (&optional noerror) |