Mercurial > emacs

comparison lisp/imenu.el @ 15374:6b1faae68eba

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(imenu--mouse-menu): Always use nested keymaps. (imenu-use-keymap-menu): Variable deleted.
author Richard M. Stallman <rms@gnu.org>
date Mon, 10 Jun 1996 17:30:50 +0000
parents cd47abda6c84
children 9691904c57a5
comparison
equal deleted inserted replaced
15373:76072cbcae84 15374:6b1faae68eba
62 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 62 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
63 ;;; 63 ;;;
64 ;;; Customizable variables 64 ;;; Customizable variables
65 ;;; 65 ;;;
66 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 66 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
67 (defvar imenu-use-keymap-menu nil
68 "*Non-nil means use a keymap when making the mouse menu.")
69 67
70 (defvar imenu-auto-rescan nil 68 (defvar imenu-auto-rescan nil
71 "*Non-nil means Imenu should always rescan the buffers.") 69 "*Non-nil means Imenu should always rescan the buffers.")
72 70
73 (defvar imenu-auto-rescan-maxout 60000 71 (defvar imenu-auto-rescan-maxout 60000
707 (prog1 (nreverse res) (setcdr res oldlist))) 705 (prog1 (nreverse res) (setcdr res oldlist)))
708 imenu-sort-function) 706 imenu-sort-function)
709 index-alist) 707 index-alist)
710 (or title (buffer-name)))) 708 (or title (buffer-name))))
711 position) 709 position)
712 (and imenu-use-keymap-menu 710 (setq menu (imenu--create-keymap-1 (car menu)
713 (setq menu (imenu--create-keymap-1 (car menu) 711 (if (< 1 (length (cdr menu)))
714 (if (< 1 (length (cdr menu))) 712 (cdr menu)
715 (cdr menu) 713 (cdr (cadr menu)))))
716 (cdr (cadr menu))))))
717
718 (or imenu-use-keymap-menu
719 (setq menu (list "Imenu" (delq nil menu))))
720 (setq position (x-popup-menu event menu)) 714 (setq position (x-popup-menu event menu))
721 (if imenu-use-keymap-menu 715 (if imenu-use-keymap-menu
722 (progn 716 (progn
723 (cond 717 (cond
724 ((and (listp position) 718 ((and (listp position)