Mercurial > emacs
comparison lisp/imenu.el @ 12396:d0c82df80d70
(imenu-choose-buffer-index): Understand that (menu-bar)
doesn't specify a window.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Tue, 27 Jun 1995 10:05:22 +0000 |
| parents | 4fbc70e4d5e7 |
| children | f12b1374fb5b |
comparison
equal
deleted
inserted
replaced
| 12395:71727759437e | 12396:d0c82df80d70 |
|---|---|
| 962 (mouse-triggered (listp last-nonmenu-event)) | 962 (mouse-triggered (listp last-nonmenu-event)) |
| 963 (result t) ) | 963 (result t) ) |
| 964 ;; If selected by mouse, see to that the window where the mouse is | 964 ;; If selected by mouse, see to that the window where the mouse is |
| 965 ;; really is selected. | 965 ;; really is selected. |
| 966 (and mouse-triggered | 966 (and mouse-triggered |
| 967 (not (equal last-nonmenu-event '(menu-bar))) | |
| 967 (let ((window (posn-window (event-start last-nonmenu-event)))) | 968 (let ((window (posn-window (event-start last-nonmenu-event)))) |
| 968 (or (framep window) (select-window window)))) | 969 (or (framep window) (select-window window)))) |
| 969 ;; Create a list for this buffer only when needed. | 970 ;; Create a list for this buffer only when needed. |
| 970 (while (eq result t) | 971 (while (eq result t) |
| 971 (setq index-alist (if alist alist (imenu--make-index-alist))) | 972 (setq index-alist (if alist alist (imenu--make-index-alist))) |