Mercurial > emacs
comparison lisp/imenu.el @ 14798:8557ab78a821
(imenu--mouse-menu): Pass proper arg to x-popup-menu.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sat, 09 Mar 1996 00:32:05 +0000 |
| parents | 29e7001fecf0 |
| children | 485422b900d3 |
comparison
equal
deleted
inserted
replaced
| 14797:a790ae4a71ba | 14798:8557ab78a821 |
|---|---|
| 711 (and imenu-use-keymap-menu | 711 (and imenu-use-keymap-menu |
| 712 (setq menu (imenu--create-keymap-1 (car menu) | 712 (setq menu (imenu--create-keymap-1 (car menu) |
| 713 (if (< 1 (length (cdr menu))) | 713 (if (< 1 (length (cdr menu))) |
| 714 (cdr menu) | 714 (cdr menu) |
| 715 (cdr (cadr menu)))))) | 715 (cdr (cadr menu)))))) |
| 716 | |
| 717 (or imenu-use-keymap-menu | |
| 718 (setq menu (list "Imenu" (delq nil menu)))) | |
| 716 (setq position (x-popup-menu event menu)) | 719 (setq position (x-popup-menu event menu)) |
| 717 (if imenu-use-keymap-menu | 720 (if imenu-use-keymap-menu |
| 718 (progn | 721 (progn |
| 719 (cond | 722 (cond |
| 720 ((and (listp position) | 723 ((and (listp position) |