Nice, thanks! It works for me. -CR
> Date: Fri, 5 Jan 2001 15:29:27 -0500
> From: "Eric M. Ludlam" <[EMAIL PROTECTED]>
> CC: [EMAIL PROTECTED], [EMAIL PROTECTED], [EMAIL PROTECTED], [EMAIL PROTECTED]
> Reply-to: [EMAIL PROTECTED]
>
> 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
--
Charles Rich | Mitsubishi Electric Research Laboratories
617-621-7507 phone | 201 Broadway
617-621-7550 fax | Cambridge, MA 02139
[EMAIL PROTECTED] | http://www.merl.com
