Mercurial > emacs
comparison lisp/imenu.el @ 20051:68621d697ee2
(imenu-add-to-menubar): If not using
imenu-default-create-index-function, don't require its variables.
author | Karl Heuer <kwzh@gnu.org> |
---|---|
date | Wed, 15 Oct 1997 23:00:25 +0000 |
parents | 720d1f98ae42 |
children | c42156dab61b |
comparison
equal
deleted
inserted
replaced
20050:8762dec6d161 | 20051:68621d697ee2 |
---|---|
900 (defun imenu-add-to-menubar (name) | 900 (defun imenu-add-to-menubar (name) |
901 "Adds an `imenu' entry to the menu bar for the current buffer. | 901 "Adds an `imenu' entry to the menu bar for the current buffer. |
902 NAME is a string used to name the menu bar item. | 902 NAME is a string used to name the menu bar item. |
903 See the command `imenu' for more information." | 903 See the command `imenu' for more information." |
904 (interactive "sImenu menu item name: ") | 904 (interactive "sImenu menu item name: ") |
905 (if (or (and (fboundp imenu-prev-index-position-function) | 905 (if (or (not (eq imenu-create-index-function |
906 'imenu-default-create-index-function)) | |
907 (and (fboundp imenu-prev-index-position-function) | |
906 (fboundp imenu-extract-index-name-function)) | 908 (fboundp imenu-extract-index-name-function)) |
907 (and imenu-generic-expression)) | 909 (and imenu-generic-expression)) |
908 (let ((newmap (make-sparse-keymap)) | 910 (let ((newmap (make-sparse-keymap)) |
909 (menu-bar (lookup-key (current-local-map) [menu-bar]))) | 911 (menu-bar (lookup-key (current-local-map) [menu-bar]))) |
910 (define-key newmap [menu-bar] | 912 (define-key newmap [menu-bar] |