diff options
| author | Richard M. Stallman | 1996-06-12 15:00:48 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1996-06-12 15:00:48 +0000 |
| commit | 27f94c9b4793e83d9bb02e0e0c225201032cf41b (patch) | |
| tree | c9d0ab6fb4dedc2be23446557abdc46d24f663b6 | |
| parent | a4ad4d960251ff971cc4933a05c19706d79522c3 (diff) | |
| download | emacs-27f94c9b4793e83d9bb02e0e0c225201032cf41b.tar.gz emacs-27f94c9b4793e83d9bb02e0e0c225201032cf41b.zip | |
(imenu--mouse-menu): Don't check imenu-use-keymap-menu.
| -rw-r--r-- | lisp/imenu.el | 52 |
1 files changed, 24 insertions, 28 deletions
diff --git a/lisp/imenu.el b/lisp/imenu.el index b555ba83b30..0ad476ad48f 100644 --- a/lisp/imenu.el +++ b/lisp/imenu.el | |||
| @@ -712,34 +712,30 @@ Returns t for rescan and otherwise a position number." | |||
| 712 | (cdr menu) | 712 | (cdr menu) |
| 713 | (cdr (cadr menu))))) | 713 | (cdr (cadr menu))))) |
| 714 | (setq position (x-popup-menu event menu)) | 714 | (setq position (x-popup-menu event menu)) |
| 715 | (if imenu-use-keymap-menu | 715 | (cond ((and (listp position) |
| 716 | (progn | 716 | (numberp (car position)) |
| 717 | (cond | 717 | (stringp (nth (1- (length position)) position))) |
| 718 | ((and (listp position) | 718 | (setq position (nth (1- (length position)) position))) |
| 719 | (numberp (car position)) | 719 | ((and (stringp (car position)) |
| 720 | (stringp (nth (1- (length position)) position))) | 720 | (null (cdr position))) |
| 721 | (setq position (nth (1- (length position)) position))) | 721 | (setq position (car position)))) |
| 722 | ((and (stringp (car position)) | 722 | (cond ((eq position nil) |
| 723 | (null (cdr position))) | 723 | position) |
| 724 | (setq position (car position)))))) | 724 | ((listp position) |
| 725 | (cond | 725 | (imenu--mouse-menu position event |
| 726 | ((eq position nil) | 726 | (if title |
| 727 | position) | 727 | (concat title imenu-level-separator |
| 728 | ((listp position) | 728 | (car (rassq position index-alist))) |
| 729 | (imenu--mouse-menu position event | 729 | (car (rassq position index-alist))))) |
| 730 | (if title | 730 | ((stringp position) |
| 731 | (concat title imenu-level-separator | 731 | (or (string= position (car imenu--rescan-item)) |
| 732 | (car (rassq position index-alist))) | 732 | (imenu--in-alist position index-alist))) |
| 733 | (car (rassq position index-alist))))) | 733 | ((or (= position (cdr imenu--rescan-item)) |
| 734 | ((stringp position) | 734 | (and (stringp position) |
| 735 | (or (string= position (car imenu--rescan-item)) | 735 | (string= position (car imenu--rescan-item)))) |
| 736 | (imenu--in-alist position index-alist))) | 736 | t) |
| 737 | ((or (= position (cdr imenu--rescan-item)) | 737 | (t |
| 738 | (and (stringp position) | 738 | (rassq position index-alist))))) |
| 739 | (string= position (car imenu--rescan-item)))) | ||
| 740 | t) | ||
| 741 | (t | ||
| 742 | (rassq position index-alist))))) | ||
| 743 | 739 | ||
| 744 | (defun imenu-choose-buffer-index (&optional prompt alist) | 740 | (defun imenu-choose-buffer-index (&optional prompt alist) |
| 745 | "Let the user select from a buffer index and return the chosen index. | 741 | "Let the user select from a buffer index and return the chosen index. |