Hi,
That appears to be an oversight on my part. The patch below was
briefly tested with an unreleased copy of semantic-imenu.el in
terminal mode. It appears to work. If it doesn't apply perhaps
someone can back port it.
Another exercise appears to be making `imenu-max-item-length' work.
Eric
*** semantic-imenu.el 2000/12/07 04:51:52 1.20
--- semantic-imenu.el 2001/01/05 20:27:28
***************
*** 1,6 ****
;;; semantic-imenu.el --- Use the Bovinator as a imenu tag generateor
! ;;; Copyright (C) 2000 Paul Kinnucan & Eric Ludlam
;; Author: Paul Kinnucan, Eric Ludlam
;; X-RCS: $Id: semantic-imenu.el,v 1.20 2000/12/07 04:51:52 zappo Exp zappo $
--- 1,6 ----
;;; semantic-imenu.el --- Use the Bovinator as a imenu tag generateor
! ;;; Copyright (C) 2000, 2001 Paul Kinnucan & Eric Ludlam
;; Author: Paul Kinnucan, Eric Ludlam
;; X-RCS: $Id: semantic-imenu.el,v 1.20 2000/12/07 04:51:52 zappo Exp zappo $
***************
*** 189,205 ****
(semantic-token-overlay token))
index)))
(setq tokens (cdr tokens)))
! ;; Imenu wasn't capturing this, so add the code from imenu.el
! ;; into this sub-sub section.
! (if imenu-sort-function
! (sort (let ((res nil)
! (oldlist index))
! ;; Copy list method from the cl package `copy-list'
! (while (consp oldlist) (push (pop oldlist) res))
! (if res ; in case, e.g. no functions defined
! (prog1 (nreverse res) (setcdr res oldlist))))
! imenu-sort-function)
! (nreverse index))))
;;; Interactive Utilities
;;
--- 189,215 ----
(semantic-token-overlay token))
index)))
(setq tokens (cdr tokens)))
! (setq index
! ;; Imenu wasn't capturing this, so add the code from imenu.el
! ;; into this sub-sub section.
! (if imenu-sort-function
! (sort (let ((res nil)
! (oldlist index))
! ;; Copy list method from the cl package `copy-list'
! (while (consp oldlist) (push (pop oldlist) res))
! (if res ; in case, e.g. no functions defined
! (prog1 (nreverse res) (setcdr res oldlist))))
! imenu-sort-function)
! (nreverse index)))
! (if (> (length index) imenu-max-items)
! (let ((count 0))
! (setq index
! (mapcar
! (function
! (lambda (menu)
! (cons (format "From: %s" (caar menu)) menu)))
! (imenu--split index imenu-max-items)))))
! index))
;;; Interactive Utilities
;;
>>> Charles Rich <[EMAIL PROTECTED]> seems to think that:
>Paul/David/Eric,
>
> I never got an answer to the posting below, and the problem is
>beginning to really bother me, so I spent a while this morning poring
>over the sources for imenu, jde-imenu and speedbar to see if there is
>some way to get the JDE Classes menu bar to break up a long list of
>method names into a hierarchical menu (e.g., by alphabetical groups),
>so it fits on the screen.
>
> There seems to be a _lot_ of customization available, and it appears
>to me that speedbar already does this kind of cleverness, but I
>couldn't figure out how to make jde-imenu bar do something similar.
>
> Can any of you authors, who are already familiar with this
>complicated stuff, tell me how to do this? Actually, it wouldn't be a
>bad idea to make the maximum number of JDE Class imenu items a
>customizable option. Btw, I tried imenu-max-items, but it seemed to
>have no effect...
>
> Thanks in advance, C. Rich
>________________________________________________________________
>
>From: Charles Rich
>Subject: Toolbar pull down imenu of methods longer than screen
>Date: Thu, 21 Dec 2000 08:15:05 -0800
>
> [Please reply also to [EMAIL PROTECTED], since I am not regularly on the jde
> mailing list]
>
> In JDE2.2.6 in FSF Emacs 20.6.1 on NT, if I have a lot of methods in a
> file, the toolbar pulldown imenu of methods names is longer than the
> screen and it just get cut off---I can't figure out any way to scroll it
> or have it wrap or something....
>
> Anyone else have this problem, or have a solution??
--
Eric Ludlam: [EMAIL PROTECTED], [EMAIL PROTECTED]
Home: www.ultranet.com/~zappo Siege: www.siege-engine.com
Emacs: www.ultranet.com/~zappo/fsf.shtml GNU: www.gnu.org
