Mercurial > emacs
changeset 15411:9691904c57a5
(imenu--mouse-menu): Don't check imenu-use-keymap-menu.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Wed, 12 Jun 1996 15:00:48 +0000 |
| parents | 559d91fe836a |
| children | 7824cf167226 |
| files | lisp/imenu.el |
| diffstat | 1 files changed, 24 insertions(+), 28 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/imenu.el Wed Jun 12 14:43:51 1996 +0000 +++ b/lisp/imenu.el Wed Jun 12 15:00:48 1996 +0000 @@ -712,34 +712,30 @@ (cdr menu) (cdr (cadr menu))))) (setq position (x-popup-menu event menu)) - (if imenu-use-keymap-menu - (progn - (cond - ((and (listp position) - (numberp (car position)) - (stringp (nth (1- (length position)) position))) - (setq position (nth (1- (length position)) position))) - ((and (stringp (car position)) - (null (cdr position))) - (setq position (car position)))))) - (cond - ((eq position nil) - position) - ((listp position) - (imenu--mouse-menu position event - (if title - (concat title imenu-level-separator - (car (rassq position index-alist))) - (car (rassq position index-alist))))) - ((stringp position) - (or (string= position (car imenu--rescan-item)) - (imenu--in-alist position index-alist))) - ((or (= position (cdr imenu--rescan-item)) - (and (stringp position) - (string= position (car imenu--rescan-item)))) - t) - (t - (rassq position index-alist))))) + (cond ((and (listp position) + (numberp (car position)) + (stringp (nth (1- (length position)) position))) + (setq position (nth (1- (length position)) position))) + ((and (stringp (car position)) + (null (cdr position))) + (setq position (car position)))) + (cond ((eq position nil) + position) + ((listp position) + (imenu--mouse-menu position event + (if title + (concat title imenu-level-separator + (car (rassq position index-alist))) + (car (rassq position index-alist))))) + ((stringp position) + (or (string= position (car imenu--rescan-item)) + (imenu--in-alist position index-alist))) + ((or (= position (cdr imenu--rescan-item)) + (and (stringp position) + (string= position (car imenu--rescan-item)))) + t) + (t + (rassq position index-alist))))) (defun imenu-choose-buffer-index (&optional prompt alist) "Let the user select from a buffer index and return the chosen index.