Mercurial > emacs

comparison lisp/imenu.el @ 91327:606f2d163a64

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Merge from emacs--devo--0 Revision: emacs@sv.gnu.org/emacs--unicode--0--patch-312
author Miles Bader <miles@gnu.org>
date Wed, 09 Jan 2008 01:21:15 +0000
parents 424b655804ca 4c3c683cdff8
children
comparison
equal deleted inserted replaced
91326:b1a63d7fa09c 91327:606f2d163a64
1 ;;; imenu.el --- framework for mode-specific buffer indexes 1 ;;; imenu.el --- framework for mode-specific buffer indexes
2 2
3 ;; Copyright (C) 1994, 1995, 1996, 1997, 1998, 2001, 2002, 2003, 2004, 3 ;; Copyright (C) 1994, 1995, 1996, 1997, 1998, 2001, 2002, 2003, 2004,
4 ;; 2005, 2006, 2007 Free Software Foundation, Inc. 4 ;; 2005, 2006, 2007, 2008 Free Software Foundation, Inc.
5 5
6 ;; Author: Ake Stenhoff <etxaksf@aom.ericsson.se> 6 ;; Author: Ake Stenhoff <etxaksf@aom.ericsson.se>
7 ;; Lars Lindberg <lli@sypro.cap.se> 7 ;; Lars Lindberg <lli@sypro.cap.se>
8 ;; Maintainer: FSF 8 ;; Maintainer: FSF
9 ;; Created: 8 Feb 1994 9 ;; Created: 8 Feb 1994
952 (setq imenu--last-menubar-index-alist nil) 952 (setq imenu--last-menubar-index-alist nil)
953 (define-key newmap [menu-bar index] 953 (define-key newmap [menu-bar index]
954 `(menu-item ,name ,(make-sparse-keymap "Imenu"))) 954 `(menu-item ,name ,(make-sparse-keymap "Imenu")))
955 (use-local-map newmap) 955 (use-local-map newmap)
956 (add-hook 'menu-bar-update-hook 'imenu-update-menubar)) 956 (add-hook 'menu-bar-update-hook 'imenu-update-menubar))
957 (error "The mode `%s' does not support Imenu" mode-name))) 957 (error "The mode `%s' does not support Imenu"
958 (format-mode-line mode-name))))
958 959
959 ;;;###autoload 960 ;;;###autoload
960 (defun imenu-add-menubar-index () 961 (defun imenu-add-menubar-index ()
961 "Add an Imenu \"Index\" entry on the menu bar for the current buffer. 962 "Add an Imenu \"Index\" entry on the menu bar for the current buffer.
962 963