emacs: lisp/imenu.el annotate

1 ;;; imenu.el --- framework for mode-specific buffer indexes

4c72f80598ae Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

2

64762

41bb365f41c4 Update years in copyright notice; nfc.

Thien-Thi Nguyen <ttn@gnuvola.org>

parents: 64091

68651

3bd95f4f2941 Update years in copyright notice; nfc.

Thien-Thi Nguyen <ttn@gnuvola.org>

parents: 64762

4 ;; 2005, 2006 Free Software Foundation, Inc.

4c72f80598ae Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

5

4c72f80598ae Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

6 ;; Author: Ake Stenhoff <etxaksf@aom.ericsson.se>

4c72f80598ae Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

7 ;; Lars Lindberg <lli@sypro.cap.se>

17970

720d1f98ae42 Comment change.

Richard M. Stallman <rms@gnu.org>

parents: 17677

8 ;; Maintainer: FSF

4c72f80598ae Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

9 ;; Created: 8 Feb 1994

22250

a77d473867b8 *** empty log message ***

Dan Nicolaescu <done@ece.arizona.edu>

parents: 21959

10 ;; Keywords: tools convenience

83f275dcd93a Update FSF's address.

Erik Naggum <erik@naggum.no>

parents: 14139

11

83f275dcd93a Update FSF's address.

Erik Naggum <erik@naggum.no>

parents: 14139

12 ;; This file is part of GNU Emacs.

83f275dcd93a Update FSF's address.

Erik Naggum <erik@naggum.no>

parents: 14139

13

83f275dcd93a Update FSF's address.

Erik Naggum <erik@naggum.no>

parents: 14139

14 ;; GNU Emacs is free software; you can redistribute it and/or modify

4c72f80598ae Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

15 ;; it under the terms of the GNU General Public License as published by

4c72f80598ae Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

16 ;; the Free Software Foundation; either version 2, or (at your option)

4c72f80598ae Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

17 ;; any later version.

83f275dcd93a Update FSF's address.

Erik Naggum <erik@naggum.no>

parents: 14139

18

83f275dcd93a Update FSF's address.

Erik Naggum <erik@naggum.no>

parents: 14139

19 ;; GNU Emacs is distributed in the hope that it will be useful,

4c72f80598ae Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

20 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of

4c72f80598ae Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

21 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the

4c72f80598ae Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

22 ;; GNU General Public License for more details.

83f275dcd93a Update FSF's address.

Erik Naggum <erik@naggum.no>

parents: 14139

23

4c72f80598ae Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

24 ;; You should have received a copy of the GNU General Public License

83f275dcd93a Update FSF's address.

Erik Naggum <erik@naggum.no>

parents: 14139

25 ;; along with GNU Emacs; see the file COPYING. If not, write to the

64091

6fb026ad601f Update FSF's address.

Lute Kamstra <lute@gnu.org>

parents: 63848

26 ;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,

6fb026ad601f Update FSF's address.

Lute Kamstra <lute@gnu.org>

parents: 63848

27 ;; Boston, MA 02110-1301, USA.

4c72f80598ae Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

28

4c72f80598ae Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

29 ;;; Commentary:

83f275dcd93a Update FSF's address.

Erik Naggum <erik@naggum.no>

parents: 14139

30

4c72f80598ae Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

31 ;; Purpose of this package:

4c72f80598ae Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

32 ;; To present a framework for mode-specific buffer indexes.

4c72f80598ae Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

33 ;; A buffer index is an alist of names and buffer positions.

4c72f80598ae Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

34 ;; For instance all functions in a C-file and their positions.

4c72f80598ae Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

35 ;;

5898cd2e4cd6 (imenu--generic-function): Doc fix. Rewritten to be faster.

Richard M. Stallman <rms@gnu.org>

parents: 20857

36 ;; It is documented in the Emacs Lisp manual.

5898cd2e4cd6 (imenu--generic-function): Doc fix. Rewritten to be faster.

Richard M. Stallman <rms@gnu.org>

parents: 20857

37 ;;

4c72f80598ae Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

38 ;; How it works:

4c72f80598ae Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

39

4c72f80598ae Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

40 ;; A mode-specific function is called to generate the index. It is

4c72f80598ae Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

41 ;; then presented to the user, who can choose from this index.

4c72f80598ae Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

42 ;;

4c72f80598ae Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

43 ;; The package comes with a set of example functions for how to

4c72f80598ae Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

44 ;; utilize this package.

4c72f80598ae Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

45

4fbc70e4d5e7 (imenu-use-keymap-menu): New variable.

Richard M. Stallman <rms@gnu.org>

parents: 10795

46 ;; There are *examples* for index gathering functions/regular

4fbc70e4d5e7 (imenu-use-keymap-menu): New variable.

Richard M. Stallman <rms@gnu.org>

parents: 10795

47 ;; expressions for C/C++ and Lisp/Emacs Lisp but it is easy to

4fbc70e4d5e7 (imenu-use-keymap-menu): New variable.

Richard M. Stallman <rms@gnu.org>

parents: 10795

48 ;; customize for other modes. A function for jumping to the chosen

4fbc70e4d5e7 (imenu-use-keymap-menu): New variable.

Richard M. Stallman <rms@gnu.org>

parents: 10795

49 ;; index position is also supplied.

4c72f80598ae Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

50

5898cd2e4cd6 (imenu--generic-function): Doc fix. Rewritten to be faster.

Richard M. Stallman <rms@gnu.org>

parents: 20857

51 ;;; History:

5898cd2e4cd6 (imenu--generic-function): Doc fix. Rewritten to be faster.

Richard M. Stallman <rms@gnu.org>

parents: 20857

52 ;; Thanks go to

49538e6c482e entered into RCS

Richard M. Stallman <rms@gnu.org>

parents: 6230

53 ;; [simon] - Simon Leinen simon@lia.di.epfl.ch

49538e6c482e entered into RCS

Richard M. Stallman <rms@gnu.org>

parents: 6230

54 ;; [dean] - Dean Andrews ada@unison.com

5898cd2e4cd6 (imenu--generic-function): Doc fix. Rewritten to be faster.

Richard M. Stallman <rms@gnu.org>

parents: 20857

55 ;; [alon] - Alon Albert al@mercury.co.il

9176

5646f9ac8ec3 (imenu--cleanup): Changed 'mapc' to 'mapcar'.

Richard M. Stallman <rms@gnu.org>

parents: 8408

56 ;; [greg] - Greg Thompson gregt@porsche.visix.COM

caafb376e619 (imenu-generic-expression): New variable.

Karl Heuer <kwzh@gnu.org>

parents: 10072

57 ;; [wolfgang] - Wolfgang Bangerth zcg51122@rpool1.rus.uni-stuttgart.de

10072

a7b70665c937 (imenu): Widen temporary before scan the file.

Richard M. Stallman <rms@gnu.org>

parents: 9176

58 ;; [kai] - Kai Grossjohann grossjoh@linus.informatik.uni-dortmund.de

10221

34b66bff7aec (imenu-always-use-completion-buffer-p): A value of

Richard M. Stallman <rms@gnu.org>

parents: 10093

59 ;; [david] - David M. Smith dsmith@stats.adelaide.edu.au

4fbc70e4d5e7 (imenu-use-keymap-menu): New variable.

Richard M. Stallman <rms@gnu.org>

parents: 10795

60 ;; [christian] - Christian Egli Christian.Egli@hcsd.hac.com

4fbc70e4d5e7 (imenu-use-keymap-menu): New variable.

Richard M. Stallman <rms@gnu.org>

parents: 10795

61 ;; [karl] - Karl Fogel kfogel@floss.life.uiuc.edu

4fbc70e4d5e7 (imenu-use-keymap-menu): New variable.

Richard M. Stallman <rms@gnu.org>

parents: 10795

62

38412

253f761ad37b Some fixes to follow coding conventions in files maintained by FSF.

Pavel Janík <Pavel@Janik.cz>

parents: 36637

63 ;;; Code:

83f275dcd93a Update FSF's address.

Erik Naggum <erik@naggum.no>

parents: 14139

64

9e59751db725 Require cl only at compile time.

Richard M. Stallman <rms@gnu.org>

parents: 6241

65 (eval-when-compile (require 'cl))

4c72f80598ae Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

66

4c72f80598ae Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

67 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

4c72f80598ae Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

68 ;;;

4c72f80598ae Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

69 ;;; Customizable variables

4c72f80598ae Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

70 ;;;

4c72f80598ae Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

71 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

4fbc70e4d5e7 (imenu-use-keymap-menu): New variable.

Richard M. Stallman <rms@gnu.org>

parents: 10795

72

247c2a11843d Use defgroup and defcustom.

Richard M. Stallman <rms@gnu.org>

parents: 17307

73 (defgroup imenu nil

247c2a11843d Use defgroup and defcustom.

Richard M. Stallman <rms@gnu.org>

parents: 17307

74 "Mode-specific buffer indexes."

247c2a11843d Use defgroup and defcustom.

Richard M. Stallman <rms@gnu.org>

parents: 17307

75 :group 'matching

5898cd2e4cd6 (imenu--generic-function): Doc fix. Rewritten to be faster.

Richard M. Stallman <rms@gnu.org>

parents: 20857

76 :group 'frames

22250

a77d473867b8 *** empty log message ***

Dan Nicolaescu <done@ece.arizona.edu>

parents: 21959

77 :group 'convenience

5898cd2e4cd6 (imenu--generic-function): Doc fix. Rewritten to be faster.

Richard M. Stallman <rms@gnu.org>

parents: 20857

78 :link '(custom-manual "(elisp)Imenu"))

247c2a11843d Use defgroup and defcustom.

Richard M. Stallman <rms@gnu.org>

parents: 17307

79

247c2a11843d Use defgroup and defcustom.

Richard M. Stallman <rms@gnu.org>

parents: 17307

80 (defcustom imenu-use-markers t

830ad59547e4 (imenu-default-goto-function): Simplify.

Richard M. Stallman <rms@gnu.org>

parents: 17230

81 "*Non-nil means use markers instead of integers for Imenu buffer positions.

5898cd2e4cd6 (imenu--generic-function): Doc fix. Rewritten to be faster.

Richard M. Stallman <rms@gnu.org>

parents: 20857

82

5898cd2e4cd6 (imenu--generic-function): Doc fix. Rewritten to be faster.

Richard M. Stallman <rms@gnu.org>

parents: 20857

83 Setting this to nil makes Imenu work a little faster but editing the

5898cd2e4cd6 (imenu--generic-function): Doc fix. Rewritten to be faster.

Richard M. Stallman <rms@gnu.org>

parents: 20857

84 buffer will make the generated index positions wrong.

830ad59547e4 (imenu-default-goto-function): Simplify.

Richard M. Stallman <rms@gnu.org>

parents: 17230

85

247c2a11843d Use defgroup and defcustom.

Richard M. Stallman <rms@gnu.org>

parents: 17307

86 This might not yet be honored by all index-building functions."

247c2a11843d Use defgroup and defcustom.

Richard M. Stallman <rms@gnu.org>

parents: 17307

87 :type 'boolean

247c2a11843d Use defgroup and defcustom.

Richard M. Stallman <rms@gnu.org>

parents: 17307

88 :group 'imenu)

247c2a11843d Use defgroup and defcustom.

Richard M. Stallman <rms@gnu.org>

parents: 17307

89

830ad59547e4 (imenu-default-goto-function): Simplify.

Richard M. Stallman <rms@gnu.org>

parents: 17230

90

247c2a11843d Use defgroup and defcustom.

Richard M. Stallman <rms@gnu.org>

parents: 17307

91 (defcustom imenu-max-item-length 60

247c2a11843d Use defgroup and defcustom.

Richard M. Stallman <rms@gnu.org>

parents: 17307

92 "*If a number, truncate Imenu entries to that length."

5898cd2e4cd6 (imenu--generic-function): Doc fix. Rewritten to be faster.

Richard M. Stallman <rms@gnu.org>

parents: 20857

93 :type '(choice integer

5898cd2e4cd6 (imenu--generic-function): Doc fix. Rewritten to be faster.

Richard M. Stallman <rms@gnu.org>

parents: 20857

94 (const :tag "Unlimited"))

247c2a11843d Use defgroup and defcustom.

Richard M. Stallman <rms@gnu.org>

parents: 17307

95 :group 'imenu)

830ad59547e4 (imenu-default-goto-function): Simplify.

Richard M. Stallman <rms@gnu.org>

parents: 17230

96

17677

3ab08563e855 (imenu-auto-rescan): Fix typo.

Richard M. Stallman <rms@gnu.org>

parents: 17634

97 (defcustom imenu-auto-rescan nil

247c2a11843d Use defgroup and defcustom.

Richard M. Stallman <rms@gnu.org>

parents: 17307

98 "*Non-nil means Imenu should always rescan the buffers."

247c2a11843d Use defgroup and defcustom.

Richard M. Stallman <rms@gnu.org>

parents: 17307

99 :type 'boolean

247c2a11843d Use defgroup and defcustom.

Richard M. Stallman <rms@gnu.org>

parents: 17307

100 :group 'imenu)

4fbc70e4d5e7 (imenu-use-keymap-menu): New variable.

Richard M. Stallman <rms@gnu.org>

parents: 10795

101

5898cd2e4cd6 (imenu--generic-function): Doc fix. Rewritten to be faster.

Richard M. Stallman <rms@gnu.org>

parents: 20857

102 (defcustom imenu-auto-rescan-maxout 60000

5898cd2e4cd6 (imenu--generic-function): Doc fix. Rewritten to be faster.

Richard M. Stallman <rms@gnu.org>

parents: 20857

103 "*Imenu auto-rescan is disabled in buffers larger than this size (in bytes).

247c2a11843d Use defgroup and defcustom.

Richard M. Stallman <rms@gnu.org>

parents: 17307

104 This variable is buffer-local."

247c2a11843d Use defgroup and defcustom.

Richard M. Stallman <rms@gnu.org>

parents: 17307

105 :type 'integer

247c2a11843d Use defgroup and defcustom.

Richard M. Stallman <rms@gnu.org>

parents: 17307

106 :group 'imenu)

4c72f80598ae Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

107

f8b45e2dec81 (imenu-always-use-completion-buffer-p): Make obsolete.

Stefan Monnier <monnier@iro.umontreal.ca>

parents: 43982

108 (defvar imenu-always-use-completion-buffer-p nil)

f8b45e2dec81 (imenu-always-use-completion-buffer-p): Make obsolete.

Stefan Monnier <monnier@iro.umontreal.ca>

parents: 43982

109 (make-obsolete-variable 'imenu-always-use-completion-buffer-p

59996

aac0a33f5772 Change release version from 21.4 to 22.1 throughout.

Kim F. Storm <storm@cua.dk>

parents: 59568

110 'imenu-use-popup-menu "22.1")

4c72f80598ae Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

111

f8b45e2dec81 (imenu-always-use-completion-buffer-p): Make obsolete.

Stefan Monnier <monnier@iro.umontreal.ca>

parents: 43982

112 (defcustom imenu-use-popup-menu

f8b45e2dec81 (imenu-always-use-completion-buffer-p): Make obsolete.

Stefan Monnier <monnier@iro.umontreal.ca>

parents: 43982

113 (if imenu-always-use-completion-buffer-p

f8b45e2dec81 (imenu-always-use-completion-buffer-p): Make obsolete.

Stefan Monnier <monnier@iro.umontreal.ca>

parents: 43982

114 (not (eq imenu-always-use-completion-buffer-p 'never))

f8b45e2dec81 (imenu-always-use-completion-buffer-p): Make obsolete.

Stefan Monnier <monnier@iro.umontreal.ca>

parents: 43982

115 'on-mouse)

f8b45e2dec81 (imenu-always-use-completion-buffer-p): Make obsolete.

Stefan Monnier <monnier@iro.umontreal.ca>

parents: 43982

116 "Use a popup menu rather than a minibuffer prompt.

f8b45e2dec81 (imenu-always-use-completion-buffer-p): Make obsolete.

Stefan Monnier <monnier@iro.umontreal.ca>

parents: 43982

117 If nil, always use a minibuffer prompt.

f8b45e2dec81 (imenu-always-use-completion-buffer-p): Make obsolete.

Stefan Monnier <monnier@iro.umontreal.ca>

parents: 43982

118 If t, always use a popup menu,

f8b45e2dec81 (imenu-always-use-completion-buffer-p): Make obsolete.

Stefan Monnier <monnier@iro.umontreal.ca>

parents: 43982

119 If `on-mouse' use a popup menu when `imenu' was invoked with the mouse."

f8b45e2dec81 (imenu-always-use-completion-buffer-p): Make obsolete.

Stefan Monnier <monnier@iro.umontreal.ca>

parents: 43982

120 :type '(choice (const :tag "On Mouse" on-mouse)

f8b45e2dec81 (imenu-always-use-completion-buffer-p): Make obsolete.

Stefan Monnier <monnier@iro.umontreal.ca>

parents: 43982

121 (const :tag "Never" nil)

62531

c905fcf5e3d9 Specify missing group (and type, if simple) in defcustom.

Juanma Barranquero <lekktu@gmail.com>

parents: 61769

122 (other :tag "Always" t))

c905fcf5e3d9 Specify missing group (and type, if simple) in defcustom.

Juanma Barranquero <lekktu@gmail.com>

parents: 61769

123 :group 'imenu)

f8b45e2dec81 (imenu-always-use-completion-buffer-p): Make obsolete.

Stefan Monnier <monnier@iro.umontreal.ca>

parents: 43982

124

f8b45e2dec81 (imenu-always-use-completion-buffer-p): Make obsolete.

Stefan Monnier <monnier@iro.umontreal.ca>

parents: 43982

125 (defcustom imenu-eager-completion-buffer

f8b45e2dec81 (imenu-always-use-completion-buffer-p): Make obsolete.

Stefan Monnier <monnier@iro.umontreal.ca>

parents: 43982

126 (not (eq imenu-always-use-completion-buffer-p 'never))

f8b45e2dec81 (imenu-always-use-completion-buffer-p): Make obsolete.

Stefan Monnier <monnier@iro.umontreal.ca>

parents: 43982

127 "If non-nil, eagerly popup the completion buffer."

57926

f697668630d7 (imenu-eager-completion-buffer): Add :version.

Richard M. Stallman <rms@gnu.org>

parents: 57775

128 :type 'boolean

f697668630d7 (imenu-eager-completion-buffer): Add :version.

Richard M. Stallman <rms@gnu.org>

parents: 57775

129 :group 'imenu

59996

aac0a33f5772 Change release version from 21.4 to 22.1 throughout.

Kim F. Storm <storm@cua.dk>

parents: 59568

130 :version "22.1")

4c72f80598ae Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

131

f1417ed050c0 (imenu-after-jump-hook): New variable.

Phillip Rulon <pjr@gnu.org>

parents: 24578

132 (defcustom imenu-after-jump-hook nil

f1417ed050c0 (imenu-after-jump-hook): New variable.

Phillip Rulon <pjr@gnu.org>

parents: 24578

133 "*Hooks called after jumping to a place in the buffer.

f1417ed050c0 (imenu-after-jump-hook): New variable.

Phillip Rulon <pjr@gnu.org>

parents: 24578

134

f1417ed050c0 (imenu-after-jump-hook): New variable.

Phillip Rulon <pjr@gnu.org>

parents: 24578

135 Useful things to use here include `reposition-window', `recenter', and

f1417ed050c0 (imenu-after-jump-hook): New variable.

Phillip Rulon <pjr@gnu.org>

parents: 24578

136 \(lambda () (recenter 0)) to show at top of screen."

f1417ed050c0 (imenu-after-jump-hook): New variable.

Phillip Rulon <pjr@gnu.org>

parents: 24578

137 :type 'hook

f1417ed050c0 (imenu-after-jump-hook): New variable.

Phillip Rulon <pjr@gnu.org>

parents: 24578

138 :group 'imenu)

f1417ed050c0 (imenu-after-jump-hook): New variable.

Phillip Rulon <pjr@gnu.org>

parents: 24578

139

434ac4a14be3 (imenu-create-index-function): Add autoload cookie.

Richard M. Stallman <rms@gnu.org>

parents: 22628

140 ;;;###autoload

247c2a11843d Use defgroup and defcustom.

Richard M. Stallman <rms@gnu.org>

parents: 17307

141 (defcustom imenu-sort-function nil

4c72f80598ae Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

142 "*The function to use for sorting the index mouse-menu.

4c72f80598ae Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

143

4c72f80598ae Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

144 Affects only the mouse index menu.

4c72f80598ae Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

145

4c72f80598ae Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

146 Set this to nil if you don't want any sorting (faster).

4c72f80598ae Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

147 The items in the menu are then presented in the order they were found

4c72f80598ae Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

148 in the buffer.

4c72f80598ae Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

149

9e59751db725 Require cl only at compile time.

Richard M. Stallman <rms@gnu.org>

parents: 6241

150 Set it to `imenu--sort-by-name' if you want alphabetic sorting.

4c72f80598ae Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

151

3812bb3ae006 (imenu--generic-function): Sort each submenu by position.

Karl Heuer <kwzh@gnu.org>

parents: 22798

152 The function should take two arguments and return t if the first

4c72f80598ae Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

153 element should come before the second. The arguments are cons cells;

247c2a11843d Use defgroup and defcustom.

Richard M. Stallman <rms@gnu.org>

parents: 17307

154 \(NAME . POSITION). Look at `imenu--sort-by-name' for an example."

5898cd2e4cd6 (imenu--generic-function): Doc fix. Rewritten to be faster.

Richard M. Stallman <rms@gnu.org>

parents: 20857

155 :type '(choice (const :tag "No sorting" nil)

24233

5e43fcb42e81 (imenu-sort-function): Fix custom type.

Richard M. Stallman <rms@gnu.org>

parents: 23358

156 (const :tag "Sort by name" imenu--sort-by-name)

5898cd2e4cd6 (imenu--generic-function): Doc fix. Rewritten to be faster.

Richard M. Stallman <rms@gnu.org>

parents: 20857

157 (function :tag "Another function"))

247c2a11843d Use defgroup and defcustom.

Richard M. Stallman <rms@gnu.org>

parents: 17307

158 :group 'imenu)

4c72f80598ae Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

159

247c2a11843d Use defgroup and defcustom.

Richard M. Stallman <rms@gnu.org>

parents: 17307

160 (defcustom imenu-max-items 25

247c2a11843d Use defgroup and defcustom.

Richard M. Stallman <rms@gnu.org>

parents: 17307

161 "*Maximum number of elements in a mouse menu for Imenu."

247c2a11843d Use defgroup and defcustom.

Richard M. Stallman <rms@gnu.org>

parents: 17307

162 :type 'integer

247c2a11843d Use defgroup and defcustom.

Richard M. Stallman <rms@gnu.org>

parents: 17307

163 :group 'imenu)

4c72f80598ae Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

164

57775

206e30bf844c (imenu-scanning-message): Remove.

Kim F. Storm <storm@cua.dk>

parents: 57717

165 ;; No longer used. KFS 2004-10-27

206e30bf844c (imenu-scanning-message): Remove.

Kim F. Storm <storm@cua.dk>

parents: 57717

166 ;; (defcustom imenu-scanning-message "Scanning buffer for index (%3d%%)"

206e30bf844c (imenu-scanning-message): Remove.

Kim F. Storm <storm@cua.dk>

parents: 57717

167 ;; "*Progress message during the index scanning of the buffer.

206e30bf844c (imenu-scanning-message): Remove.

Kim F. Storm <storm@cua.dk>

parents: 57717

168 ;; If non-nil, user gets a message during the scanning of the buffer.

206e30bf844c (imenu-scanning-message): Remove.

Kim F. Storm <storm@cua.dk>

parents: 57717

169 ;;

206e30bf844c (imenu-scanning-message): Remove.

Kim F. Storm <storm@cua.dk>

parents: 57717

170 ;; Relevant only if the mode-specific function that creates the buffer

206e30bf844c (imenu-scanning-message): Remove.

Kim F. Storm <storm@cua.dk>

parents: 57717

171 ;; index use `imenu-progress-message', and not useful if that is fast, in

206e30bf844c (imenu-scanning-message): Remove.

Kim F. Storm <storm@cua.dk>

parents: 57717

172 ;; which case you might as well set this to nil."

206e30bf844c (imenu-scanning-message): Remove.

Kim F. Storm <storm@cua.dk>

parents: 57717

173 ;; :type '(choice string

206e30bf844c (imenu-scanning-message): Remove.

Kim F. Storm <storm@cua.dk>

parents: 57717

174 ;; (const :tag "None" nil))

206e30bf844c (imenu-scanning-message): Remove.

Kim F. Storm <storm@cua.dk>

parents: 57717

175 ;; :group 'imenu)

4c72f80598ae Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

176

22628

d5a086ed37f5 (imenu-space-replacement): Use `.'.

Richard M. Stallman <rms@gnu.org>

parents: 22586

177 (defcustom imenu-space-replacement "."

4c72f80598ae Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

178 "*The replacement string for spaces in index names.

22628

d5a086ed37f5 (imenu-space-replacement): Use `.'.

Richard M. Stallman <rms@gnu.org>

parents: 22586

179 Used when presenting the index in a completion buffer to make the

247c2a11843d Use defgroup and defcustom.

Richard M. Stallman <rms@gnu.org>

parents: 17307

180 names work as tokens."

f8b45e2dec81 (imenu-always-use-completion-buffer-p): Make obsolete.

Stefan Monnier <monnier@iro.umontreal.ca>

parents: 43982

181 :type '(choice string (const nil))

247c2a11843d Use defgroup and defcustom.

Richard M. Stallman <rms@gnu.org>

parents: 17307

182 :group 'imenu)

4c72f80598ae Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

183

247c2a11843d Use defgroup and defcustom.

Richard M. Stallman <rms@gnu.org>

parents: 17307

184 (defcustom imenu-level-separator ":"

4c72f80598ae Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

185 "*The separator between index names of different levels.

4c72f80598ae Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

186 Used for making mouse-menu titles and for flattening nested indexes

247c2a11843d Use defgroup and defcustom.

Richard M. Stallman <rms@gnu.org>

parents: 17307

187 with name concatenation."

247c2a11843d Use defgroup and defcustom.

Richard M. Stallman <rms@gnu.org>

parents: 17307

188 :type 'string

247c2a11843d Use defgroup and defcustom.

Richard M. Stallman <rms@gnu.org>

parents: 17307

189 :group 'imenu)

4c72f80598ae Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

190

4fbc70e4d5e7 (imenu-use-keymap-menu): New variable.

Richard M. Stallman <rms@gnu.org>

parents: 10795

191 ;;;###autoload

caafb376e619 (imenu-generic-expression): New variable.

Karl Heuer <kwzh@gnu.org>

parents: 10072

192 (defvar imenu-generic-expression nil

4fbc70e4d5e7 (imenu-use-keymap-menu): New variable.

Richard M. Stallman <rms@gnu.org>

parents: 10795

193 "The regex pattern to use for creating a buffer index.

4fbc70e4d5e7 (imenu-use-keymap-menu): New variable.

Richard M. Stallman <rms@gnu.org>

parents: 10795

194

7be08219b736 (imenu-generic-expression, imenu--generic-function'): REGEXP may also be a search function now. The part of doc-string for describing the structure was 95% identical to that of `imenu--generic-function'. Unify it there.

Daniel Pfeiffer <occitan@esperanto.org>

parents: 62531

195 If non-nil this pattern is passed to `imenu--generic-function' to

7be08219b736 (imenu-generic-expression, imenu--generic-function'): REGEXP may also be a search function now. The part of doc-string for describing the structure was 95% identical to that of `imenu--generic-function'. Unify it there.

Daniel Pfeiffer <occitan@esperanto.org>

parents: 62531

196 create a buffer index. Look there for the documentation of this

7be08219b736 (imenu-generic-expression, imenu--generic-function'): REGEXP may also be a search function now. The part of doc-string for describing the structure was 95% identical to that of `imenu--generic-function'. Unify it there.

Daniel Pfeiffer <occitan@esperanto.org>

parents: 62531

197 pattern's structure.

5898cd2e4cd6 (imenu--generic-function): Doc fix. Rewritten to be faster.

Richard M. Stallman <rms@gnu.org>

parents: 20857

198

71197bcff33c (imenu--split-menu): Use dolist and copy-sequence.

Stefan Monnier <monnier@iro.umontreal.ca>

parents: 38412

199 For example, see the value of `fortran-imenu-generic-expression' used by

36013

fc00137bf0bf (imenu-generic-expression): Doc fix.

Dave Love <fx@gnu.org>

parents: 35688

200 `fortran-mode' with `imenu-syntax-alist' set locally to give the

fc00137bf0bf (imenu-generic-expression): Doc fix.

Dave Love <fx@gnu.org>

parents: 35688

201 characters which normally have \"symbol\" syntax \"word\" syntax

fc00137bf0bf (imenu-generic-expression): Doc fix.

Dave Love <fx@gnu.org>

parents: 35688

202 during matching.")

4fbc70e4d5e7 (imenu-use-keymap-menu): New variable.

Richard M. Stallman <rms@gnu.org>

parents: 10795

203

14816

485422b900d3 (imenu-generic-expression): Autoload the make-variable-buffer-local call.

Richard M. Stallman <rms@gnu.org>

parents: 14798

204 ;;;###autoload

ce1cae301efe (imenu--history-list): Don't make this buffer-local.

Richard M. Stallman <rms@gnu.org>

parents: 12635

205 (make-variable-buffer-local 'imenu-generic-expression)

caafb376e619 (imenu-generic-expression): New variable.

Karl Heuer <kwzh@gnu.org>

parents: 10072

206

4c72f80598ae Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

207 ;;;; Hooks

4c72f80598ae Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

208

434ac4a14be3 (imenu-create-index-function): Add autoload cookie.

Richard M. Stallman <rms@gnu.org>

parents: 22628

209 ;;;###autoload

4c72f80598ae Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

210 (defvar imenu-create-index-function 'imenu-default-create-index-function

4c72f80598ae Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

211 "The function to use for creating a buffer index.

4c72f80598ae Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

212

4c72f80598ae Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

213 It should be a function that takes no arguments and returns an index

00bece0cd6c2 (imenu--generic-function): Create a special entry

Richard M. Stallman <rms@gnu.org>

parents: 16244

214 of the current buffer as an alist.

00bece0cd6c2 (imenu--generic-function): Create a special entry

Richard M. Stallman <rms@gnu.org>

parents: 16244

215

00bece0cd6c2 (imenu--generic-function): Create a special entry

Richard M. Stallman <rms@gnu.org>

parents: 16244

216 Simple elements in the alist look like (INDEX-NAME . INDEX-POSITION).

185fa242a2ea (imenu-generic-expression): Doc fix.

Richard M. Stallman <rms@gnu.org>

parents: 20770

217 Special elements look like (INDEX-NAME INDEX-POSITION FUNCTION ARGUMENTS...).

00bece0cd6c2 (imenu--generic-function): Create a special entry

Richard M. Stallman <rms@gnu.org>

parents: 16244

218 A nested sub-alist element looks like (INDEX-NAME SUB-ALIST).

00bece0cd6c2 (imenu--generic-function): Create a special entry

Richard M. Stallman <rms@gnu.org>

parents: 16244

219 The function `imenu--subalist-p' tests an element and returns t

5898cd2e4cd6 (imenu--generic-function): Doc fix. Rewritten to be faster.

Richard M. Stallman <rms@gnu.org>

parents: 20857

220 if it is a sub-alist.

4c72f80598ae Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

221

56683

dee43d88905e Several doc fixes: don't say variables are buffer-local.

Richard M. Stallman <rms@gnu.org>

parents: 56549

222 This function is called within a `save-excursion'.")

434ac4a14be3 (imenu-create-index-function): Add autoload cookie.

Richard M. Stallman <rms@gnu.org>

parents: 22628

223 ;;;###autoload

4c72f80598ae Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

224 (make-variable-buffer-local 'imenu-create-index-function)

4c72f80598ae Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

225

434ac4a14be3 (imenu-create-index-function): Add autoload cookie.

Richard M. Stallman <rms@gnu.org>

parents: 22628

226 ;;;###autoload

cd73ba498964 (imenu): Renamed from goto-index-pos.

Richard M. Stallman <rms@gnu.org>

parents: 6909

227 (defvar imenu-prev-index-position-function 'beginning-of-defun

4c72f80598ae Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

228 "Function for finding the next index position.

4c72f80598ae Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

229

9e59751db725 Require cl only at compile time.

Richard M. Stallman <rms@gnu.org>

parents: 6241

230 If `imenu-create-index-function' is set to

9e59751db725 Require cl only at compile time.

Richard M. Stallman <rms@gnu.org>

parents: 6241

231 `imenu-default-create-index-function', then you must set this variable

4c72f80598ae Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

232 to a function that will find the next index, looking backwards in the

4c72f80598ae Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

233 file.

4c72f80598ae Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

234

4c72f80598ae Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

235 The function should leave point at the place to be connected to the

7e0e6be19969 (imenu-prev-index-position-function)

Stefan Monnier <monnier@iro.umontreal.ca>

parents: 55826

236 index and it should return nil when it doesn't find another index.")

434ac4a14be3 (imenu-create-index-function): Add autoload cookie.

Richard M. Stallman <rms@gnu.org>

parents: 22628

237 ;;;###autoload

cd73ba498964 (imenu): Renamed from goto-index-pos.

Richard M. Stallman <rms@gnu.org>

parents: 6909

238 (make-variable-buffer-local 'imenu-prev-index-position-function)

4c72f80598ae Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

239

434ac4a14be3 (imenu-create-index-function): Add autoload cookie.

Richard M. Stallman <rms@gnu.org>

parents: 22628

240 ;;;###autoload

cd73ba498964 (imenu): Renamed from goto-index-pos.

Richard M. Stallman <rms@gnu.org>

parents: 6909

241 (defvar imenu-extract-index-name-function nil

5898cd2e4cd6 (imenu--generic-function): Doc fix. Rewritten to be faster.

Richard M. Stallman <rms@gnu.org>

parents: 20857

242 "Function for extracting the index item name, given a position.

4c72f80598ae Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

243

185fa242a2ea (imenu-generic-expression): Doc fix.

Richard M. Stallman <rms@gnu.org>

parents: 20770

244 This function is called after `imenu-prev-index-position-function'

185fa242a2ea (imenu-generic-expression): Doc fix.

Richard M. Stallman <rms@gnu.org>

parents: 20770

245 finds a position for an index item, with point at that position.

7e0e6be19969 (imenu-prev-index-position-function)

Stefan Monnier <monnier@iro.umontreal.ca>

parents: 55826

246 It should return the name for that index item.")

434ac4a14be3 (imenu-create-index-function): Add autoload cookie.

Richard M. Stallman <rms@gnu.org>

parents: 22628

247 ;;;###autoload

cd73ba498964 (imenu): Renamed from goto-index-pos.

Richard M. Stallman <rms@gnu.org>

parents: 6909

248 (make-variable-buffer-local 'imenu-extract-index-name-function)

4c72f80598ae Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

249

434ac4a14be3 (imenu-create-index-function): Add autoload cookie.

Richard M. Stallman <rms@gnu.org>

parents: 22628

250 ;;;###autoload

f1417ed050c0 (imenu-after-jump-hook): New variable.

Phillip Rulon <pjr@gnu.org>

parents: 24578

251 (defvar imenu-name-lookup-function nil

f1417ed050c0 (imenu-after-jump-hook): New variable.

Phillip Rulon <pjr@gnu.org>

parents: 24578

252 "Function to compare string with index item.

f1417ed050c0 (imenu-after-jump-hook): New variable.

Phillip Rulon <pjr@gnu.org>

parents: 24578

253

f1417ed050c0 (imenu-after-jump-hook): New variable.

Phillip Rulon <pjr@gnu.org>

parents: 24578

254 This function will be called with two strings, and should return

f1417ed050c0 (imenu-after-jump-hook): New variable.

Phillip Rulon <pjr@gnu.org>

parents: 24578

255 non-nil if they match.

f1417ed050c0 (imenu-after-jump-hook): New variable.

Phillip Rulon <pjr@gnu.org>

parents: 24578

256

f1417ed050c0 (imenu-after-jump-hook): New variable.

Phillip Rulon <pjr@gnu.org>

parents: 24578

257 If nil, comparison is done with `string='.

f1417ed050c0 (imenu-after-jump-hook): New variable.

Phillip Rulon <pjr@gnu.org>

parents: 24578

258 Set this to some other function for more advanced comparisons,

f1417ed050c0 (imenu-after-jump-hook): New variable.

Phillip Rulon <pjr@gnu.org>

parents: 24578

259 such as \"begins with\" or \"name matches and number of

7e0e6be19969 (imenu-prev-index-position-function)

Stefan Monnier <monnier@iro.umontreal.ca>

parents: 55826

260 arguments match\".")

f1417ed050c0 (imenu-after-jump-hook): New variable.

Phillip Rulon <pjr@gnu.org>

parents: 24578

261 ;;;###autoload

f1417ed050c0 (imenu-after-jump-hook): New variable.

Phillip Rulon <pjr@gnu.org>

parents: 24578

262 (make-variable-buffer-local 'imenu-name-lookup-function)

f1417ed050c0 (imenu-after-jump-hook): New variable.

Phillip Rulon <pjr@gnu.org>

parents: 24578

263

f1417ed050c0 (imenu-after-jump-hook): New variable.

Phillip Rulon <pjr@gnu.org>

parents: 24578

264 ;;;###autoload

b48a8dd2d8ce (imenu-scanning-message): Support for bigger numbers.

Richard M. Stallman <rms@gnu.org>

parents: 16698

265 (defvar imenu-default-goto-function 'imenu-default-goto-function

b48a8dd2d8ce (imenu-scanning-message): Support for bigger numbers.

Richard M. Stallman <rms@gnu.org>

parents: 16698

266 "The default function called when selecting an Imenu item.

b48a8dd2d8ce (imenu-scanning-message): Support for bigger numbers.

Richard M. Stallman <rms@gnu.org>

parents: 16698

267 The function in this variable is called when selecting a normal index-item.")

434ac4a14be3 (imenu-create-index-function): Add autoload cookie.

Richard M. Stallman <rms@gnu.org>

parents: 22628

268 ;;;###autoload

b48a8dd2d8ce (imenu-scanning-message): Support for bigger numbers.

Richard M. Stallman <rms@gnu.org>

parents: 16698

269 (make-variable-buffer-local 'imenu-default-goto-function)

b48a8dd2d8ce (imenu-scanning-message): Support for bigger numbers.

Richard M. Stallman <rms@gnu.org>

parents: 16698

270

b48a8dd2d8ce (imenu-scanning-message): Support for bigger numbers.

Richard M. Stallman <rms@gnu.org>

parents: 16698

271

00bece0cd6c2 (imenu--generic-function): Create a special entry

Richard M. Stallman <rms@gnu.org>

parents: 16244

272 (defun imenu--subalist-p (item)

00bece0cd6c2 (imenu--generic-function): Create a special entry

Richard M. Stallman <rms@gnu.org>

parents: 16244

273 (and (consp (cdr item)) (listp (cadr item))

5898cd2e4cd6 (imenu--generic-function): Doc fix. Rewritten to be faster.

Richard M. Stallman <rms@gnu.org>

parents: 20857

274 (not (eq (car (cadr item)) 'lambda))))

00bece0cd6c2 (imenu--generic-function): Create a special entry

Richard M. Stallman <rms@gnu.org>

parents: 16244

275

5898cd2e4cd6 (imenu--generic-function): Doc fix. Rewritten to be faster.

Richard M. Stallman <rms@gnu.org>

parents: 20857

276 ;; Macro to display a progress message.

5898cd2e4cd6 (imenu--generic-function): Doc fix. Rewritten to be faster.

Richard M. Stallman <rms@gnu.org>

parents: 20857

277 ;; RELPOS is the relative position to display.

5898cd2e4cd6 (imenu--generic-function): Doc fix. Rewritten to be faster.

Richard M. Stallman <rms@gnu.org>

parents: 20857

278 ;; If RELPOS is nil, then the relative position in the buffer

5898cd2e4cd6 (imenu--generic-function): Doc fix. Rewritten to be faster.

Richard M. Stallman <rms@gnu.org>

parents: 20857

279 ;; is calculated.

5898cd2e4cd6 (imenu--generic-function): Doc fix. Rewritten to be faster.

Richard M. Stallman <rms@gnu.org>

parents: 20857

280 ;; PREVPOS is the variable in which we store the last position displayed.

caafb376e619 (imenu-generic-expression): New variable.

Karl Heuer <kwzh@gnu.org>

parents: 10072

281 (defmacro imenu-progress-message (prevpos &optional relpos reverse)

57775

206e30bf844c (imenu-scanning-message): Remove.

Kim F. Storm <storm@cua.dk>

parents: 57717

282

206e30bf844c (imenu-scanning-message): Remove.

Kim F. Storm <storm@cua.dk>

parents: 57717

283 ;; Made obsolete/empty, as computers are now faster than the eye, and

206e30bf844c (imenu-scanning-message): Remove.

Kim F. Storm <storm@cua.dk>

parents: 57717

284 ;; it had problems updating the messages correctly, and could shadow

206e30bf844c (imenu-scanning-message): Remove.

Kim F. Storm <storm@cua.dk>

parents: 57717

285 ;; more important messages/prompts in the minibuffer. KFS 2004-10-27.

206e30bf844c (imenu-scanning-message): Remove.

Kim F. Storm <storm@cua.dk>

parents: 57717

286

206e30bf844c (imenu-scanning-message): Remove.

Kim F. Storm <storm@cua.dk>

parents: 57717

287 ;; `(and

206e30bf844c (imenu-scanning-message): Remove.

Kim F. Storm <storm@cua.dk>

parents: 57717

288 ;; imenu-scanning-message

206e30bf844c (imenu-scanning-message): Remove.

Kim F. Storm <storm@cua.dk>

parents: 57717

289 ;; (let ((pos ,(if relpos

206e30bf844c (imenu-scanning-message): Remove.

Kim F. Storm <storm@cua.dk>

parents: 57717

290 ;; relpos

206e30bf844c (imenu-scanning-message): Remove.

Kim F. Storm <storm@cua.dk>

parents: 57717

291 ;; `(imenu--relative-position ,reverse))))

206e30bf844c (imenu-scanning-message): Remove.

Kim F. Storm <storm@cua.dk>

parents: 57717

292 ;; (if ,(if relpos t

206e30bf844c (imenu-scanning-message): Remove.

Kim F. Storm <storm@cua.dk>

parents: 57717

293 ;; `(> pos (+ 5 ,prevpos)))

206e30bf844c (imenu-scanning-message): Remove.

Kim F. Storm <storm@cua.dk>

parents: 57717

294 ;; (progn

206e30bf844c (imenu-scanning-message): Remove.

Kim F. Storm <storm@cua.dk>

parents: 57717

295 ;; (message imenu-scanning-message pos)

206e30bf844c (imenu-scanning-message): Remove.

Kim F. Storm <storm@cua.dk>

parents: 57717

296 ;; (setq ,prevpos pos)))))

206e30bf844c (imenu-scanning-message): Remove.

Kim F. Storm <storm@cua.dk>

parents: 57717

297 )

caafb376e619 (imenu-generic-expression): New variable.

Karl Heuer <kwzh@gnu.org>

parents: 10072

298

caafb376e619 (imenu-generic-expression): New variable.

Karl Heuer <kwzh@gnu.org>

parents: 10072

299

caafb376e619 (imenu-generic-expression): New variable.

Karl Heuer <kwzh@gnu.org>

parents: 10072

300 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

caafb376e619 (imenu-generic-expression): New variable.

Karl Heuer <kwzh@gnu.org>

parents: 10072

301 ;;;;

caafb376e619 (imenu-generic-expression): New variable.

Karl Heuer <kwzh@gnu.org>

parents: 10072

302 ;;;; Some examples of functions utilizing the framework of this

caafb376e619 (imenu-generic-expression): New variable.

Karl Heuer <kwzh@gnu.org>

parents: 10072

303 ;;;; package.

caafb376e619 (imenu-generic-expression): New variable.

Karl Heuer <kwzh@gnu.org>

parents: 10072

304 ;;;;

caafb376e619 (imenu-generic-expression): New variable.

Karl Heuer <kwzh@gnu.org>

parents: 10072

305 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

caafb376e619 (imenu-generic-expression): New variable.

Karl Heuer <kwzh@gnu.org>

parents: 10072

306

1389687cfa0a (imenu--completion-buffer): Don't return t for rescan.

Stefan Monnier <monnier@iro.umontreal.ca>

parents: 56683

307 ;; FIXME: This is the only imenu-example-* definition that's actually used,

1389687cfa0a (imenu--completion-buffer): Don't return t for rescan.

Stefan Monnier <monnier@iro.umontreal.ca>

parents: 56683

308 ;; and it seems to only be used by cperl-mode.el. We should just move it to

1389687cfa0a (imenu--completion-buffer): Don't return t for rescan.

Stefan Monnier <monnier@iro.umontreal.ca>

parents: 56683

309 ;; cperl-mode.el and remove the rest.

caafb376e619 (imenu-generic-expression): New variable.

Karl Heuer <kwzh@gnu.org>

parents: 10072

310 (defun imenu-example--name-and-position ()

1389687cfa0a (imenu--completion-buffer): Don't return t for rescan.

Stefan Monnier <monnier@iro.umontreal.ca>

parents: 56683

311 "Return the current/previous sexp and its (beginning) location.

1389687cfa0a (imenu--completion-buffer): Don't return t for rescan.

Stefan Monnier <monnier@iro.umontreal.ca>

parents: 56683

312 Don't move point."

caafb376e619 (imenu-generic-expression): New variable.

Karl Heuer <kwzh@gnu.org>

parents: 10072

313 (save-excursion

caafb376e619 (imenu-generic-expression): New variable.

Karl Heuer <kwzh@gnu.org>

parents: 10072

314 (forward-sexp -1)

830ad59547e4 (imenu-default-goto-function): Simplify.

Richard M. Stallman <rms@gnu.org>

parents: 17230

315 ;; [ydi] modified for imenu-use-markers

830ad59547e4 (imenu-default-goto-function): Simplify.

Richard M. Stallman <rms@gnu.org>

parents: 17230

316 (let ((beg (if imenu-use-markers (point-marker) (point)))

830ad59547e4 (imenu-default-goto-function): Simplify.

Richard M. Stallman <rms@gnu.org>

parents: 17230

317 (end (progn (forward-sexp) (point))))

caafb376e619 (imenu-generic-expression): New variable.

Karl Heuer <kwzh@gnu.org>

parents: 10072

318 (cons (buffer-substring beg end)

830ad59547e4 (imenu-default-goto-function): Simplify.

Richard M. Stallman <rms@gnu.org>

parents: 17230

319 beg))))

caafb376e619 (imenu-generic-expression): New variable.

Karl Heuer <kwzh@gnu.org>

parents: 10072

320

caafb376e619 (imenu-generic-expression): New variable.

Karl Heuer <kwzh@gnu.org>

parents: 10072

321 ;;;

caafb376e619 (imenu-generic-expression): New variable.

Karl Heuer <kwzh@gnu.org>

parents: 10072

322 ;;; Lisp

5898cd2e4cd6 (imenu--generic-function): Doc fix. Rewritten to be faster.

Richard M. Stallman <rms@gnu.org>

parents: 20857

323 ;;;

caafb376e619 (imenu-generic-expression): New variable.

Karl Heuer <kwzh@gnu.org>

parents: 10072

324

caafb376e619 (imenu-generic-expression): New variable.

Karl Heuer <kwzh@gnu.org>

parents: 10072

325 (defun imenu-example--lisp-extract-index-name ()

caafb376e619 (imenu-generic-expression): New variable.

Karl Heuer <kwzh@gnu.org>

parents: 10072

326 ;; Example of a candidate for `imenu-extract-index-name-function'.

caafb376e619 (imenu-generic-expression): New variable.

Karl Heuer <kwzh@gnu.org>

parents: 10072

327 ;; This will generate a flat index of definitions in a lisp file.

caafb376e619 (imenu-generic-expression): New variable.

Karl Heuer <kwzh@gnu.org>

parents: 10072

328 (save-match-data

caafb376e619 (imenu-generic-expression): New variable.

Karl Heuer <kwzh@gnu.org>

parents: 10072

329 (and (looking-at "(def")

caafb376e619 (imenu-generic-expression): New variable.

Karl Heuer <kwzh@gnu.org>

parents: 10072

330 (condition-case nil

caafb376e619 (imenu-generic-expression): New variable.

Karl Heuer <kwzh@gnu.org>

parents: 10072

331 (progn

caafb376e619 (imenu-generic-expression): New variable.

Karl Heuer <kwzh@gnu.org>

parents: 10072

332 (down-list 1)

caafb376e619 (imenu-generic-expression): New variable.

Karl Heuer <kwzh@gnu.org>

parents: 10072

333 (forward-sexp 2)

caafb376e619 (imenu-generic-expression): New variable.

Karl Heuer <kwzh@gnu.org>

parents: 10072

334 (let ((beg (point))

caafb376e619 (imenu-generic-expression): New variable.

Karl Heuer <kwzh@gnu.org>

parents: 10072

335 (end (progn (forward-sexp -1) (point))))

caafb376e619 (imenu-generic-expression): New variable.

Karl Heuer <kwzh@gnu.org>

parents: 10072

336 (buffer-substring beg end)))

caafb376e619 (imenu-generic-expression): New variable.

Karl Heuer <kwzh@gnu.org>

parents: 10072

337 (error nil)))))

caafb376e619 (imenu-generic-expression): New variable.

Karl Heuer <kwzh@gnu.org>

parents: 10072

338

caafb376e619 (imenu-generic-expression): New variable.

Karl Heuer <kwzh@gnu.org>

parents: 10072

339 (defun imenu-example--create-lisp-index ()

caafb376e619 (imenu-generic-expression): New variable.

Karl Heuer <kwzh@gnu.org>

parents: 10072

340 ;; Example of a candidate for `imenu-create-index-function'.

caafb376e619 (imenu-generic-expression): New variable.

Karl Heuer <kwzh@gnu.org>

parents: 10072

341 ;; It will generate a nested index of definitions.

caafb376e619 (imenu-generic-expression): New variable.

Karl Heuer <kwzh@gnu.org>

parents: 10072

342 (let ((index-alist '())

caafb376e619 (imenu-generic-expression): New variable.

Karl Heuer <kwzh@gnu.org>

parents: 10072

343 (index-var-alist '())

caafb376e619 (imenu-generic-expression): New variable.

Karl Heuer <kwzh@gnu.org>

parents: 10072

344 (index-type-alist '())

caafb376e619 (imenu-generic-expression): New variable.

Karl Heuer <kwzh@gnu.org>

parents: 10072

345 (index-unknown-alist '())

caafb376e619 (imenu-generic-expression): New variable.

Karl Heuer <kwzh@gnu.org>

parents: 10072

346 prev-pos)

caafb376e619 (imenu-generic-expression): New variable.

Karl Heuer <kwzh@gnu.org>

parents: 10072

347 (goto-char (point-max))

caafb376e619 (imenu-generic-expression): New variable.

Karl Heuer <kwzh@gnu.org>

parents: 10072

348 (imenu-progress-message prev-pos 0)

caafb376e619 (imenu-generic-expression): New variable.

Karl Heuer <kwzh@gnu.org>

parents: 10072

349 ;; Search for the function

caafb376e619 (imenu-generic-expression): New variable.

Karl Heuer <kwzh@gnu.org>

parents: 10072

350 (while (beginning-of-defun)

caafb376e619 (imenu-generic-expression): New variable.

Karl Heuer <kwzh@gnu.org>

parents: 10072

351 (imenu-progress-message prev-pos nil t)

5898cd2e4cd6 (imenu--generic-function): Doc fix. Rewritten to be faster.

Richard M. Stallman <rms@gnu.org>

parents: 20857

352 (save-match-data

5898cd2e4cd6 (imenu--generic-function): Doc fix. Rewritten to be faster.

Richard M. Stallman <rms@gnu.org>

parents: 20857

353 (and (looking-at "(def")

5898cd2e4cd6 (imenu--generic-function): Doc fix. Rewritten to be faster.

Richard M. Stallman <rms@gnu.org>

parents: 20857

354 (save-excursion

caafb376e619 (imenu-generic-expression): New variable.

Karl Heuer <kwzh@gnu.org>

parents: 10072

355 (down-list 1)

5898cd2e4cd6 (imenu--generic-function): Doc fix. Rewritten to be faster.

Richard M. Stallman <rms@gnu.org>

parents: 20857

356 (cond

caafb376e619 (imenu-generic-expression): New variable.

Karl Heuer <kwzh@gnu.org>

parents: 10072

357 ((looking-at "def\$var\\|const\$")

5898cd2e4cd6 (imenu--generic-function): Doc fix. Rewritten to be faster.

Richard M. Stallman <rms@gnu.org>

parents: 20857

358 (forward-sexp 2)

5898cd2e4cd6 (imenu--generic-function): Doc fix. Rewritten to be faster.

Richard M. Stallman <rms@gnu.org>

parents: 20857

359 (push (imenu-example--name-and-position)

5898cd2e4cd6 (imenu--generic-function): Doc fix. Rewritten to be faster.

Richard M. Stallman <rms@gnu.org>

parents: 20857

360 index-var-alist))

caafb376e619 (imenu-generic-expression): New variable.

Karl Heuer <kwzh@gnu.org>

parents: 10072

361 ((looking-at "def\$un\\|subst\\|macro\\|advice\$")

5898cd2e4cd6 (imenu--generic-function): Doc fix. Rewritten to be faster.

Richard M. Stallman <rms@gnu.org>

parents: 20857

362 (forward-sexp 2)

5898cd2e4cd6 (imenu--generic-function): Doc fix. Rewritten to be faster.

Richard M. Stallman <rms@gnu.org>

parents: 20857

363 (push (imenu-example--name-and-position)

5898cd2e4cd6 (imenu--generic-function): Doc fix. Rewritten to be faster.

Richard M. Stallman <rms@gnu.org>

parents: 20857

364 index-alist))

caafb376e619 (imenu-generic-expression): New variable.

Karl Heuer <kwzh@gnu.org>

parents: 10072

365 ((looking-at "def\$type\\|struct\\|class\\|ine-condition\$")

5898cd2e4cd6 (imenu--generic-function): Doc fix. Rewritten to be faster.

Richard M. Stallman <rms@gnu.org>

parents: 20857

366 (forward-sexp 2)

caafb376e619 (imenu-generic-expression): New variable.

Karl Heuer <kwzh@gnu.org>

parents: 10072

367 (if (= (char-after (1- (point))) ?\))

5898cd2e4cd6 (imenu--generic-function): Doc fix. Rewritten to be faster.

Richard M. Stallman <rms@gnu.org>

parents: 20857

368 (progn

caafb376e619 (imenu-generic-expression): New variable.

Karl Heuer <kwzh@gnu.org>

parents: 10072

369 (forward-sexp -1)

5898cd2e4cd6 (imenu--generic-function): Doc fix. Rewritten to be faster.

Richard M. Stallman <rms@gnu.org>

parents: 20857

370 (down-list 1)

caafb376e619 (imenu-generic-expression): New variable.

Karl Heuer <kwzh@gnu.org>

parents: 10072

371 (forward-sexp 1)))

5898cd2e4cd6 (imenu--generic-function): Doc fix. Rewritten to be faster.

Richard M. Stallman <rms@gnu.org>

parents: 20857

372 (push (imenu-example--name-and-position)

5898cd2e4cd6 (imenu--generic-function): Doc fix. Rewritten to be faster.

Richard M. Stallman <rms@gnu.org>

parents: 20857

373 index-type-alist))

5898cd2e4cd6 (imenu--generic-function): Doc fix. Rewritten to be faster.

Richard M. Stallman <rms@gnu.org>

parents: 20857

374 (t

5898cd2e4cd6 (imenu--generic-function): Doc fix. Rewritten to be faster.

Richard M. Stallman <rms@gnu.org>

parents: 20857

375 (forward-sexp 2)

5898cd2e4cd6 (imenu--generic-function): Doc fix. Rewritten to be faster.

Richard M. Stallman <rms@gnu.org>

parents: 20857

376 (push (imenu-example--name-and-position)

caafb376e619 (imenu-generic-expression): New variable.

Karl Heuer <kwzh@gnu.org>

parents: 10072

377 index-unknown-alist)))))))

caafb376e619 (imenu-generic-expression): New variable.

Karl Heuer <kwzh@gnu.org>

parents: 10072

378 (imenu-progress-message prev-pos 100)

caafb376e619 (imenu-generic-expression): New variable.

Karl Heuer <kwzh@gnu.org>

parents: 10072

379 (and index-var-alist

35e1cfdd29a4 (imenu--menubar-select): No longer interactive.

Richard M. Stallman <rms@gnu.org>

parents: 14725

380 (push (cons "Variables" index-var-alist)

caafb376e619 (imenu-generic-expression): New variable.

Karl Heuer <kwzh@gnu.org>

parents: 10072

381 index-alist))

caafb376e619 (imenu-generic-expression): New variable.

Karl Heuer <kwzh@gnu.org>

parents: 10072

382 (and index-type-alist

35e1cfdd29a4 (imenu--menubar-select): No longer interactive.

Richard M. Stallman <rms@gnu.org>

parents: 14725

383 (push (cons "Types" index-type-alist)

caafb376e619 (imenu-generic-expression): New variable.

Karl Heuer <kwzh@gnu.org>

parents: 10072

384 index-alist))

caafb376e619 (imenu-generic-expression): New variable.

Karl Heuer <kwzh@gnu.org>

parents: 10072

385 (and index-unknown-alist

35e1cfdd29a4 (imenu--menubar-select): No longer interactive.

Richard M. Stallman <rms@gnu.org>

parents: 14725

386 (push (cons "Syntax-unknown" index-unknown-alist)

caafb376e619 (imenu-generic-expression): New variable.

Karl Heuer <kwzh@gnu.org>

parents: 10072

387 index-alist))

caafb376e619 (imenu-generic-expression): New variable.

Karl Heuer <kwzh@gnu.org>

parents: 10072

388 index-alist))

caafb376e619 (imenu-generic-expression): New variable.

Karl Heuer <kwzh@gnu.org>

parents: 10072

389

caafb376e619 (imenu-generic-expression): New variable.

Karl Heuer <kwzh@gnu.org>

parents: 10072

390 ;; Regular expression to find C functions

caafb376e619 (imenu-generic-expression): New variable.

Karl Heuer <kwzh@gnu.org>

parents: 10072

391 (defvar imenu-example--function-name-regexp-c

5898cd2e4cd6 (imenu--generic-function): Doc fix. Rewritten to be faster.

Richard M. Stallman <rms@gnu.org>

parents: 20857

392 (concat

caafb376e619 (imenu-generic-expression): New variable.

Karl Heuer <kwzh@gnu.org>

parents: 10072

393 "^[a-zA-Z0-9]+[ \t]?" ; type specs; there can be no

caafb376e619 (imenu-generic-expression): New variable.

Karl Heuer <kwzh@gnu.org>

parents: 10072

394 "\$[a-zA-Z0-9_*]+[ \t]+\$?" ; more than 3 tokens, right?

caafb376e619 (imenu-generic-expression): New variable.

Karl Heuer <kwzh@gnu.org>

parents: 10072

395 "\$[a-zA-Z0-9_*]+[ \t]+\$?"

caafb376e619 (imenu-generic-expression): New variable.

Karl Heuer <kwzh@gnu.org>

parents: 10072

396 "\$[*&]+[ \t]*\$?" ; pointer

caafb376e619 (imenu-generic-expression): New variable.

Karl Heuer <kwzh@gnu.org>

parents: 10072

397 "\$[a-zA-Z0-9_*]+\$[ \t]*(" ; name

caafb376e619 (imenu-generic-expression): New variable.

Karl Heuer <kwzh@gnu.org>

parents: 10072

398 ))

caafb376e619 (imenu-generic-expression): New variable.

Karl Heuer <kwzh@gnu.org>

parents: 10072

399

caafb376e619 (imenu-generic-expression): New variable.

Karl Heuer <kwzh@gnu.org>

parents: 10072

400 (defun imenu-example--create-c-index (&optional regexp)

caafb376e619 (imenu-generic-expression): New variable.

Karl Heuer <kwzh@gnu.org>

parents: 10072

401 (let ((index-alist '())

caafb376e619 (imenu-generic-expression): New variable.

Karl Heuer <kwzh@gnu.org>

parents: 10072

402 prev-pos char)

caafb376e619 (imenu-generic-expression): New variable.

Karl Heuer <kwzh@gnu.org>

parents: 10072

403 (goto-char (point-min))

caafb376e619 (imenu-generic-expression): New variable.

Karl Heuer <kwzh@gnu.org>

parents: 10072

404 (imenu-progress-message prev-pos 0)

caafb376e619 (imenu-generic-expression): New variable.

Karl Heuer <kwzh@gnu.org>

parents: 10072

405 ;; Search for the function

caafb376e619 (imenu-generic-expression): New variable.

Karl Heuer <kwzh@gnu.org>

parents: 10072

406 (save-match-data

caafb376e619 (imenu-generic-expression): New variable.

Karl Heuer <kwzh@gnu.org>

parents: 10072

407 (while (re-search-forward

caafb376e619 (imenu-generic-expression): New variable.

Karl Heuer <kwzh@gnu.org>

parents: 10072

408 (or regexp imenu-example--function-name-regexp-c)

caafb376e619 (imenu-generic-expression): New variable.

Karl Heuer <kwzh@gnu.org>

parents: 10072

409 nil t)

caafb376e619 (imenu-generic-expression): New variable.

Karl Heuer <kwzh@gnu.org>

parents: 10072

410 (imenu-progress-message prev-pos)

caafb376e619 (imenu-generic-expression): New variable.

Karl Heuer <kwzh@gnu.org>

parents: 10072

411 (backward-up-list 1)

caafb376e619 (imenu-generic-expression): New variable.

Karl Heuer <kwzh@gnu.org>

parents: 10072

412 (save-excursion

caafb376e619 (imenu-generic-expression): New variable.

Karl Heuer <kwzh@gnu.org>

parents: 10072

413 (goto-char (scan-sexps (point) 1))

caafb376e619 (imenu-generic-expression): New variable.

Karl Heuer <kwzh@gnu.org>

parents: 10072

414 (setq char (following-char)))

caafb376e619 (imenu-generic-expression): New variable.

Karl Heuer <kwzh@gnu.org>

parents: 10072

415 ;; Skip this function name if it is a prototype declaration.

caafb376e619 (imenu-generic-expression): New variable.

Karl Heuer <kwzh@gnu.org>

parents: 10072

416 (if (not (eq char ?\;))

caafb376e619 (imenu-generic-expression): New variable.

Karl Heuer <kwzh@gnu.org>

parents: 10072

417 (push (imenu-example--name-and-position) index-alist))))

caafb376e619 (imenu-generic-expression): New variable.

Karl Heuer <kwzh@gnu.org>

parents: 10072

418 (imenu-progress-message prev-pos 100)

caafb376e619 (imenu-generic-expression): New variable.

Karl Heuer <kwzh@gnu.org>

parents: 10072

419 (nreverse index-alist)))

caafb376e619 (imenu-generic-expression): New variable.

Karl Heuer <kwzh@gnu.org>

parents: 10072

420

4fbc70e4d5e7 (imenu-use-keymap-menu): New variable.

Richard M. Stallman <rms@gnu.org>

parents: 10795

421

4c72f80598ae Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

422 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

4c72f80598ae Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

423 ;;;

4c72f80598ae Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

424 ;;; Internal variables

4c72f80598ae Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

425 ;;;

4c72f80598ae Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

426 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

4c72f80598ae Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

427

4c72f80598ae Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

428 ;; The item to use in the index for rescanning the buffer.

4c72f80598ae Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

429 (defconst imenu--rescan-item '("*Rescan*" . -99))

4c72f80598ae Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

430

4c72f80598ae Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

431 ;; The latest buffer index.

4c72f80598ae Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

432 ;; Buffer local.

185fa242a2ea (imenu-generic-expression): Doc fix.

Richard M. Stallman <rms@gnu.org>

parents: 20770

433 (defvar imenu--index-alist nil

185fa242a2ea (imenu-generic-expression): Doc fix.

Richard M. Stallman <rms@gnu.org>

parents: 20770

434 "The buffer index computed for this buffer in Imenu.

185fa242a2ea (imenu-generic-expression): Doc fix.

Richard M. Stallman <rms@gnu.org>

parents: 20770

435 Simple elements in the alist look like (INDEX-NAME . INDEX-POSITION).

185fa242a2ea (imenu-generic-expression): Doc fix.

Richard M. Stallman <rms@gnu.org>

parents: 20770

436 Special elements look like (INDEX-NAME INDEX-POSITION FUNCTION ARGUMENTS...).

7e0e6be19969 (imenu-prev-index-position-function)

Stefan Monnier <monnier@iro.umontreal.ca>

parents: 55826

437 A nested sub-alist element looks like (INDEX-NAME SUB-ALIST).")

185fa242a2ea (imenu-generic-expression): Doc fix.

Richard M. Stallman <rms@gnu.org>

parents: 20770

438

4c72f80598ae Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

439 (make-variable-buffer-local 'imenu--index-alist)

4c72f80598ae Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

440

24270

02ae21f066ec (imenu--last-menubar-index-alist): Add doc.

Richard M. Stallman <rms@gnu.org>

parents: 24233

441 (defvar imenu--last-menubar-index-alist nil

02ae21f066ec (imenu--last-menubar-index-alist): Add doc.

Richard M. Stallman <rms@gnu.org>

parents: 24233

442 "The latest buffer index used to update the menu bar menu.")

02ae21f066ec (imenu--last-menubar-index-alist): Add doc.

Richard M. Stallman <rms@gnu.org>

parents: 24233

443

4eac65d000d3 (imenu-update-menubar): New function.

Karl Heuer <kwzh@gnu.org>

parents: 13645

444 (make-variable-buffer-local 'imenu--last-menubar-index-alist)

4eac65d000d3 (imenu-update-menubar): New function.

Karl Heuer <kwzh@gnu.org>

parents: 13645

445

4c72f80598ae Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

446 ;; History list for 'jump-to-function-in-buffer'.

ce1cae301efe (imenu--history-list): Don't make this buffer-local.

Richard M. Stallman <rms@gnu.org>

parents: 12635

447 ;; Making this buffer local caused it not to work!

4c72f80598ae Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

448 (defvar imenu--history-list nil)

4c72f80598ae Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

449

4c72f80598ae Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

450 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

4c72f80598ae Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

451 ;;;

4c72f80598ae Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

452 ;;; Internal support functions

4c72f80598ae Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

453 ;;;

4c72f80598ae Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

454 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

4c72f80598ae Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

455

4c72f80598ae Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

456 ;;;

4c72f80598ae Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

457 ;;; Sort function

4c72f80598ae Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

458 ;;; Sorts the items depending on their index name.

3812bb3ae006 (imenu--generic-function): Sort each submenu by position.

Karl Heuer <kwzh@gnu.org>

parents: 22798

459 ;;; An item looks like (NAME . POSITION).

4c72f80598ae Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

460 ;;;

4c72f80598ae Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

461 (defun imenu--sort-by-name (item1 item2)

4c72f80598ae Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

462 (string-lessp (car item1) (car item2)))

4c72f80598ae Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

463

3812bb3ae006 (imenu--generic-function): Sort each submenu by position.

Karl Heuer <kwzh@gnu.org>

parents: 22798

464 (defun imenu--sort-by-position (item1 item2)

3812bb3ae006 (imenu--generic-function): Sort each submenu by position.

Karl Heuer <kwzh@gnu.org>

parents: 22798

465 (< (cdr item1) (cdr item2)))

3812bb3ae006 (imenu--generic-function): Sort each submenu by position.

Karl Heuer <kwzh@gnu.org>

parents: 22798

466

4c72f80598ae Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

467 (defun imenu--relative-position (&optional reverse)

4c72f80598ae Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

468 ;; Support function to calculate relative position in buffer

4c72f80598ae Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

469 ;; Beginning of buffer is 0 and end of buffer is 100

4c72f80598ae Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

470 ;; If REVERSE is non-nil then the beginning is 100 and the end is 0.

4c72f80598ae Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

471 (let ((pos (point))

4c72f80598ae Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

472 (total (buffer-size)))

4c72f80598ae Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

473 (and reverse (setq pos (- total pos)))

4c72f80598ae Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

474 (if (> total 50000)

4c72f80598ae Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

475 ;; Avoid overflow from multiplying by 100!

4c72f80598ae Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

476 (/ (1- pos) (max (/ total 100) 1))

4c72f80598ae Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

477 (/ (* 100 (1- pos)) (max total 1)))))

4c72f80598ae Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

478

4c72f80598ae Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

479 ;; Split LIST into sublists of max length N.

4c72f80598ae Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

480 ;; Example (imenu--split '(1 2 3 4 5 6 7 8) 3)-> '((1 2 3) (4 5 6) (7 8))

4c72f80598ae Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

481 (defun imenu--split (list n)

4c72f80598ae Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

482 (let ((remain list)

4c72f80598ae Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

483 (result '())

4c72f80598ae Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

484 (sublist '())

4c72f80598ae Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

485 (i 0))

4c72f80598ae Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

486 (while remain

4c72f80598ae Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

487 (push (pop remain) sublist)

4c72f80598ae Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

488 (incf i)

4c72f80598ae Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

489 (and (= i n)

4c72f80598ae Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

490 ;; We have finished a sublist

4c72f80598ae Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

491 (progn (push (nreverse sublist) result)

4c72f80598ae Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

492 (setq i 0)

4c72f80598ae Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

493 (setq sublist '()))))

4c72f80598ae Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

494 ;; There might be a sublist (if the length of LIST mod n is != 0)

4c72f80598ae Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

495 ;; that has to be added to the result list.

4c72f80598ae Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

496 (and sublist

4c72f80598ae Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

497 (push (nreverse sublist) result))

4c72f80598ae Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

498 (nreverse result)))

4c72f80598ae Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

499

35e1cfdd29a4 (imenu--menubar-select): No longer interactive.

Richard M. Stallman <rms@gnu.org>

parents: 14725

500 ;;; Split the alist MENULIST into a nested alist, if it is long enough.

35e1cfdd29a4 (imenu--menubar-select): No longer interactive.

Richard M. Stallman <rms@gnu.org>

parents: 14725

501 ;;; In any case, add TITLE to the front of the alist.

4c72f80598ae Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

502 (defun imenu--split-menu (menulist title)

b64d00e44e7b (imenu--split-menu): Keep the rescan item at top level.

Richard M. Stallman <rms@gnu.org>

parents: 16271

503 (let (keep-at-top tail)

b64d00e44e7b (imenu--split-menu): Keep the rescan item at top level.

Richard M. Stallman <rms@gnu.org>

parents: 16271

504 (if (memq imenu--rescan-item menulist)

b64d00e44e7b (imenu--split-menu): Keep the rescan item at top level.

Richard M. Stallman <rms@gnu.org>

parents: 16271

505 (setq keep-at-top (cons imenu--rescan-item nil)

b64d00e44e7b (imenu--split-menu): Keep the rescan item at top level.

Richard M. Stallman <rms@gnu.org>

parents: 16271

506 menulist (delq imenu--rescan-item menulist)))

b64d00e44e7b (imenu--split-menu): Keep the rescan item at top level.

Richard M. Stallman <rms@gnu.org>

parents: 16271

507 (setq tail menulist)

71197bcff33c (imenu--split-menu): Use dolist and copy-sequence.

Stefan Monnier <monnier@iro.umontreal.ca>

parents: 38412

508 (dolist (item tail)

4efabfff9aa1 (imenu--split-menu): Remove unused var `count'.

Stefan Monnier <monnier@iro.umontreal.ca>

parents: 50846

509 (when (imenu--subalist-p item)

4efabfff9aa1 (imenu--split-menu): Remove unused var `count'.

Stefan Monnier <monnier@iro.umontreal.ca>

parents: 50846

510 (push item keep-at-top)

4efabfff9aa1 (imenu--split-menu): Remove unused var `count'.

Stefan Monnier <monnier@iro.umontreal.ca>

parents: 50846

511 (setq menulist (delq item menulist))))

b64d00e44e7b (imenu--split-menu): Keep the rescan item at top level.

Richard M. Stallman <rms@gnu.org>

parents: 16271

512 (if imenu-sort-function

59568

3c6c2682ad8f (imenu--split-menu): Copy menulist before sorting.

Richard M. Stallman <rms@gnu.org>

parents: 58743

513 (setq menulist (sort (copy-sequence menulist) imenu-sort-function)))

4efabfff9aa1 (imenu--split-menu): Remove unused var `count'.

Stefan Monnier <monnier@iro.umontreal.ca>

parents: 50846

514 (if (> (length menulist) imenu-max-items)

b64d00e44e7b (imenu--split-menu): Keep the rescan item at top level.

Richard M. Stallman <rms@gnu.org>

parents: 16271

515 (setq menulist

4efabfff9aa1 (imenu--split-menu): Remove unused var `count'.

Stefan Monnier <monnier@iro.umontreal.ca>

parents: 50846

516 (mapcar

4efabfff9aa1 (imenu--split-menu): Remove unused var `count'.

Stefan Monnier <monnier@iro.umontreal.ca>

parents: 50846

517 (lambda (menu)

4efabfff9aa1 (imenu--split-menu): Remove unused var `count'.

Stefan Monnier <monnier@iro.umontreal.ca>

parents: 50846

518 (cons (format "From: %s" (caar menu)) menu))

4efabfff9aa1 (imenu--split-menu): Remove unused var `count'.

Stefan Monnier <monnier@iro.umontreal.ca>

parents: 50846

519 (imenu--split menulist imenu-max-items))))

b64d00e44e7b (imenu--split-menu): Keep the rescan item at top level.

Richard M. Stallman <rms@gnu.org>

parents: 16271

520 (cons title

b64d00e44e7b (imenu--split-menu): Keep the rescan item at top level.

Richard M. Stallman <rms@gnu.org>

parents: 16271

521 (nconc (nreverse keep-at-top) menulist))))

35e1cfdd29a4 (imenu--menubar-select): No longer interactive.

Richard M. Stallman <rms@gnu.org>

parents: 14725

522

35e1cfdd29a4 (imenu--menubar-select): No longer interactive.

Richard M. Stallman <rms@gnu.org>

parents: 14725

523 ;;; Split up each long alist that are nested within ALIST

35e1cfdd29a4 (imenu--menubar-select): No longer interactive.

Richard M. Stallman <rms@gnu.org>

parents: 14725

524 ;;; into nested alists.

35e1cfdd29a4 (imenu--menubar-select): No longer interactive.

Richard M. Stallman <rms@gnu.org>

parents: 14725

525 (defun imenu--split-submenus (alist)

5898cd2e4cd6 (imenu--generic-function): Doc fix. Rewritten to be faster.

Richard M. Stallman <rms@gnu.org>

parents: 20857

526 (mapcar (function

5898cd2e4cd6 (imenu--generic-function): Doc fix. Rewritten to be faster.

Richard M. Stallman <rms@gnu.org>

parents: 20857

527 (lambda (elt)

5898cd2e4cd6 (imenu--generic-function): Doc fix. Rewritten to be faster.

Richard M. Stallman <rms@gnu.org>

parents: 20857

528 (if (and (consp elt)

5898cd2e4cd6 (imenu--generic-function): Doc fix. Rewritten to be faster.

Richard M. Stallman <rms@gnu.org>

parents: 20857

529 (stringp (car elt))

5898cd2e4cd6 (imenu--generic-function): Doc fix. Rewritten to be faster.

Richard M. Stallman <rms@gnu.org>

parents: 20857

530 (listp (cdr elt)))

5898cd2e4cd6 (imenu--generic-function): Doc fix. Rewritten to be faster.

Richard M. Stallman <rms@gnu.org>

parents: 20857

531 (imenu--split-menu (cdr elt) (car elt))

5898cd2e4cd6 (imenu--generic-function): Doc fix. Rewritten to be faster.

Richard M. Stallman <rms@gnu.org>

parents: 20857

532 elt)))

35e1cfdd29a4 (imenu--menubar-select): No longer interactive.

Richard M. Stallman <rms@gnu.org>

parents: 14725

533 alist))

4c72f80598ae Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

534

830ad59547e4 (imenu-default-goto-function): Simplify.

Richard M. Stallman <rms@gnu.org>

parents: 17230

535 ;;; Truncate all strings in MENULIST to imenu-max-item-length

830ad59547e4 (imenu-default-goto-function): Simplify.

Richard M. Stallman <rms@gnu.org>

parents: 17230

536 (defun imenu--truncate-items (menulist)

35243

569b2a1b20df (imenu--truncate-items): Revert last change.

Dave Love <fx@gnu.org>

parents: 32780

537 (mapcar (function

569b2a1b20df (imenu--truncate-items): Revert last change.

Dave Love <fx@gnu.org>

parents: 32780

538 (lambda (item)

569b2a1b20df (imenu--truncate-items): Revert last change.

Dave Love <fx@gnu.org>

parents: 32780

539 (cond

569b2a1b20df (imenu--truncate-items): Revert last change.

Dave Love <fx@gnu.org>

parents: 32780

540 ((consp (cdr item))

569b2a1b20df (imenu--truncate-items): Revert last change.

Dave Love <fx@gnu.org>

parents: 32780

541 (imenu--truncate-items (cdr item)))

1389687cfa0a (imenu--completion-buffer): Don't return t for rescan.

Stefan Monnier <monnier@iro.umontreal.ca>

parents: 56683

542 ;; truncate if necessary

1389687cfa0a (imenu--completion-buffer): Don't return t for rescan.

Stefan Monnier <monnier@iro.umontreal.ca>

parents: 56683

543 ((and (numberp imenu-max-item-length)

1389687cfa0a (imenu--completion-buffer): Don't return t for rescan.

Stefan Monnier <monnier@iro.umontreal.ca>

parents: 56683

544 (> (length (car item)) imenu-max-item-length))

1389687cfa0a (imenu--completion-buffer): Don't return t for rescan.

Stefan Monnier <monnier@iro.umontreal.ca>

parents: 56683

545 (setcar item (substring (car item) 0 imenu-max-item-length))))))

35243

569b2a1b20df (imenu--truncate-items): Revert last change.

Dave Love <fx@gnu.org>

parents: 32780

546 menulist))

830ad59547e4 (imenu-default-goto-function): Simplify.

Richard M. Stallman <rms@gnu.org>

parents: 17230

547

830ad59547e4 (imenu-default-goto-function): Simplify.

Richard M. Stallman <rms@gnu.org>

parents: 17230

548

187e7c8aaff5 (imenu--make-index-alist): Add doc string.

Richard M. Stallman <rms@gnu.org>

parents: 16315

549 (defun imenu--make-index-alist (&optional noerror)

187e7c8aaff5 (imenu--make-index-alist): Add doc string.

Richard M. Stallman <rms@gnu.org>

parents: 16315

550 "Create an index-alist for the definitions in the current buffer.

4c72f80598ae Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

551

5898cd2e4cd6 (imenu--generic-function): Doc fix. Rewritten to be faster.

Richard M. Stallman <rms@gnu.org>

parents: 20857

552 Report an error if the list is empty unless NOERROR is supplied and

5898cd2e4cd6 (imenu--generic-function): Doc fix. Rewritten to be faster.

Richard M. Stallman <rms@gnu.org>

parents: 20857

553 non-nil.

5898cd2e4cd6 (imenu--generic-function): Doc fix. Rewritten to be faster.

Richard M. Stallman <rms@gnu.org>

parents: 20857

554

187e7c8aaff5 (imenu--make-index-alist): Add doc string.

Richard M. Stallman <rms@gnu.org>

parents: 16315

555 Simple elements in the alist look like (INDEX-NAME . INDEX-POSITION).

187e7c8aaff5 (imenu--make-index-alist): Add doc string.

Richard M. Stallman <rms@gnu.org>

parents: 16315

556 Special elements look like (INDEX-NAME FUNCTION ARGUMENTS...).

187e7c8aaff5 (imenu--make-index-alist): Add doc string.

Richard M. Stallman <rms@gnu.org>

parents: 16315

557 A nested sub-alist element looks like (INDEX-NAME SUB-ALIST).

187e7c8aaff5 (imenu--make-index-alist): Add doc string.

Richard M. Stallman <rms@gnu.org>

parents: 16315

558 The function `imenu--subalist-p' tests an element and returns t

5898cd2e4cd6 (imenu--generic-function): Doc fix. Rewritten to be faster.

Richard M. Stallman <rms@gnu.org>

parents: 20857

559 if it is a sub-alist.

187e7c8aaff5 (imenu--make-index-alist): Add doc string.

Richard M. Stallman <rms@gnu.org>

parents: 16315

560

187e7c8aaff5 (imenu--make-index-alist): Add doc string.

Richard M. Stallman <rms@gnu.org>

parents: 16315

561 There is one simple element with negative POSITION; that's intended

187e7c8aaff5 (imenu--make-index-alist): Add doc string.

Richard M. Stallman <rms@gnu.org>

parents: 16315

562 as a way for the user to ask to recalculate the buffer's index alist."

4fbc70e4d5e7 (imenu-use-keymap-menu): New variable.

Richard M. Stallman <rms@gnu.org>

parents: 10795

563 (or (and imenu--index-alist

4fbc70e4d5e7 (imenu-use-keymap-menu): New variable.

Richard M. Stallman <rms@gnu.org>

parents: 10795

564 (or (not imenu-auto-rescan)

4fbc70e4d5e7 (imenu-use-keymap-menu): New variable.

Richard M. Stallman <rms@gnu.org>

parents: 10795

565 (and imenu-auto-rescan

4fbc70e4d5e7 (imenu-use-keymap-menu): New variable.

Richard M. Stallman <rms@gnu.org>

parents: 10795

566 (> (buffer-size) imenu-auto-rescan-maxout))))

830ad59547e4 (imenu-default-goto-function): Simplify.

Richard M. Stallman <rms@gnu.org>

parents: 17230

567 ;; Get the index; truncate if necessary

830ad59547e4 (imenu-default-goto-function): Simplify.

Richard M. Stallman <rms@gnu.org>

parents: 17230

568 (progn

830ad59547e4 (imenu-default-goto-function): Simplify.

Richard M. Stallman <rms@gnu.org>

parents: 17230

569 (setq imenu--index-alist

830ad59547e4 (imenu-default-goto-function): Simplify.

Richard M. Stallman <rms@gnu.org>

parents: 17230

570 (save-excursion

830ad59547e4 (imenu-default-goto-function): Simplify.

Richard M. Stallman <rms@gnu.org>

parents: 17230

571 (save-restriction

830ad59547e4 (imenu-default-goto-function): Simplify.

Richard M. Stallman <rms@gnu.org>

parents: 17230

572 (widen)

830ad59547e4 (imenu-default-goto-function): Simplify.

Richard M. Stallman <rms@gnu.org>

parents: 17230

573 (funcall imenu-create-index-function))))

830ad59547e4 (imenu-default-goto-function): Simplify.

Richard M. Stallman <rms@gnu.org>

parents: 17230

574 (imenu--truncate-items imenu--index-alist)))

4eac65d000d3 (imenu-update-menubar): New function.

Karl Heuer <kwzh@gnu.org>

parents: 13645

575 (or imenu--index-alist noerror

4eac65d000d3 (imenu-update-menubar): New function.

Karl Heuer <kwzh@gnu.org>

parents: 13645

576 (error "No items suitable for an index found in this buffer"))

4c72f80598ae Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

577 (or imenu--index-alist

4eac65d000d3 (imenu-update-menubar): New function.

Karl Heuer <kwzh@gnu.org>

parents: 13645

578 (setq imenu--index-alist (list nil)))

4c72f80598ae Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

579 ;; Add a rescan option to the index.

4c72f80598ae Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

580 (cons imenu--rescan-item imenu--index-alist))

16315

cca1c6324cab (imenu--cleanup): Handle shared structure in alist.

Richard M. Stallman <rms@gnu.org>

parents: 16272

581

109166e311ce (imenu, imenu--flatten-index-alist): Add marker support.

Richard M. Stallman <rms@gnu.org>

parents: 8296

582 ;;; Find all markers in alist and makes

109166e311ce (imenu, imenu--flatten-index-alist): Add marker support.

Richard M. Stallman <rms@gnu.org>

parents: 8296

583 ;;; them point nowhere.

16315

cca1c6324cab (imenu--cleanup): Handle shared structure in alist.

Richard M. Stallman <rms@gnu.org>

parents: 16272

584 ;;; The top-level call uses nil as the argument;

cca1c6324cab (imenu--cleanup): Handle shared structure in alist.

Richard M. Stallman <rms@gnu.org>

parents: 16272

585 ;;; non-nil arguments are in recursivecalls.

cca1c6324cab (imenu--cleanup): Handle shared structure in alist.

Richard M. Stallman <rms@gnu.org>

parents: 16272

586 (defvar imenu--cleanup-seen)

cca1c6324cab (imenu--cleanup): Handle shared structure in alist.

Richard M. Stallman <rms@gnu.org>

parents: 16272

587

109166e311ce (imenu, imenu--flatten-index-alist): Add marker support.

Richard M. Stallman <rms@gnu.org>

parents: 8296

588 (defun imenu--cleanup (&optional alist)

5898cd2e4cd6 (imenu--generic-function): Doc fix. Rewritten to be faster.

Richard M. Stallman <rms@gnu.org>

parents: 20857

589 ;; If alist is provided use that list.

16315

cca1c6324cab (imenu--cleanup): Handle shared structure in alist.

Richard M. Stallman <rms@gnu.org>

parents: 16272

590 ;; If not, empty the table of lists already seen

cca1c6324cab (imenu--cleanup): Handle shared structure in alist.

Richard M. Stallman <rms@gnu.org>

parents: 16272

591 ;; and use imenu--index-alist.

cca1c6324cab (imenu--cleanup): Handle shared structure in alist.

Richard M. Stallman <rms@gnu.org>

parents: 16272

592 (if alist

cca1c6324cab (imenu--cleanup): Handle shared structure in alist.

Richard M. Stallman <rms@gnu.org>

parents: 16272

593 (setq imenu--cleanup-seen (cons alist imenu--cleanup-seen))

cca1c6324cab (imenu--cleanup): Handle shared structure in alist.

Richard M. Stallman <rms@gnu.org>

parents: 16272

594 (setq alist imenu--index-alist imenu--cleanup-seen (list alist)))

cca1c6324cab (imenu--cleanup): Handle shared structure in alist.

Richard M. Stallman <rms@gnu.org>

parents: 16272

595

10795

8cbc8846b19b (imenu--cleanup): Set alist to its default just once, at the beginning.

Richard M. Stallman <rms@gnu.org>

parents: 10221

596 (and alist

31560

5dd0eccb46c5 (imenu--truncate-items, imenu--cleanup)

Dave Love <fx@gnu.org>

parents: 29552

597 (mapc

5dd0eccb46c5 (imenu--truncate-items, imenu--cleanup)

Dave Love <fx@gnu.org>

parents: 29552

598 (lambda (item)

5dd0eccb46c5 (imenu--truncate-items, imenu--cleanup)

Dave Love <fx@gnu.org>

parents: 29552

599 (cond

5dd0eccb46c5 (imenu--truncate-items, imenu--cleanup)

Dave Love <fx@gnu.org>

parents: 29552

600 ((markerp (cdr item))

5dd0eccb46c5 (imenu--truncate-items, imenu--cleanup)

Dave Love <fx@gnu.org>

parents: 29552

601 (set-marker (cdr item) nil))

5dd0eccb46c5 (imenu--truncate-items, imenu--cleanup)

Dave Love <fx@gnu.org>

parents: 29552

602 ;; Don't process one alist twice.

5dd0eccb46c5 (imenu--truncate-items, imenu--cleanup)

Dave Love <fx@gnu.org>

parents: 29552

603 ((memq (cdr item) imenu--cleanup-seen))

5dd0eccb46c5 (imenu--truncate-items, imenu--cleanup)

Dave Love <fx@gnu.org>

parents: 29552

604 ((imenu--subalist-p item)

5dd0eccb46c5 (imenu--truncate-items, imenu--cleanup)

Dave Love <fx@gnu.org>

parents: 29552

605 (imenu--cleanup (cdr item)))))

10795

8cbc8846b19b (imenu--cleanup): Set alist to its default just once, at the beginning.

Richard M. Stallman <rms@gnu.org>

parents: 10221

606 alist)

caafb376e619 (imenu-generic-expression): New variable.

Karl Heuer <kwzh@gnu.org>

parents: 10072

607 t))

caafb376e619 (imenu-generic-expression): New variable.

Karl Heuer <kwzh@gnu.org>

parents: 10072

608

4efabfff9aa1 (imenu--split-menu): Remove unused var `count'.

Stefan Monnier <monnier@iro.umontreal.ca>

parents: 50846

609 (defun imenu--create-keymap (title alist &optional cmd)

4efabfff9aa1 (imenu--split-menu): Remove unused var `count'.

Stefan Monnier <monnier@iro.umontreal.ca>

parents: 50846

610 (list* 'keymap title

4efabfff9aa1 (imenu--split-menu): Remove unused var `count'.

Stefan Monnier <monnier@iro.umontreal.ca>

parents: 50846

611 (mapcar

4efabfff9aa1 (imenu--split-menu): Remove unused var `count'.

Stefan Monnier <monnier@iro.umontreal.ca>

parents: 50846

612 (lambda (item)

4efabfff9aa1 (imenu--split-menu): Remove unused var `count'.

Stefan Monnier <monnier@iro.umontreal.ca>

parents: 50846

613 (list* (car item) (car item)

4efabfff9aa1 (imenu--split-menu): Remove unused var `count'.

Stefan Monnier <monnier@iro.umontreal.ca>

parents: 50846

614 (cond

4efabfff9aa1 (imenu--split-menu): Remove unused var `count'.

Stefan Monnier <monnier@iro.umontreal.ca>

parents: 50846

615 ((imenu--subalist-p item)

4efabfff9aa1 (imenu--split-menu): Remove unused var `count'.

Stefan Monnier <monnier@iro.umontreal.ca>

parents: 50846

616 (imenu--create-keymap (car item) (cdr item) cmd))

4efabfff9aa1 (imenu--split-menu): Remove unused var `count'.

Stefan Monnier <monnier@iro.umontreal.ca>

parents: 50846

617 (t

4efabfff9aa1 (imenu--split-menu): Remove unused var `count'.

Stefan Monnier <monnier@iro.umontreal.ca>

parents: 50846

618 `(lambda () (interactive)

4efabfff9aa1 (imenu--split-menu): Remove unused var `count'.

Stefan Monnier <monnier@iro.umontreal.ca>

parents: 50846

619 ,(if cmd `(,cmd ',item) (list 'quote item)))))))

4efabfff9aa1 (imenu--split-menu): Remove unused var `count'.

Stefan Monnier <monnier@iro.umontreal.ca>

parents: 50846

620 alist)))

4fbc70e4d5e7 (imenu-use-keymap-menu): New variable.

Richard M. Stallman <rms@gnu.org>

parents: 10795

621

4fbc70e4d5e7 (imenu-use-keymap-menu): New variable.

Richard M. Stallman <rms@gnu.org>

parents: 10795

622 (defun imenu--in-alist (str alist)

4fbc70e4d5e7 (imenu-use-keymap-menu): New variable.

Richard M. Stallman <rms@gnu.org>

parents: 10795

623 "Check whether the string STR is contained in multi-level ALIST."

4fbc70e4d5e7 (imenu-use-keymap-menu): New variable.

Richard M. Stallman <rms@gnu.org>

parents: 10795

624 (let (elt head tail res)

4fbc70e4d5e7 (imenu-use-keymap-menu): New variable.

Richard M. Stallman <rms@gnu.org>

parents: 10795

625 (setq res nil)

4fbc70e4d5e7 (imenu-use-keymap-menu): New variable.

Richard M. Stallman <rms@gnu.org>

parents: 10795

626 (while alist

5898cd2e4cd6 (imenu--generic-function): Doc fix. Rewritten to be faster.

Richard M. Stallman <rms@gnu.org>

parents: 20857

627 (setq elt (car alist)

4fbc70e4d5e7 (imenu-use-keymap-menu): New variable.

Richard M. Stallman <rms@gnu.org>

parents: 10795

628 tail (cdr elt)

5898cd2e4cd6 (imenu--generic-function): Doc fix. Rewritten to be faster.

Richard M. Stallman <rms@gnu.org>

parents: 20857

629 alist (cdr alist)

5898cd2e4cd6 (imenu--generic-function): Doc fix. Rewritten to be faster.

Richard M. Stallman <rms@gnu.org>

parents: 20857

630 head (car elt))

15929

955269257adf (imenu--in-alist): Accept only bottom-level matches.

Richard M. Stallman <rms@gnu.org>

parents: 15831

631 ;; A nested ALIST element looks like

955269257adf (imenu--in-alist): Accept only bottom-level matches.

Richard M. Stallman <rms@gnu.org>

parents: 15831

632 ;; (INDEX-NAME (INDEX-NAME . INDEX-POSITION) ...)

955269257adf (imenu--in-alist): Accept only bottom-level matches.

Richard M. Stallman <rms@gnu.org>

parents: 15831

633 ;; while a bottom-level element looks like

955269257adf (imenu--in-alist): Accept only bottom-level matches.

Richard M. Stallman <rms@gnu.org>

parents: 15831

634 ;; (INDEX-NAME . INDEX-POSITION)

955269257adf (imenu--in-alist): Accept only bottom-level matches.

Richard M. Stallman <rms@gnu.org>

parents: 15831

635 ;; We are only interested in the bottom-level elements, so we need to

955269257adf (imenu--in-alist): Accept only bottom-level matches.

Richard M. Stallman <rms@gnu.org>

parents: 15831

636 ;; recurse if TAIL is a list.

955269257adf (imenu--in-alist): Accept only bottom-level matches.

Richard M. Stallman <rms@gnu.org>

parents: 15831

637 (cond ((listp tail)

955269257adf (imenu--in-alist): Accept only bottom-level matches.

Richard M. Stallman <rms@gnu.org>

parents: 15831

638 (if (setq res (imenu--in-alist str tail))

955269257adf (imenu--in-alist): Accept only bottom-level matches.

Richard M. Stallman <rms@gnu.org>

parents: 15831

639 (setq alist nil)))

f1417ed050c0 (imenu-after-jump-hook): New variable.

Phillip Rulon <pjr@gnu.org>

parents: 24578

640 ((if imenu-name-lookup-function

f1417ed050c0 (imenu-after-jump-hook): New variable.

Phillip Rulon <pjr@gnu.org>

parents: 24578

641 (funcall imenu-name-lookup-function str head)

f1417ed050c0 (imenu-after-jump-hook): New variable.

Phillip Rulon <pjr@gnu.org>

parents: 24578

642 (string= str head))

15929

955269257adf (imenu--in-alist): Accept only bottom-level matches.

Richard M. Stallman <rms@gnu.org>

parents: 15831

643 (setq alist nil res elt))))

4fbc70e4d5e7 (imenu-use-keymap-menu): New variable.

Richard M. Stallman <rms@gnu.org>

parents: 10795

644 res))

4fbc70e4d5e7 (imenu-use-keymap-menu): New variable.

Richard M. Stallman <rms@gnu.org>

parents: 10795

645

31a8ad177c4c (imenu-syntax-alist): New buffer-local variable.

Dave Love <fx@gnu.org>

parents: 20769

646 (defvar imenu-syntax-alist nil

71197bcff33c (imenu--split-menu): Use dolist and copy-sequence.

Stefan Monnier <monnier@iro.umontreal.ca>

parents: 38412

647 "Alist of syntax table modifiers to use while in `imenu--generic-function'.

31a8ad177c4c (imenu-syntax-alist): New buffer-local variable.

Dave Love <fx@gnu.org>

parents: 20769

648

31a8ad177c4c (imenu-syntax-alist): New buffer-local variable.

Dave Love <fx@gnu.org>

parents: 20769

649 The car of the assocs may be either a character or a string and the

46981

db48206dc290 (imenu-syntax-alist): Doc fix.

Glenn Morris <rgm@gnu.org>

parents: 46977

650 cdr is a syntax description appropriate for `modify-syntax-entry'. For

31a8ad177c4c (imenu-syntax-alist): New buffer-local variable.

Dave Love <fx@gnu.org>

parents: 20769

651 a string, all the characters in the string get the specified syntax.

31a8ad177c4c (imenu-syntax-alist): New buffer-local variable.

Dave Love <fx@gnu.org>

parents: 20769

652

31a8ad177c4c (imenu-syntax-alist): New buffer-local variable.

Dave Love <fx@gnu.org>

parents: 20769

653 This is typically used to give word syntax to characters which

22260

b9120925ef93 (imenu-syntax-alist): Doc fix.

Dave Love <fx@gnu.org>

parents: 22250

654 normally have symbol syntax to simplify `imenu-expression'

31a8ad177c4c (imenu-syntax-alist): New buffer-local variable.

Dave Love <fx@gnu.org>

parents: 20769

655 and speed-up matching.")

35688

8b295a5d2192 (imenu-syntax-alist): Add autoload cookie for

Gerd Moellmann <gerd@gnu.org>

parents: 35243

656 ;;;###autoload

31a8ad177c4c (imenu-syntax-alist): New buffer-local variable.

Dave Love <fx@gnu.org>

parents: 20769

657 (make-variable-buffer-local 'imenu-syntax-alist)

31a8ad177c4c (imenu-syntax-alist): New buffer-local variable.

Dave Love <fx@gnu.org>

parents: 20769

658

4c72f80598ae Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

659 (defun imenu-default-create-index-function ()

4c72f80598ae Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

660 "*Wrapper for index searching functions.

4c72f80598ae Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

661

4c72f80598ae Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

662 Moves point to end of buffer and then repeatedly calls

cd73ba498964 (imenu): Renamed from goto-index-pos.

Richard M. Stallman <rms@gnu.org>

parents: 6909

663 `imenu-prev-index-position-function' and `imenu-extract-index-name-function'.

4c72f80598ae Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

664 Their results are gathered into an index alist."

542ab48d0f18 (imenu-default-create-index-function):

Richard M. Stallman <rms@gnu.org>

parents: 7319

665 ;; These should really be done by setting imenu-create-index-function

542ab48d0f18 (imenu-default-create-index-function):

Richard M. Stallman <rms@gnu.org>

parents: 7319

666 ;; in these major modes. But save that change for later.

20249

c42156dab61b (imenu-default-create-index-function):

Karl Heuer <kwzh@gnu.org>

parents: 20051

667 (cond ((and imenu-prev-index-position-function

c42156dab61b (imenu-default-create-index-function):

Karl Heuer <kwzh@gnu.org>

parents: 20051

668 imenu-extract-index-name-function)

542ab48d0f18 (imenu-default-create-index-function):

Richard M. Stallman <rms@gnu.org>

parents: 7319

669 (let ((index-alist '())

caafb376e619 (imenu-generic-expression): New variable.

Karl Heuer <kwzh@gnu.org>

parents: 10072

670 prev-pos name)

542ab48d0f18 (imenu-default-create-index-function):

Richard M. Stallman <rms@gnu.org>

parents: 7319

671 (goto-char (point-max))

b2b493c007ff (imenu-choose-buffer-index): Use last-nonmenu-event

Richard M. Stallman <rms@gnu.org>

parents: 8256

672 (imenu-progress-message prev-pos 0 t)

542ab48d0f18 (imenu-default-create-index-function):

Richard M. Stallman <rms@gnu.org>

parents: 7319

673 ;; Search for the function

5898cd2e4cd6 (imenu--generic-function): Doc fix. Rewritten to be faster.

Richard M. Stallman <rms@gnu.org>

parents: 20857

674 (while (funcall imenu-prev-index-position-function)

b2b493c007ff (imenu-choose-buffer-index): Use last-nonmenu-event

Richard M. Stallman <rms@gnu.org>

parents: 8256

675 (imenu-progress-message prev-pos nil t)

542ab48d0f18 (imenu-default-create-index-function):

Richard M. Stallman <rms@gnu.org>

parents: 7319

676 (save-excursion

542ab48d0f18 (imenu-default-create-index-function):

Richard M. Stallman <rms@gnu.org>

parents: 7319

677 (setq name (funcall imenu-extract-index-name-function)))

542ab48d0f18 (imenu-default-create-index-function):

Richard M. Stallman <rms@gnu.org>

parents: 7319

678 (and (stringp name)

830ad59547e4 (imenu-default-goto-function): Simplify.

Richard M. Stallman <rms@gnu.org>

parents: 17230

679 ;; [ydi] updated for imenu-use-markers

830ad59547e4 (imenu-default-goto-function): Simplify.

Richard M. Stallman <rms@gnu.org>

parents: 17230

680 (push (cons name (if imenu-use-markers (point-marker) (point)))

830ad59547e4 (imenu-default-goto-function): Simplify.

Richard M. Stallman <rms@gnu.org>

parents: 17230

681 index-alist)))

b2b493c007ff (imenu-choose-buffer-index): Use last-nonmenu-event

Richard M. Stallman <rms@gnu.org>

parents: 8256

682 (imenu-progress-message prev-pos 100 t)

caafb376e619 (imenu-generic-expression): New variable.

Karl Heuer <kwzh@gnu.org>

parents: 10072

683 index-alist))

caafb376e619 (imenu-generic-expression): New variable.

Karl Heuer <kwzh@gnu.org>

parents: 10072

684 ;; Use generic expression if possible.

caafb376e619 (imenu-generic-expression): New variable.

Karl Heuer <kwzh@gnu.org>

parents: 10072

685 ((and imenu-generic-expression)

5898cd2e4cd6 (imenu--generic-function): Doc fix. Rewritten to be faster.

Richard M. Stallman <rms@gnu.org>

parents: 20857

686 (imenu--generic-function imenu-generic-expression))

caafb376e619 (imenu-generic-expression): New variable.

Karl Heuer <kwzh@gnu.org>

parents: 10072

687 (t

830ad59547e4 (imenu-default-goto-function): Simplify.

Richard M. Stallman <rms@gnu.org>

parents: 17230

688 (error "This buffer cannot use `imenu-default-create-index-function'"))))

4c72f80598ae Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

689

5898cd2e4cd6 (imenu--generic-function): Doc fix. Rewritten to be faster.

Richard M. Stallman <rms@gnu.org>

parents: 20857

690 ;; Not used and would require cl at run time

4efabfff9aa1 (imenu--split-menu): Remove unused var `count'.

Stefan Monnier <monnier@iro.umontreal.ca>

parents: 50846

691 ;; (defun imenu--flatten-index-alist (index-alist &optional concat-names prefix)

4efabfff9aa1 (imenu--split-menu): Remove unused var `count'.

Stefan Monnier <monnier@iro.umontreal.ca>

parents: 50846

692 ;; ;; Takes a nested INDEX-ALIST and returns a flat index alist.

4efabfff9aa1 (imenu--split-menu): Remove unused var `count'.

Stefan Monnier <monnier@iro.umontreal.ca>

parents: 50846

693 ;; ;; If optional CONCAT-NAMES is non-nil, then a nested index has its

4efabfff9aa1 (imenu--split-menu): Remove unused var `count'.

Stefan Monnier <monnier@iro.umontreal.ca>

parents: 50846

694 ;; ;; name and a space concatenated to the names of the children.

4efabfff9aa1 (imenu--split-menu): Remove unused var `count'.

Stefan Monnier <monnier@iro.umontreal.ca>

parents: 50846

695 ;; ;; Third argument PREFIX is for internal use only.

4efabfff9aa1 (imenu--split-menu): Remove unused var `count'.

Stefan Monnier <monnier@iro.umontreal.ca>

parents: 50846

696 ;; (mapcan

4efabfff9aa1 (imenu--split-menu): Remove unused var `count'.

Stefan Monnier <monnier@iro.umontreal.ca>

parents: 50846

697 ;; (lambda (item)

4efabfff9aa1 (imenu--split-menu): Remove unused var `count'.

Stefan Monnier <monnier@iro.umontreal.ca>

parents: 50846

698 ;; (let* ((name (car item))

4efabfff9aa1 (imenu--split-menu): Remove unused var `count'.

Stefan Monnier <monnier@iro.umontreal.ca>

parents: 50846

699 ;; (pos (cdr item))

4efabfff9aa1 (imenu--split-menu): Remove unused var `count'.

Stefan Monnier <monnier@iro.umontreal.ca>

parents: 50846

700 ;; (new-prefix (and concat-names

4efabfff9aa1 (imenu--split-menu): Remove unused var `count'.

Stefan Monnier <monnier@iro.umontreal.ca>

parents: 50846

701 ;; (if prefix

4efabfff9aa1 (imenu--split-menu): Remove unused var `count'.

Stefan Monnier <monnier@iro.umontreal.ca>

parents: 50846

702 ;; (concat prefix imenu-level-separator name)

4efabfff9aa1 (imenu--split-menu): Remove unused var `count'.

Stefan Monnier <monnier@iro.umontreal.ca>

parents: 50846

703 ;; name))))

4efabfff9aa1 (imenu--split-menu): Remove unused var `count'.

Stefan Monnier <monnier@iro.umontreal.ca>

parents: 50846

704 ;; (cond

4efabfff9aa1 (imenu--split-menu): Remove unused var `count'.

Stefan Monnier <monnier@iro.umontreal.ca>

parents: 50846

705 ;; ((or (markerp pos) (numberp pos))

4efabfff9aa1 (imenu--split-menu): Remove unused var `count'.

Stefan Monnier <monnier@iro.umontreal.ca>

parents: 50846

706 ;; (list (cons new-prefix pos)))

4efabfff9aa1 (imenu--split-menu): Remove unused var `count'.

Stefan Monnier <monnier@iro.umontreal.ca>

parents: 50846

707 ;; (t

4efabfff9aa1 (imenu--split-menu): Remove unused var `count'.

Stefan Monnier <monnier@iro.umontreal.ca>

parents: 50846

708 ;; (imenu--flatten-index-alist pos new-prefix)))))

4efabfff9aa1 (imenu--split-menu): Remove unused var `count'.

Stefan Monnier <monnier@iro.umontreal.ca>

parents: 50846

709 ;; index-alist))

4c72f80598ae Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

710

caafb376e619 (imenu-generic-expression): New variable.

Karl Heuer <kwzh@gnu.org>

parents: 10072

711 ;;;

caafb376e619 (imenu-generic-expression): New variable.

Karl Heuer <kwzh@gnu.org>

parents: 10072

712 ;;; Generic index gathering function.

caafb376e619 (imenu-generic-expression): New variable.

Karl Heuer <kwzh@gnu.org>

parents: 10072

713 ;;;

4fbc70e4d5e7 (imenu-use-keymap-menu): New variable.

Richard M. Stallman <rms@gnu.org>

parents: 10795

714

20769

aa3481dd4d84 (imenu-case-fold-search): New buffer-local variable.

Dave Love <fx@gnu.org>

parents: 20249

715 (defvar imenu-case-fold-search t

aa3481dd4d84 (imenu-case-fold-search): New buffer-local variable.

Dave Love <fx@gnu.org>

parents: 20249

716 "Defines whether `imenu--generic-function' should fold case when matching.

aa3481dd4d84 (imenu-case-fold-search): New buffer-local variable.

Dave Love <fx@gnu.org>

parents: 20249

717

71197bcff33c (imenu--split-menu): Use dolist and copy-sequence.

Stefan Monnier <monnier@iro.umontreal.ca>

parents: 38412

718 This variable should be set (only) by initialization code

50846

1ac6f8245bff (imenu--generic-function): Use font-lock-defaults

Stefan Monnier <monnier@iro.umontreal.ca>

parents: 46981

719 for modes which use `imenu--generic-function'. If it is not set, but

1ac6f8245bff (imenu--generic-function): Use font-lock-defaults

Stefan Monnier <monnier@iro.umontreal.ca>

parents: 46981

720 `font-lock-defaults' is set, then font-lock's setting is used.")

5898cd2e4cd6 (imenu--generic-function): Doc fix. Rewritten to be faster.

Richard M. Stallman <rms@gnu.org>

parents: 20857

721 ;;;###autoload

20769

aa3481dd4d84 (imenu-case-fold-search): New buffer-local variable.

Dave Love <fx@gnu.org>

parents: 20249

722 (make-variable-buffer-local 'imenu-case-fold-search)

aa3481dd4d84 (imenu-case-fold-search): New buffer-local variable.

Dave Love <fx@gnu.org>

parents: 20249

723

58489

5df4ac03694d Don't always require newcomment.

Richard M. Stallman <rms@gnu.org>

parents: 58364

724 ;; This function can be called with quitting disabled,

5df4ac03694d Don't always require newcomment.

Richard M. Stallman <rms@gnu.org>

parents: 58364

725 ;; so it needs to be careful never to loop!

4fbc70e4d5e7 (imenu-use-keymap-menu): New variable.

Richard M. Stallman <rms@gnu.org>

parents: 10795

726 (defun imenu--generic-function (patterns)

4fbc70e4d5e7 (imenu-use-keymap-menu): New variable.

Richard M. Stallman <rms@gnu.org>

parents: 10795

727 "Return an index of the current buffer as an alist.

4fbc70e4d5e7 (imenu-use-keymap-menu): New variable.

Richard M. Stallman <rms@gnu.org>

parents: 10795

728

5898cd2e4cd6 (imenu--generic-function): Doc fix. Rewritten to be faster.

Richard M. Stallman <rms@gnu.org>

parents: 20857

729 PATTERNS is an alist with elements that look like this:

7be08219b736 (imenu-generic-expression, imenu--generic-function'): REGEXP may also be a search function now. The part of doc-string for describing the structure was 95% identical to that of `imenu--generic-function'. Unify it there.

Daniel Pfeiffer <occitan@esperanto.org>

parents: 62531

730 (MENU-TITLE REGEXP INDEX)

52733

9cb896b7b7e2 (imenu--generic-function): Docstring fix.

Lute Kamstra <lute@gnu.org>

parents: 52401

731 or like this:

9cb896b7b7e2 (imenu--generic-function): Docstring fix.

Lute Kamstra <lute@gnu.org>

parents: 52401

732 (MENU-TITLE REGEXP INDEX FUNCTION ARGUMENTS...)

7be08219b736 (imenu-generic-expression, imenu--generic-function'): REGEXP may also be a search function now. The part of doc-string for describing the structure was 95% identical to that of `imenu--generic-function'. Unify it there.

Daniel Pfeiffer <occitan@esperanto.org>

parents: 62531

733 with zero or more ARGUMENTS. The former format creates a simple

7be08219b736 (imenu-generic-expression, imenu--generic-function'): REGEXP may also be a search function now. The part of doc-string for describing the structure was 95% identical to that of `imenu--generic-function'. Unify it there.

Daniel Pfeiffer <occitan@esperanto.org>

parents: 62531

734 element in the index alist when it matches; the latter creates a

7be08219b736 (imenu-generic-expression, imenu--generic-function'): REGEXP may also be a search function now. The part of doc-string for describing the structure was 95% identical to that of `imenu--generic-function'. Unify it there.

Daniel Pfeiffer <occitan@esperanto.org>

parents: 62531

735 special element of the form (NAME POSITION-MARKER FUNCTION

7be08219b736 (imenu-generic-expression, imenu--generic-function'): REGEXP may also be a search function now. The part of doc-string for describing the structure was 95% identical to that of `imenu--generic-function'. Unify it there.

Daniel Pfeiffer <occitan@esperanto.org>

parents: 62531

736 ARGUMENTS...) with FUNCTION and ARGUMENTS copied from

7be08219b736 (imenu-generic-expression, imenu--generic-function'): REGEXP may also be a search function now. The part of doc-string for describing the structure was 95% identical to that of `imenu--generic-function'. Unify it there.

Daniel Pfeiffer <occitan@esperanto.org>

parents: 62531

737 `imenu-generic-expression'.

4fbc70e4d5e7 (imenu-use-keymap-menu): New variable.

Richard M. Stallman <rms@gnu.org>

parents: 10795

738

7be08219b736 (imenu-generic-expression, imenu--generic-function'): REGEXP may also be a search function now. The part of doc-string for describing the structure was 95% identical to that of `imenu--generic-function'. Unify it there.

Daniel Pfeiffer <occitan@esperanto.org>

parents: 62531

739 MENU-TITLE is a string used as the title for the submenu or nil

7be08219b736 (imenu-generic-expression, imenu--generic-function'): REGEXP may also be a search function now. The part of doc-string for describing the structure was 95% identical to that of `imenu--generic-function'. Unify it there.

Daniel Pfeiffer <occitan@esperanto.org>

parents: 62531

740 if the entries are not nested.

4fbc70e4d5e7 (imenu-use-keymap-menu): New variable.

Richard M. Stallman <rms@gnu.org>

parents: 10795

741

7be08219b736 (imenu-generic-expression, imenu--generic-function'): REGEXP may also be a search function now. The part of doc-string for describing the structure was 95% identical to that of `imenu--generic-function'. Unify it there.

Daniel Pfeiffer <occitan@esperanto.org>

parents: 62531

742 REGEXP is a regexp that should match a construct in the buffer

7be08219b736 (imenu-generic-expression, imenu--generic-function'): REGEXP may also be a search function now. The part of doc-string for describing the structure was 95% identical to that of `imenu--generic-function'. Unify it there.

Daniel Pfeiffer <occitan@esperanto.org>

parents: 62531

743 that is to be displayed in the menu; i.e., function or variable

7be08219b736 (imenu-generic-expression, imenu--generic-function'): REGEXP may also be a search function now. The part of doc-string for describing the structure was 95% identical to that of `imenu--generic-function'. Unify it there.

Daniel Pfeiffer <occitan@esperanto.org>

parents: 62531

744 definitions, etc. It contains a substring which is the name to

7be08219b736 (imenu-generic-expression, imenu--generic-function'): REGEXP may also be a search function now. The part of doc-string for describing the structure was 95% identical to that of `imenu--generic-function'. Unify it there.

Daniel Pfeiffer <occitan@esperanto.org>

parents: 62531

745 appear in the menu. See the info section on Regexps for more

7be08219b736 (imenu-generic-expression, imenu--generic-function'): REGEXP may also be a search function now. The part of doc-string for describing the structure was 95% identical to that of `imenu--generic-function'. Unify it there.

Daniel Pfeiffer <occitan@esperanto.org>

parents: 62531

746 information. REGEXP may also be a function, called without

7be08219b736 (imenu-generic-expression, imenu--generic-function'): REGEXP may also be a search function now. The part of doc-string for describing the structure was 95% identical to that of `imenu--generic-function'. Unify it there.

Daniel Pfeiffer <occitan@esperanto.org>

parents: 62531

747 arguments. It is expected to search backwards. It shall return

7be08219b736 (imenu-generic-expression, imenu--generic-function'): REGEXP may also be a search function now. The part of doc-string for describing the structure was 95% identical to that of `imenu--generic-function'. Unify it there.

Daniel Pfeiffer <occitan@esperanto.org>

parents: 62531

748 true and set `match-data' iff it finds another element.

4fbc70e4d5e7 (imenu-use-keymap-menu): New variable.

Richard M. Stallman <rms@gnu.org>

parents: 10795

749

7be08219b736 (imenu-generic-expression, imenu--generic-function'): REGEXP may also be a search function now. The part of doc-string for describing the structure was 95% identical to that of `imenu--generic-function'. Unify it there.

Daniel Pfeiffer <occitan@esperanto.org>

parents: 62531

750 INDEX points to the substring in REGEXP that contains the

7be08219b736 (imenu-generic-expression, imenu--generic-function'): REGEXP may also be a search function now. The part of doc-string for describing the structure was 95% identical to that of `imenu--generic-function'. Unify it there.

Daniel Pfeiffer <occitan@esperanto.org>

parents: 62531

751 name (of the function, variable or type) that is to appear in the

7be08219b736 (imenu-generic-expression, imenu--generic-function'): REGEXP may also be a search function now. The part of doc-string for describing the structure was 95% identical to that of `imenu--generic-function'. Unify it there.

Daniel Pfeiffer <occitan@esperanto.org>

parents: 62531

752 menu.

7be08219b736 (imenu-generic-expression, imenu--generic-function'): REGEXP may also be a search function now. The part of doc-string for describing the structure was 95% identical to that of `imenu--generic-function'. Unify it there.

Daniel Pfeiffer <occitan@esperanto.org>

parents: 62531

753

7be08219b736 (imenu-generic-expression, imenu--generic-function'): REGEXP may also be a search function now. The part of doc-string for describing the structure was 95% identical to that of `imenu--generic-function'. Unify it there.

Daniel Pfeiffer <occitan@esperanto.org>

parents: 62531

754 The variable `imenu-case-fold-search' determines whether or not the

7be08219b736 (imenu-generic-expression, imenu--generic-function'): REGEXP may also be a search function now. The part of doc-string for describing the structure was 95% identical to that of `imenu--generic-function'. Unify it there.

Daniel Pfeiffer <occitan@esperanto.org>

parents: 62531

755 regexp matches are case sensitive, and `imenu-syntax-alist' can be

7be08219b736 (imenu-generic-expression, imenu--generic-function'): REGEXP may also be a search function now. The part of doc-string for describing the structure was 95% identical to that of `imenu--generic-function'. Unify it there.

Daniel Pfeiffer <occitan@esperanto.org>

parents: 62531

756 used to alter the syntax table for the search.

4fbc70e4d5e7 (imenu-use-keymap-menu): New variable.

Richard M. Stallman <rms@gnu.org>

parents: 10795

757

5898cd2e4cd6 (imenu--generic-function): Doc fix. Rewritten to be faster.

Richard M. Stallman <rms@gnu.org>

parents: 20857

758 See `lisp-imenu-generic-expression' for an example of PATTERNS.

4fbc70e4d5e7 (imenu-use-keymap-menu): New variable.

Richard M. Stallman <rms@gnu.org>

parents: 10795

759

ce1cae301efe (imenu--history-list): Don't make this buffer-local.

Richard M. Stallman <rms@gnu.org>

parents: 12635

760 Returns an index of the current buffer as an alist. The elements in

52733

9cb896b7b7e2 (imenu--generic-function): Docstring fix.

Lute Kamstra <lute@gnu.org>

parents: 52401

761 the alist look like:

9cb896b7b7e2 (imenu--generic-function): Docstring fix.

Lute Kamstra <lute@gnu.org>

parents: 52401

762 (INDEX-NAME . INDEX-POSITION)

9cb896b7b7e2 (imenu--generic-function): Docstring fix.

Lute Kamstra <lute@gnu.org>

parents: 52401

763 or like:

9cb896b7b7e2 (imenu--generic-function): Docstring fix.

Lute Kamstra <lute@gnu.org>

parents: 52401

764 (INDEX-NAME INDEX-POSITION FUNCTION ARGUMENTS...)

57775

206e30bf844c (imenu-scanning-message): Remove.

Kim F. Storm <storm@cua.dk>

parents: 57717

765 They may also be nested index alists like:

52733

9cb896b7b7e2 (imenu--generic-function): Docstring fix.

Lute Kamstra <lute@gnu.org>

parents: 52401

766 (INDEX-NAME . INDEX-ALIST)

9cb896b7b7e2 (imenu--generic-function): Docstring fix.

Lute Kamstra <lute@gnu.org>

parents: 52401

767 depending on PATTERNS."

caafb376e619 (imenu-generic-expression): New variable.

Karl Heuer <kwzh@gnu.org>

parents: 10072

768

4fbc70e4d5e7 (imenu-use-keymap-menu): New variable.

Richard M. Stallman <rms@gnu.org>

parents: 10795

769 (let ((index-alist (list 'dummy))

ff6d0a7e180e (imenu--generic-function): The official position of a

Richard M. Stallman <rms@gnu.org>

parents: 59996

770 prev-pos

50846

1ac6f8245bff (imenu--generic-function): Use font-lock-defaults

Stefan Monnier <monnier@iro.umontreal.ca>

parents: 46981

771 (case-fold-search (if (or (local-variable-p 'imenu-case-fold-search)

1ac6f8245bff (imenu--generic-function): Use font-lock-defaults

Stefan Monnier <monnier@iro.umontreal.ca>

parents: 46981

772 (not (local-variable-p 'font-lock-defaults)))

1ac6f8245bff (imenu--generic-function): Use font-lock-defaults

Stefan Monnier <monnier@iro.umontreal.ca>

parents: 46981

773 imenu-case-fold-search

1ac6f8245bff (imenu--generic-function): Use font-lock-defaults

Stefan Monnier <monnier@iro.umontreal.ca>

parents: 46981

774 (nth 2 font-lock-defaults)))

31a8ad177c4c (imenu-syntax-alist): New buffer-local variable.

Dave Love <fx@gnu.org>

parents: 20769

775 (old-table (syntax-table))

31a8ad177c4c (imenu-syntax-alist): New buffer-local variable.

Dave Love <fx@gnu.org>

parents: 20769

776 (table (copy-syntax-table (syntax-table)))

31a8ad177c4c (imenu-syntax-alist): New buffer-local variable.

Dave Love <fx@gnu.org>

parents: 20769

777 (slist imenu-syntax-alist))

31a8ad177c4c (imenu-syntax-alist): New buffer-local variable.

Dave Love <fx@gnu.org>

parents: 20769

778 ;; Modify the syntax table used while matching regexps.

71197bcff33c (imenu--split-menu): Use dolist and copy-sequence.

Stefan Monnier <monnier@iro.umontreal.ca>

parents: 38412

779 (dolist (syn slist)

5898cd2e4cd6 (imenu--generic-function): Doc fix. Rewritten to be faster.

Richard M. Stallman <rms@gnu.org>

parents: 20857

780 ;; The character(s) to modify may be a single char or a string.

71197bcff33c (imenu--split-menu): Use dolist and copy-sequence.

Stefan Monnier <monnier@iro.umontreal.ca>

parents: 38412

781 (if (numberp (car syn))

71197bcff33c (imenu--split-menu): Use dolist and copy-sequence.

Stefan Monnier <monnier@iro.umontreal.ca>

parents: 38412

782 (modify-syntax-entry (car syn) (cdr syn) table)

46977

54ce0e6e293f (imenu--generic-function): Use mapc.

Glenn Morris <rgm@gnu.org>

parents: 46894

783 (mapc (lambda (c)

54ce0e6e293f (imenu--generic-function): Use mapc.

Glenn Morris <rgm@gnu.org>

parents: 46894

784 (modify-syntax-entry c (cdr syn) table))

54ce0e6e293f (imenu--generic-function): Use mapc.

Glenn Morris <rgm@gnu.org>

parents: 46894

785 (car syn))))

caafb376e619 (imenu-generic-expression): New variable.

Karl Heuer <kwzh@gnu.org>

parents: 10072

786 (goto-char (point-max))

caafb376e619 (imenu-generic-expression): New variable.

Karl Heuer <kwzh@gnu.org>

parents: 10072

787 (imenu-progress-message prev-pos 0 t)

5898cd2e4cd6 (imenu--generic-function): Doc fix. Rewritten to be faster.

Richard M. Stallman <rms@gnu.org>

parents: 20857

788 (unwind-protect ; for syntax table

5898cd2e4cd6 (imenu--generic-function): Doc fix. Rewritten to be faster.

Richard M. Stallman <rms@gnu.org>

parents: 20857

789 (save-match-data

5898cd2e4cd6 (imenu--generic-function): Doc fix. Rewritten to be faster.

Richard M. Stallman <rms@gnu.org>

parents: 20857

790 (set-syntax-table table)

58489

5df4ac03694d Don't always require newcomment.

Richard M. Stallman <rms@gnu.org>

parents: 58364

791

5898cd2e4cd6 (imenu--generic-function): Doc fix. Rewritten to be faster.

Richard M. Stallman <rms@gnu.org>

parents: 20857

792 ;; map over the elements of imenu-generic-expression

5898cd2e4cd6 (imenu--generic-function): Doc fix. Rewritten to be faster.

Richard M. Stallman <rms@gnu.org>

parents: 20857

793 ;; (typically functions, variables ...)

71197bcff33c (imenu--split-menu): Use dolist and copy-sequence.

Stefan Monnier <monnier@iro.umontreal.ca>

parents: 38412

794 (dolist (pat patterns)

71197bcff33c (imenu--split-menu): Use dolist and copy-sequence.

Stefan Monnier <monnier@iro.umontreal.ca>

parents: 38412

795 (let ((menu-title (car pat))

71197bcff33c (imenu--split-menu): Use dolist and copy-sequence.

Stefan Monnier <monnier@iro.umontreal.ca>

parents: 38412

796 (regexp (nth 1 pat))

71197bcff33c (imenu--split-menu): Use dolist and copy-sequence.

Stefan Monnier <monnier@iro.umontreal.ca>

parents: 38412

797 (index (nth 2 pat))

71197bcff33c (imenu--split-menu): Use dolist and copy-sequence.

Stefan Monnier <monnier@iro.umontreal.ca>

parents: 38412

798 (function (nth 3 pat))

57717

d198f03d3ba5 (imenu--generic-function): Skip matches in comments.

Daniel Pfeiffer <occitan@esperanto.org>

parents: 57417

799 (rest (nthcdr 4 pat))

ff6d0a7e180e (imenu--generic-function): The official position of a

Richard M. Stallman <rms@gnu.org>

parents: 59996

800 start beg)

71197bcff33c (imenu--split-menu): Use dolist and copy-sequence.

Stefan Monnier <monnier@iro.umontreal.ca>

parents: 38412

801 ;; Go backwards for convenience of adding items in order.

71197bcff33c (imenu--split-menu): Use dolist and copy-sequence.

Stefan Monnier <monnier@iro.umontreal.ca>

parents: 38412

802 (goto-char (point-max))

7be08219b736 (imenu-generic-expression, imenu--generic-function'): REGEXP may also be a search function now. The part of doc-string for describing the structure was 95% identical to that of `imenu--generic-function'. Unify it there.

Daniel Pfeiffer <occitan@esperanto.org>

parents: 62531

803 (while (and (if (functionp regexp)

7be08219b736 (imenu-generic-expression, imenu--generic-function'): REGEXP may also be a search function now. The part of doc-string for describing the structure was 95% identical to that of `imenu--generic-function'. Unify it there.

Daniel Pfeiffer <occitan@esperanto.org>

parents: 62531

804 (funcall regexp)

7be08219b736 (imenu-generic-expression, imenu--generic-function'): REGEXP may also be a search function now. The part of doc-string for describing the structure was 95% identical to that of `imenu--generic-function'. Unify it there.

Daniel Pfeiffer <occitan@esperanto.org>

parents: 62531

805 (re-search-backward regexp nil t))

58489

5df4ac03694d Don't always require newcomment.

Richard M. Stallman <rms@gnu.org>

parents: 58364

806 ;; Exit the loop if we get an empty match,

5df4ac03694d Don't always require newcomment.

Richard M. Stallman <rms@gnu.org>

parents: 58364

807 ;; because it means a bad regexp was specified.

5df4ac03694d Don't always require newcomment.

Richard M. Stallman <rms@gnu.org>

parents: 58364

808 (not (= (match-beginning 0) (match-end 0))))

58364

c8e69a3cb57f (imenu--generic-function):

Richard M. Stallman <rms@gnu.org>

parents: 57926

809 (setq start (point))

ff6d0a7e180e (imenu--generic-function): The official position of a

Richard M. Stallman <rms@gnu.org>

parents: 59996

810 ;; Record the start of the line in which the match starts.

59568

3c6c2682ad8f (imenu--split-menu): Copy menulist before sorting.

Richard M. Stallman <rms@gnu.org>

parents: 58743

811 ;; That's the official position of this definition.

ff6d0a7e180e (imenu--generic-function): The official position of a

Richard M. Stallman <rms@gnu.org>

parents: 59996

812 (goto-char (match-beginning index))

ff6d0a7e180e (imenu--generic-function): The official position of a

Richard M. Stallman <rms@gnu.org>

parents: 59996

813 (beginning-of-line)

ff6d0a7e180e (imenu--generic-function): The official position of a

Richard M. Stallman <rms@gnu.org>

parents: 59996

814 (setq beg (point))

6abce81016a6 (imenu--generic-function): Delete code to exclude matches in comments.

Richard M. Stallman <rms@gnu.org>

parents: 58489

815 (imenu-progress-message prev-pos nil t)

6abce81016a6 (imenu--generic-function): Delete code to exclude matches in comments.

Richard M. Stallman <rms@gnu.org>

parents: 58489

816 ;; Add this sort of submenu only when we've found an

6abce81016a6 (imenu--generic-function): Delete code to exclude matches in comments.

Richard M. Stallman <rms@gnu.org>

parents: 58489

817 ;; item for it, avoiding empty, duff menus.

6abce81016a6 (imenu--generic-function): Delete code to exclude matches in comments.

Richard M. Stallman <rms@gnu.org>

parents: 58489

818 (unless (assoc menu-title index-alist)

6abce81016a6 (imenu--generic-function): Delete code to exclude matches in comments.

Richard M. Stallman <rms@gnu.org>

parents: 58489

819 (push (list menu-title) index-alist))

6abce81016a6 (imenu--generic-function): Delete code to exclude matches in comments.

Richard M. Stallman <rms@gnu.org>

parents: 58489

820 (if imenu-use-markers

ff6d0a7e180e (imenu--generic-function): The official position of a

Richard M. Stallman <rms@gnu.org>

parents: 59996

821 (setq beg (copy-marker beg)))

6abce81016a6 (imenu--generic-function): Delete code to exclude matches in comments.

Richard M. Stallman <rms@gnu.org>

parents: 58489

822 (let ((item

6abce81016a6 (imenu--generic-function): Delete code to exclude matches in comments.

Richard M. Stallman <rms@gnu.org>

parents: 58489

823 (if function

6abce81016a6 (imenu--generic-function): Delete code to exclude matches in comments.

Richard M. Stallman <rms@gnu.org>

parents: 58489

824 (nconc (list (match-string-no-properties index)

ff6d0a7e180e (imenu--generic-function): The official position of a

Richard M. Stallman <rms@gnu.org>

parents: 59996

825 beg function)

6abce81016a6 (imenu--generic-function): Delete code to exclude matches in comments.

Richard M. Stallman <rms@gnu.org>

parents: 58489

826 rest)

6abce81016a6 (imenu--generic-function): Delete code to exclude matches in comments.

Richard M. Stallman <rms@gnu.org>

parents: 58489

827 (cons (match-string-no-properties index)

ff6d0a7e180e (imenu--generic-function): The official position of a

Richard M. Stallman <rms@gnu.org>

parents: 59996

828 beg)))

6abce81016a6 (imenu--generic-function): Delete code to exclude matches in comments.

Richard M. Stallman <rms@gnu.org>

parents: 58489

829 ;; This is the desired submenu,

6abce81016a6 (imenu--generic-function): Delete code to exclude matches in comments.

Richard M. Stallman <rms@gnu.org>

parents: 58489

830 ;; starting with its title (or nil).

6abce81016a6 (imenu--generic-function): Delete code to exclude matches in comments.

Richard M. Stallman <rms@gnu.org>

parents: 58489

831 (menu (assoc menu-title index-alist)))

6abce81016a6 (imenu--generic-function): Delete code to exclude matches in comments.

Richard M. Stallman <rms@gnu.org>

parents: 58489

832 ;; Insert the item unless it is already present.

6abce81016a6 (imenu--generic-function): Delete code to exclude matches in comments.

Richard M. Stallman <rms@gnu.org>

parents: 58489

833 (unless (member item (cdr menu))

6abce81016a6 (imenu--generic-function): Delete code to exclude matches in comments.

Richard M. Stallman <rms@gnu.org>

parents: 58489

834 (setcdr menu

ff6d0a7e180e (imenu--generic-function): The official position of a

Richard M. Stallman <rms@gnu.org>

parents: 59996

835 (cons item (cdr menu)))))

ff6d0a7e180e (imenu--generic-function): The official position of a

Richard M. Stallman <rms@gnu.org>

parents: 59996

836 ;; Go to the start of the match, to make sure we

ff6d0a7e180e (imenu--generic-function): The official position of a

Richard M. Stallman <rms@gnu.org>

parents: 59996

837 ;; keep making progress backwards.

ff6d0a7e180e (imenu--generic-function): The official position of a

Richard M. Stallman <rms@gnu.org>

parents: 59996

838 (goto-char start))))

5898cd2e4cd6 (imenu--generic-function): Doc fix. Rewritten to be faster.

Richard M. Stallman <rms@gnu.org>

parents: 20857

839 (set-syntax-table old-table)))

35e1cfdd29a4 (imenu--menubar-select): No longer interactive.

Richard M. Stallman <rms@gnu.org>

parents: 14725

840 (imenu-progress-message prev-pos 100 t)

3812bb3ae006 (imenu--generic-function): Sort each submenu by position.

Karl Heuer <kwzh@gnu.org>

parents: 22798

841 ;; Sort each submenu by position.

3812bb3ae006 (imenu--generic-function): Sort each submenu by position.

Karl Heuer <kwzh@gnu.org>

parents: 22798

842 ;; This is in case one submenu gets items from two different regexps.

71197bcff33c (imenu--split-menu): Use dolist and copy-sequence.

Stefan Monnier <monnier@iro.umontreal.ca>

parents: 38412

843 (dolist (item index-alist)

71197bcff33c (imenu--split-menu): Use dolist and copy-sequence.

Stefan Monnier <monnier@iro.umontreal.ca>

parents: 38412

844 (when (listp item)

71197bcff33c (imenu--split-menu): Use dolist and copy-sequence.

Stefan Monnier <monnier@iro.umontreal.ca>

parents: 38412

845 (setcdr item (sort (cdr item) 'imenu--sort-by-position))))

35e1cfdd29a4 (imenu--menubar-select): No longer interactive.

Richard M. Stallman <rms@gnu.org>

parents: 14725

846 (let ((main-element (assq nil index-alist)))

b64d00e44e7b (imenu--split-menu): Keep the rescan item at top level.

Richard M. Stallman <rms@gnu.org>

parents: 16271

847 (nconc (delq main-element (delq 'dummy index-alist))

b64d00e44e7b (imenu--split-menu): Keep the rescan item at top level.

Richard M. Stallman <rms@gnu.org>

parents: 16271

848 (cdr main-element)))))

caafb376e619 (imenu-generic-expression): New variable.

Karl Heuer <kwzh@gnu.org>

parents: 10072

849

4c72f80598ae Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

850 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

4c72f80598ae Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

851 ;;;

4c72f80598ae Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

852 ;;; The main functions for this package!

4c72f80598ae Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

853 ;;;

4c72f80598ae Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

854 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

4c72f80598ae Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

855

71197bcff33c (imenu--split-menu): Use dolist and copy-sequence.

Stefan Monnier <monnier@iro.umontreal.ca>

parents: 38412

856 ;; See also info-lookup-find-item

71197bcff33c (imenu--split-menu): Use dolist and copy-sequence.

Stefan Monnier <monnier@iro.umontreal.ca>

parents: 38412

857 (defun imenu-find-default (guess completions)

71197bcff33c (imenu--split-menu): Use dolist and copy-sequence.

Stefan Monnier <monnier@iro.umontreal.ca>

parents: 38412

858 "Fuzzily find an item based on GUESS inside the alist COMPLETIONS."

71197bcff33c (imenu--split-menu): Use dolist and copy-sequence.

Stefan Monnier <monnier@iro.umontreal.ca>

parents: 38412

859 (catch 'found

71197bcff33c (imenu--split-menu): Use dolist and copy-sequence.

Stefan Monnier <monnier@iro.umontreal.ca>

parents: 38412

860 (let ((case-fold-search t))

71197bcff33c (imenu--split-menu): Use dolist and copy-sequence.

Stefan Monnier <monnier@iro.umontreal.ca>

parents: 38412

861 (if (assoc guess completions) guess

71197bcff33c (imenu--split-menu): Use dolist and copy-sequence.

Stefan Monnier <monnier@iro.umontreal.ca>

parents: 38412

862 (dolist (re (list (concat "\\`" (regexp-quote guess) "\\'")

71197bcff33c (imenu--split-menu): Use dolist and copy-sequence.

Stefan Monnier <monnier@iro.umontreal.ca>

parents: 38412

863 (concat "\\`" (regexp-quote guess))

71197bcff33c (imenu--split-menu): Use dolist and copy-sequence.

Stefan Monnier <monnier@iro.umontreal.ca>

parents: 38412

864 (concat (regexp-quote guess) "\\'")

71197bcff33c (imenu--split-menu): Use dolist and copy-sequence.

Stefan Monnier <monnier@iro.umontreal.ca>

parents: 38412

865 (regexp-quote guess)))

71197bcff33c (imenu--split-menu): Use dolist and copy-sequence.

Stefan Monnier <monnier@iro.umontreal.ca>

parents: 38412

866 (dolist (x completions)

71197bcff33c (imenu--split-menu): Use dolist and copy-sequence.

Stefan Monnier <monnier@iro.umontreal.ca>

parents: 38412

867 (if (string-match re (car x)) (throw 'found (car x)))))))))

71197bcff33c (imenu--split-menu): Use dolist and copy-sequence.

Stefan Monnier <monnier@iro.umontreal.ca>

parents: 38412

868

4c72f80598ae Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

869 (defun imenu--completion-buffer (index-alist &optional prompt)

4c72f80598ae Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

870 "Let the user select from INDEX-ALIST in a completion buffer with PROMPT.

4c72f80598ae Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

871

1389687cfa0a (imenu--completion-buffer): Don't return t for rescan.

Stefan Monnier <monnier@iro.umontreal.ca>

parents: 56683

872 Return one of the entries in index-alist or nil."

4c72f80598ae Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

873 ;; Create a list for this buffer only when needed.

5898cd2e4cd6 (imenu--generic-function): Doc fix. Rewritten to be faster.

Richard M. Stallman <rms@gnu.org>

parents: 20857

874 (let ((name (thing-at-point 'symbol))

5898cd2e4cd6 (imenu--generic-function): Doc fix. Rewritten to be faster.

Richard M. Stallman <rms@gnu.org>

parents: 20857

875 choice

5898cd2e4cd6 (imenu--generic-function): Doc fix. Rewritten to be faster.

Richard M. Stallman <rms@gnu.org>

parents: 20857

876 (prepared-index-alist

f8b45e2dec81 (imenu-always-use-completion-buffer-p): Make obsolete.

Stefan Monnier <monnier@iro.umontreal.ca>

parents: 43982

877 (if (not imenu-space-replacement) index-alist

f8b45e2dec81 (imenu-always-use-completion-buffer-p): Make obsolete.

Stefan Monnier <monnier@iro.umontreal.ca>

parents: 43982

878 (mapcar

f8b45e2dec81 (imenu-always-use-completion-buffer-p): Make obsolete.

Stefan Monnier <monnier@iro.umontreal.ca>

parents: 43982

879 (lambda (item)

63848

65786fe1837b (imenu--completion-buffer): Change space constants followed by a sexp to "?\s ".

Juanma Barranquero <lekktu@gmail.com>

parents: 62568

880 (cons (subst-char-in-string ?\s (aref imenu-space-replacement 0)

f8b45e2dec81 (imenu-always-use-completion-buffer-p): Make obsolete.

Stefan Monnier <monnier@iro.umontreal.ca>

parents: 43982

881 (car item))

f8b45e2dec81 (imenu-always-use-completion-buffer-p): Make obsolete.

Stefan Monnier <monnier@iro.umontreal.ca>

parents: 43982

882 (cdr item)))

f8b45e2dec81 (imenu-always-use-completion-buffer-p): Make obsolete.

Stefan Monnier <monnier@iro.umontreal.ca>

parents: 43982

883 index-alist))))

71197bcff33c (imenu--split-menu): Use dolist and copy-sequence.

Stefan Monnier <monnier@iro.umontreal.ca>

parents: 38412

884 (when (stringp name)

71197bcff33c (imenu--split-menu): Use dolist and copy-sequence.

Stefan Monnier <monnier@iro.umontreal.ca>

parents: 38412

885 (setq name (or (imenu-find-default name prepared-index-alist) name)))

5898cd2e4cd6 (imenu--generic-function): Doc fix. Rewritten to be faster.

Richard M. Stallman <rms@gnu.org>

parents: 20857

886 (cond (prompt)

5898cd2e4cd6 (imenu--generic-function): Doc fix. Rewritten to be faster.

Richard M. Stallman <rms@gnu.org>

parents: 20857

887 ((and name (imenu--in-alist name prepared-index-alist))

5898cd2e4cd6 (imenu--generic-function): Doc fix. Rewritten to be faster.

Richard M. Stallman <rms@gnu.org>

parents: 20857

888 (setq prompt (format "Index item (default %s): " name)))

5898cd2e4cd6 (imenu--generic-function): Doc fix. Rewritten to be faster.

Richard M. Stallman <rms@gnu.org>

parents: 20857

889 (t (setq prompt "Index item: ")))

f8b45e2dec81 (imenu-always-use-completion-buffer-p): Make obsolete.

Stefan Monnier <monnier@iro.umontreal.ca>

parents: 43982

890 (let ((minibuffer-setup-hook minibuffer-setup-hook))

f8b45e2dec81 (imenu-always-use-completion-buffer-p): Make obsolete.

Stefan Monnier <monnier@iro.umontreal.ca>

parents: 43982

891 ;; Display the completion buffer.

f8b45e2dec81 (imenu-always-use-completion-buffer-p): Make obsolete.

Stefan Monnier <monnier@iro.umontreal.ca>

parents: 43982

892 (if (not imenu-eager-completion-buffer)

f8b45e2dec81 (imenu-always-use-completion-buffer-p): Make obsolete.

Stefan Monnier <monnier@iro.umontreal.ca>

parents: 43982

893 (add-hook 'minibuffer-setup-hook 'minibuffer-completion-help))

f8b45e2dec81 (imenu-always-use-completion-buffer-p): Make obsolete.

Stefan Monnier <monnier@iro.umontreal.ca>

parents: 43982

894 (setq name (completing-read prompt

f8b45e2dec81 (imenu-always-use-completion-buffer-p): Make obsolete.

Stefan Monnier <monnier@iro.umontreal.ca>

parents: 43982

895 prepared-index-alist

f8b45e2dec81 (imenu-always-use-completion-buffer-p): Make obsolete.

Stefan Monnier <monnier@iro.umontreal.ca>

parents: 43982

896 nil t nil 'imenu--history-list name)))

55826

e7bdb5b77df2 (imenu--menubar-select): Set imenu-menubar-modified-tick

Richard M. Stallman <rms@gnu.org>

parents: 52733

897

1389687cfa0a (imenu--completion-buffer): Don't return t for rescan.

Stefan Monnier <monnier@iro.umontreal.ca>

parents: 56683

898 (when (stringp name)

1389687cfa0a (imenu--completion-buffer): Don't return t for rescan.

Stefan Monnier <monnier@iro.umontreal.ca>

parents: 56683

899 (setq choice (assoc name prepared-index-alist))

1389687cfa0a (imenu--completion-buffer): Don't return t for rescan.

Stefan Monnier <monnier@iro.umontreal.ca>

parents: 56683

900 (if (imenu--subalist-p choice)

1389687cfa0a (imenu--completion-buffer): Don't return t for rescan.

Stefan Monnier <monnier@iro.umontreal.ca>

parents: 56683

901 (imenu--completion-buffer (cdr choice) prompt)

1389687cfa0a (imenu--completion-buffer): Don't return t for rescan.

Stefan Monnier <monnier@iro.umontreal.ca>

parents: 56683

902 choice))))

cd73ba498964 (imenu): Renamed from goto-index-pos.

Richard M. Stallman <rms@gnu.org>

parents: 6909

903

4c72f80598ae Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

904 (defun imenu--mouse-menu (index-alist event &optional title)

4c72f80598ae Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

905 "Let the user select from a buffer index from a mouse menu.

4c72f80598ae Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

906

4c72f80598ae Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

907 INDEX-ALIST is the buffer index and EVENT is a mouse event.

4c72f80598ae Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

908

16148

8ca583c0b988 (imenu): Tests for when to widen were backwards.

Richard M. Stallman <rms@gnu.org>

parents: 15929

909 Returns t for rescan and otherwise an element or subelement of INDEX-ALIST."

35e1cfdd29a4 (imenu--menubar-select): No longer interactive.

Richard M. Stallman <rms@gnu.org>

parents: 14725

910 (setq index-alist (imenu--split-submenus index-alist))

71197bcff33c (imenu--split-menu): Use dolist and copy-sequence.

Stefan Monnier <monnier@iro.umontreal.ca>

parents: 38412

911 (let* ((menu (imenu--split-menu index-alist (or title (buffer-name))))

4efabfff9aa1 (imenu--split-menu): Remove unused var `count'.

Stefan Monnier <monnier@iro.umontreal.ca>

parents: 50846

912 (map (imenu--create-keymap (car menu)

4efabfff9aa1 (imenu--split-menu): Remove unused var `count'.

Stefan Monnier <monnier@iro.umontreal.ca>

parents: 50846

913 (cdr (if (< 1 (length (cdr menu)))

4efabfff9aa1 (imenu--split-menu): Remove unused var `count'.

Stefan Monnier <monnier@iro.umontreal.ca>

parents: 50846

914 menu

4efabfff9aa1 (imenu--split-menu): Remove unused var `count'.

Stefan Monnier <monnier@iro.umontreal.ca>

parents: 50846

915 (car (cdr menu)))))))

71197bcff33c (imenu--split-menu): Use dolist and copy-sequence.

Stefan Monnier <monnier@iro.umontreal.ca>

parents: 38412

916 (popup-menu map event)))

4c72f80598ae Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

917

49538e6c482e entered into RCS

Richard M. Stallman <rms@gnu.org>

parents: 6230

918 (defun imenu-choose-buffer-index (&optional prompt alist)

4c72f80598ae Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

919 "Let the user select from a buffer index and return the chosen index.

4c72f80598ae Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

920

4c72f80598ae Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

921 If the user originally activated this function with the mouse, a mouse

4c72f80598ae Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

922 menu is used. Otherwise a completion buffer is used and the user is

4c72f80598ae Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

923 prompted with PROMPT.

4c72f80598ae Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

924

49538e6c482e entered into RCS

Richard M. Stallman <rms@gnu.org>

parents: 6230

925 If you call this function with index alist ALIST, then it lets the user

49538e6c482e entered into RCS

Richard M. Stallman <rms@gnu.org>

parents: 6230

926 select from ALIST.

49538e6c482e entered into RCS

Richard M. Stallman <rms@gnu.org>

parents: 6230

927

9e59751db725 Require cl only at compile time.

Richard M. Stallman <rms@gnu.org>

parents: 6241

928 With no index alist ALIST, it calls `imenu--make-index-alist' to

49538e6c482e entered into RCS

Richard M. Stallman <rms@gnu.org>

parents: 6230

929 create the index alist.

49538e6c482e entered into RCS

Richard M. Stallman <rms@gnu.org>

parents: 6230

930

f8b45e2dec81 (imenu-always-use-completion-buffer-p): Make obsolete.

Stefan Monnier <monnier@iro.umontreal.ca>

parents: 43982

931 If `imenu-use-popup-menu' is non-nil, then the

4c72f80598ae Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

932 completion buffer is always used, no matter if the mouse was used or

4c72f80598ae Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

933 not.

4c72f80598ae Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

934

187e7c8aaff5 (imenu--make-index-alist): Add doc string.

Richard M. Stallman <rms@gnu.org>

parents: 16315

935 The returned value is of the form (INDEX-NAME . INDEX-POSITION)."

4c72f80598ae Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

936 (let (index-alist

b2b493c007ff (imenu-choose-buffer-index): Use last-nonmenu-event

Richard M. Stallman <rms@gnu.org>

parents: 8256

937 (mouse-triggered (listp last-nonmenu-event))

71197bcff33c (imenu--split-menu): Use dolist and copy-sequence.

Stefan Monnier <monnier@iro.umontreal.ca>

parents: 38412

938 (result t))

4c72f80598ae Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

939 ;; If selected by mouse, see to that the window where the mouse is

4c72f80598ae Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

940 ;; really is selected.

4c72f80598ae Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

941 (and mouse-triggered

12396

d0c82df80d70 (imenu-choose-buffer-index): Understand that (menu-bar)

Richard M. Stallman <rms@gnu.org>

parents: 12394

942 (not (equal last-nonmenu-event '(menu-bar)))

b2b493c007ff (imenu-choose-buffer-index): Use last-nonmenu-event

Richard M. Stallman <rms@gnu.org>

parents: 8256

943 (let ((window (posn-window (event-start last-nonmenu-event))))

12635

f12b1374fb5b (imenu-choose-buffer-index): Avoid trying to select WINDOW if it is nil.

Richard M. Stallman <rms@gnu.org>

parents: 12396

944 (or (framep window) (null window) (select-window window))))

4c72f80598ae Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

945 ;; Create a list for this buffer only when needed.

4c72f80598ae Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

946 (while (eq result t)

49538e6c482e entered into RCS

Richard M. Stallman <rms@gnu.org>

parents: 6230

947 (setq index-alist (if alist alist (imenu--make-index-alist)))

4c72f80598ae Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

948 (setq result

f8b45e2dec81 (imenu-always-use-completion-buffer-p): Make obsolete.

Stefan Monnier <monnier@iro.umontreal.ca>

parents: 43982

949 (if (and imenu-use-popup-menu

f8b45e2dec81 (imenu-always-use-completion-buffer-p): Make obsolete.

Stefan Monnier <monnier@iro.umontreal.ca>

parents: 43982

950 (or (eq imenu-use-popup-menu t) mouse-triggered))

b2b493c007ff (imenu-choose-buffer-index): Use last-nonmenu-event

Richard M. Stallman <rms@gnu.org>

parents: 8256

951 (imenu--mouse-menu index-alist last-nonmenu-event)

4c72f80598ae Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

952 (imenu--completion-buffer index-alist prompt)))

1389687cfa0a (imenu--completion-buffer): Don't return t for rescan.

Stefan Monnier <monnier@iro.umontreal.ca>

parents: 56683

953 (and (equal result imenu--rescan-item)

109166e311ce (imenu, imenu--flatten-index-alist): Add marker support.

Richard M. Stallman <rms@gnu.org>

parents: 8296

954 (imenu--cleanup)

1389687cfa0a (imenu--completion-buffer): Don't return t for rescan.

Stefan Monnier <monnier@iro.umontreal.ca>

parents: 56683

955 (setq result t imenu--index-alist nil)))

4c72f80598ae Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

956 result))

4c72f80598ae Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

957

4fbc70e4d5e7 (imenu-use-keymap-menu): New variable.

Richard M. Stallman <rms@gnu.org>

parents: 10795

958 ;;;###autoload

109166e311ce (imenu, imenu--flatten-index-alist): Add marker support.

Richard M. Stallman <rms@gnu.org>

parents: 8296

959 (defun imenu-add-to-menubar (name)

5898cd2e4cd6 (imenu--generic-function): Doc fix. Rewritten to be faster.

Richard M. Stallman <rms@gnu.org>

parents: 20857

960 "Add an `imenu' entry to the menu bar for the current buffer.

4eac65d000d3 (imenu-update-menubar): New function.

Karl Heuer <kwzh@gnu.org>

parents: 13645

961 NAME is a string used to name the menu bar item.

14657

4bedd113757f (imenu-add-to-menubar): Add menu item for current buf only.

Richard M. Stallman <rms@gnu.org>

parents: 14656

962 See the command `imenu' for more information."

4eac65d000d3 (imenu-update-menubar): New function.

Karl Heuer <kwzh@gnu.org>

parents: 13645

963 (interactive "sImenu menu item name: ")

20249

c42156dab61b (imenu-default-create-index-function):

Karl Heuer <kwzh@gnu.org>

parents: 20051

964 (if (or (and imenu-prev-index-position-function

c42156dab61b (imenu-default-create-index-function):

Karl Heuer <kwzh@gnu.org>

parents: 20051

965 imenu-extract-index-name-function)

c42156dab61b (imenu-default-create-index-function):

Karl Heuer <kwzh@gnu.org>

parents: 20051

966 imenu-generic-expression

c42156dab61b (imenu-default-create-index-function):

Karl Heuer <kwzh@gnu.org>

parents: 20051

967 (not (eq imenu-create-index-function

c42156dab61b (imenu-default-create-index-function):

Karl Heuer <kwzh@gnu.org>

parents: 20051

968 'imenu-default-create-index-function)))

31560

5dd0eccb46c5 (imenu--truncate-items, imenu--cleanup)

Dave Love <fx@gnu.org>

parents: 29552

969 (let ((newmap (make-sparse-keymap)))

5dd0eccb46c5 (imenu--truncate-items, imenu--cleanup)

Dave Love <fx@gnu.org>

parents: 29552

970 (set-keymap-parent newmap (current-local-map))

24270

02ae21f066ec (imenu--last-menubar-index-alist): Add doc.

Richard M. Stallman <rms@gnu.org>

parents: 24233

971 (setq imenu--last-menubar-index-alist nil)

32279

869a035f39fa (imenu-add-to-menubar): Fix last change.

Dave Love <fx@gnu.org>

parents: 31560

972 (define-key newmap [menu-bar index]

32284

700a91f9a4b4 (imenu-add-to-menubar): Fix again.

Dave Love <fx@gnu.org>

parents: 32279

973 `(menu-item ,name ,(make-sparse-keymap "Imenu")))

31560

5dd0eccb46c5 (imenu--truncate-items, imenu--cleanup)

Dave Love <fx@gnu.org>

parents: 29552

974 (use-local-map newmap)

20249

c42156dab61b (imenu-default-create-index-function):

Karl Heuer <kwzh@gnu.org>

parents: 20051

975 (add-hook 'menu-bar-update-hook 'imenu-update-menubar))

b48a8dd2d8ce (imenu-scanning-message): Support for bigger numbers.

Richard M. Stallman <rms@gnu.org>

parents: 16698

976 (error "The mode `%s' does not support Imenu" mode-name)))

4eac65d000d3 (imenu-update-menubar): New function.

Karl Heuer <kwzh@gnu.org>

parents: 13645

977

5898cd2e4cd6 (imenu--generic-function): Doc fix. Rewritten to be faster.

Richard M. Stallman <rms@gnu.org>

parents: 20857

978 ;;;###autoload

5898cd2e4cd6 (imenu--generic-function): Doc fix. Rewritten to be faster.

Richard M. Stallman <rms@gnu.org>

parents: 20857

979 (defun imenu-add-menubar-index ()

5898cd2e4cd6 (imenu--generic-function): Doc fix. Rewritten to be faster.

Richard M. Stallman <rms@gnu.org>

parents: 20857

980 "Add an Imenu \"Index\" entry on the menu bar for the current buffer.

5898cd2e4cd6 (imenu--generic-function): Doc fix. Rewritten to be faster.

Richard M. Stallman <rms@gnu.org>

parents: 20857

981

5898cd2e4cd6 (imenu--generic-function): Doc fix. Rewritten to be faster.

Richard M. Stallman <rms@gnu.org>

parents: 20857

982 A trivial interface to `imenu-add-to-menubar' suitable for use in a hook."

5898cd2e4cd6 (imenu--generic-function): Doc fix. Rewritten to be faster.

Richard M. Stallman <rms@gnu.org>

parents: 20857

983 (interactive)

5898cd2e4cd6 (imenu--generic-function): Doc fix. Rewritten to be faster.

Richard M. Stallman <rms@gnu.org>

parents: 20857

984 (imenu-add-to-menubar "Index"))

5898cd2e4cd6 (imenu--generic-function): Doc fix. Rewritten to be faster.

Richard M. Stallman <rms@gnu.org>

parents: 20857

985

14642

01e8fdb45deb (imenu-buffer-menubar): Add defvar.

Karl Heuer <kwzh@gnu.org>

parents: 14575

986 (defvar imenu-buffer-menubar nil)

01e8fdb45deb (imenu-buffer-menubar): Add defvar.

Karl Heuer <kwzh@gnu.org>

parents: 14575

987

a40fcee55faa (imenu-menubar-modified-tick): Renamed from

Richard M. Stallman <rms@gnu.org>

parents: 43832

988 (defvar imenu-menubar-modified-tick 0

56683

dee43d88905e Several doc fixes: don't say variables are buffer-local.

Richard M. Stallman <rms@gnu.org>

parents: 56549

989 "The value of (buffer-modified-tick) as of last call to `imenu-update-menubar'.")

a40fcee55faa (imenu-menubar-modified-tick): Renamed from

Richard M. Stallman <rms@gnu.org>

parents: 43832

990 (make-variable-buffer-local 'imenu-menubar-modified-tick)

43832

5d834c3f5d18 (imenu-update-menubar-modified-tick): New variable.

Richard M. Stallman <rms@gnu.org>

parents: 41305

991

4eac65d000d3 (imenu-update-menubar): New function.

Karl Heuer <kwzh@gnu.org>

parents: 13645

992 (defun imenu-update-menubar ()

a40fcee55faa (imenu-menubar-modified-tick): Renamed from

Richard M. Stallman <rms@gnu.org>

parents: 43832

993 (when (and (current-local-map)

a40fcee55faa (imenu-menubar-modified-tick): Renamed from

Richard M. Stallman <rms@gnu.org>

parents: 43832

994 (keymapp (lookup-key (current-local-map) [menu-bar index]))

a40fcee55faa (imenu-menubar-modified-tick): Renamed from

Richard M. Stallman <rms@gnu.org>

parents: 43832

995 (not (eq (buffer-modified-tick)

a40fcee55faa (imenu-menubar-modified-tick): Renamed from

Richard M. Stallman <rms@gnu.org>

parents: 43832

996 imenu-menubar-modified-tick)))

a40fcee55faa (imenu-menubar-modified-tick): Renamed from

Richard M. Stallman <rms@gnu.org>

parents: 43832

997 (setq imenu-menubar-modified-tick (buffer-modified-tick))

a40fcee55faa (imenu-menubar-modified-tick): Renamed from

Richard M. Stallman <rms@gnu.org>

parents: 43832

998 (let ((index-alist (imenu--make-index-alist t)))

a40fcee55faa (imenu-menubar-modified-tick): Renamed from

Richard M. Stallman <rms@gnu.org>

parents: 43832

999 ;; Don't bother updating if the index-alist has not changed

a40fcee55faa (imenu-menubar-modified-tick): Renamed from

Richard M. Stallman <rms@gnu.org>

parents: 43832

1000 ;; since the last time we did it.

a40fcee55faa (imenu-menubar-modified-tick): Renamed from

Richard M. Stallman <rms@gnu.org>

parents: 43832

1001 (unless (equal index-alist imenu--last-menubar-index-alist)

a40fcee55faa (imenu-menubar-modified-tick): Renamed from

Richard M. Stallman <rms@gnu.org>

parents: 43832

1002 (let (menu menu1 old)

a40fcee55faa (imenu-menubar-modified-tick): Renamed from

Richard M. Stallman <rms@gnu.org>

parents: 43832

1003 (setq imenu--last-menubar-index-alist index-alist)

a40fcee55faa (imenu-menubar-modified-tick): Renamed from

Richard M. Stallman <rms@gnu.org>

parents: 43832

1004 (setq index-alist (imenu--split-submenus index-alist))

a40fcee55faa (imenu-menubar-modified-tick): Renamed from

Richard M. Stallman <rms@gnu.org>

parents: 43832

1005 (setq menu (imenu--split-menu index-alist

a40fcee55faa (imenu-menubar-modified-tick): Renamed from

Richard M. Stallman <rms@gnu.org>

parents: 43832

1006 (buffer-name)))

4efabfff9aa1 (imenu--split-menu): Remove unused var `count'.

Stefan Monnier <monnier@iro.umontreal.ca>

parents: 50846

1007 (setq menu1 (imenu--create-keymap (car menu)

4efabfff9aa1 (imenu--split-menu): Remove unused var `count'.

Stefan Monnier <monnier@iro.umontreal.ca>

parents: 50846

1008 (cdr (if (< 1 (length (cdr menu)))

4efabfff9aa1 (imenu--split-menu): Remove unused var `count'.

Stefan Monnier <monnier@iro.umontreal.ca>

parents: 50846

1009 menu

4efabfff9aa1 (imenu--split-menu): Remove unused var `count'.

Stefan Monnier <monnier@iro.umontreal.ca>

parents: 50846

1010 (car (cdr menu))))

4efabfff9aa1 (imenu--split-menu): Remove unused var `count'.

Stefan Monnier <monnier@iro.umontreal.ca>

parents: 50846

1011 'imenu--menubar-select))

a40fcee55faa (imenu-menubar-modified-tick): Renamed from

Richard M. Stallman <rms@gnu.org>

parents: 43832

1012 (setq old (lookup-key (current-local-map) [menu-bar index]))

a40fcee55faa (imenu-menubar-modified-tick): Renamed from

Richard M. Stallman <rms@gnu.org>

parents: 43832

1013 (setcdr old (cdr menu1)))))))

4eac65d000d3 (imenu-update-menubar): New function.

Karl Heuer <kwzh@gnu.org>

parents: 13645

1014

4eac65d000d3 (imenu-update-menubar): New function.

Karl Heuer <kwzh@gnu.org>

parents: 13645

1015 (defun imenu--menubar-select (item)

71197bcff33c (imenu--split-menu): Use dolist and copy-sequence.

Stefan Monnier <monnier@iro.umontreal.ca>

parents: 38412

1016 "Use Imenu to select the function or variable named in this menu ITEM."

b48a8dd2d8ce (imenu-scanning-message): Support for bigger numbers.

Richard M. Stallman <rms@gnu.org>

parents: 16698

1017 (if (equal item imenu--rescan-item)

14796

29e7001fecf0 (imenu--menubar-select): Handle the "rescan" item.

Richard M. Stallman <rms@gnu.org>

parents: 14733

1018 (progn

29e7001fecf0 (imenu--menubar-select): Handle the "rescan" item.

Richard M. Stallman <rms@gnu.org>

parents: 14733

1019 (imenu--cleanup)

55826

e7bdb5b77df2 (imenu--menubar-select): Set imenu-menubar-modified-tick

Richard M. Stallman <rms@gnu.org>

parents: 52733

1020 ;; Make sure imenu-update-menubar redoes everything.

e7bdb5b77df2 (imenu--menubar-select): Set imenu-menubar-modified-tick

Richard M. Stallman <rms@gnu.org>

parents: 52733

1021 (setq imenu-menubar-modified-tick -1)

14796

29e7001fecf0 (imenu--menubar-select): Handle the "rescan" item.

Richard M. Stallman <rms@gnu.org>

parents: 14733

1022 (setq imenu--index-alist nil)

55826

e7bdb5b77df2 (imenu--menubar-select): Set imenu-menubar-modified-tick

Richard M. Stallman <rms@gnu.org>

parents: 52733

1023 (setq imenu--last-menubar-index-alist nil)

71197bcff33c (imenu--split-menu): Use dolist and copy-sequence.

Stefan Monnier <monnier@iro.umontreal.ca>

parents: 38412

1024 (imenu-update-menubar)

71197bcff33c (imenu--split-menu): Use dolist and copy-sequence.

Stefan Monnier <monnier@iro.umontreal.ca>

parents: 38412

1025 t)

71197bcff33c (imenu--split-menu): Use dolist and copy-sequence.

Stefan Monnier <monnier@iro.umontreal.ca>

parents: 38412

1026 (imenu item)

71197bcff33c (imenu--split-menu): Use dolist and copy-sequence.

Stefan Monnier <monnier@iro.umontreal.ca>

parents: 38412

1027 nil))

109166e311ce (imenu, imenu--flatten-index-alist): Add marker support.

Richard M. Stallman <rms@gnu.org>

parents: 8296

1028

b48a8dd2d8ce (imenu-scanning-message): Support for bigger numbers.

Richard M. Stallman <rms@gnu.org>

parents: 16698

1029 (defun imenu-default-goto-function (name position &optional rest)

1389687cfa0a (imenu--completion-buffer): Don't return t for rescan.

Stefan Monnier <monnier@iro.umontreal.ca>

parents: 56683

1030 "Move to the given position.

5898cd2e4cd6 (imenu--generic-function): Doc fix. Rewritten to be faster.

Richard M. Stallman <rms@gnu.org>

parents: 20857

1031

5898cd2e4cd6 (imenu--generic-function): Doc fix. Rewritten to be faster.

Richard M. Stallman <rms@gnu.org>

parents: 20857

1032 NAME is ignored. POSITION is where to move. REST is also ignored.

5898cd2e4cd6 (imenu--generic-function): Doc fix. Rewritten to be faster.

Richard M. Stallman <rms@gnu.org>

parents: 20857

1033 The ignored args just make this function have the same interface as a

5898cd2e4cd6 (imenu--generic-function): Doc fix. Rewritten to be faster.

Richard M. Stallman <rms@gnu.org>

parents: 20857

1034 function placed in a special index-item."

830ad59547e4 (imenu-default-goto-function): Simplify.

Richard M. Stallman <rms@gnu.org>

parents: 17230

1035 (if (or (< position (point-min))

830ad59547e4 (imenu-default-goto-function): Simplify.

Richard M. Stallman <rms@gnu.org>

parents: 17230

1036 (> position (point-max)))

b48a8dd2d8ce (imenu-scanning-message): Support for bigger numbers.

Richard M. Stallman <rms@gnu.org>

parents: 16698

1037 ;; widen if outside narrowing

b48a8dd2d8ce (imenu-scanning-message): Support for bigger numbers.

Richard M. Stallman <rms@gnu.org>

parents: 16698

1038 (widen))

830ad59547e4 (imenu-default-goto-function): Simplify.

Richard M. Stallman <rms@gnu.org>

parents: 17230

1039 (goto-char position))

b48a8dd2d8ce (imenu-scanning-message): Support for bigger numbers.

Richard M. Stallman <rms@gnu.org>

parents: 16698

1040

cd73ba498964 (imenu): Renamed from goto-index-pos.

Richard M. Stallman <rms@gnu.org>

parents: 6909

1041 ;;;###autoload

ce1cae301efe (imenu--history-list): Don't make this buffer-local.

Richard M. Stallman <rms@gnu.org>

parents: 12635

1042 (defun imenu (index-item)

cd73ba498964 (imenu): Renamed from goto-index-pos.

Richard M. Stallman <rms@gnu.org>

parents: 6909

1043 "Jump to a place in the buffer chosen using a buffer menu or mouse menu.

5898cd2e4cd6 (imenu--generic-function): Doc fix. Rewritten to be faster.

Richard M. Stallman <rms@gnu.org>

parents: 20857

1044 INDEX-ITEM specifies the position. See `imenu-choose-buffer-index'

5898cd2e4cd6 (imenu--generic-function): Doc fix. Rewritten to be faster.

Richard M. Stallman <rms@gnu.org>

parents: 20857

1045 for more information."

16698

13920eac02e0 (imenu-generic-expression): Doc fix.

Richard M. Stallman <rms@gnu.org>

parents: 16612

1046 (interactive (list (imenu-choose-buffer-index)))

4eac65d000d3 (imenu-update-menubar): New function.

Karl Heuer <kwzh@gnu.org>

parents: 13645

1047 ;; Convert a string to an alist element.

4eac65d000d3 (imenu-update-menubar): New function.

Karl Heuer <kwzh@gnu.org>

parents: 13645

1048 (if (stringp index-item)

4eac65d000d3 (imenu-update-menubar): New function.

Karl Heuer <kwzh@gnu.org>

parents: 13645

1049 (setq index-item (assoc index-item (imenu--make-index-alist))))

71197bcff33c (imenu--split-menu): Use dolist and copy-sequence.

Stefan Monnier <monnier@iro.umontreal.ca>

parents: 38412

1050 (when index-item

71197bcff33c (imenu--split-menu): Use dolist and copy-sequence.

Stefan Monnier <monnier@iro.umontreal.ca>

parents: 38412

1051 (push-mark)

71197bcff33c (imenu--split-menu): Use dolist and copy-sequence.

Stefan Monnier <monnier@iro.umontreal.ca>

parents: 38412

1052 (let* ((is-special-item (listp (cdr index-item)))

71197bcff33c (imenu--split-menu): Use dolist and copy-sequence.

Stefan Monnier <monnier@iro.umontreal.ca>

parents: 38412

1053 (function

71197bcff33c (imenu--split-menu): Use dolist and copy-sequence.

Stefan Monnier <monnier@iro.umontreal.ca>

parents: 38412

1054 (if is-special-item

71197bcff33c (imenu--split-menu): Use dolist and copy-sequence.

Stefan Monnier <monnier@iro.umontreal.ca>

parents: 38412

1055 (nth 2 index-item) imenu-default-goto-function))

71197bcff33c (imenu--split-menu): Use dolist and copy-sequence.

Stefan Monnier <monnier@iro.umontreal.ca>

parents: 38412

1056 (position (if is-special-item

71197bcff33c (imenu--split-menu): Use dolist and copy-sequence.

Stefan Monnier <monnier@iro.umontreal.ca>

parents: 38412

1057 (cadr index-item) (cdr index-item)))

71197bcff33c (imenu--split-menu): Use dolist and copy-sequence.

Stefan Monnier <monnier@iro.umontreal.ca>

parents: 38412

1058 (rest (if is-special-item (cddr index-item))))

71197bcff33c (imenu--split-menu): Use dolist and copy-sequence.

Stefan Monnier <monnier@iro.umontreal.ca>

parents: 38412

1059 (apply function (car index-item) position rest))

71197bcff33c (imenu--split-menu): Use dolist and copy-sequence.

Stefan Monnier <monnier@iro.umontreal.ca>

parents: 38412

1060 (run-hooks 'imenu-after-jump-hook)))

109166e311ce (imenu, imenu--flatten-index-alist): Add marker support.

Richard M. Stallman <rms@gnu.org>

parents: 8296

1061

29078

2e20146198ce Add to debug-ignored-errors.

Dave Love <fx@gnu.org>

parents: 25810

1062 (dolist (mess

2e20146198ce Add to debug-ignored-errors.

Dave Love <fx@gnu.org>

parents: 25810

1063 '("^No items suitable for an index found in this buffer$"

2e20146198ce Add to debug-ignored-errors.

Dave Love <fx@gnu.org>

parents: 25810

1064 "^This buffer cannot use `imenu-default-create-index-function'$"

2e20146198ce Add to debug-ignored-errors.

Dave Love <fx@gnu.org>

parents: 25810

1065 "^The mode `.*' does not support Imenu$"))

2e20146198ce Add to debug-ignored-errors.

Dave Love <fx@gnu.org>

parents: 25810

1066 (add-to-list 'debug-ignored-errors mess))

2e20146198ce Add to debug-ignored-errors.

Dave Love <fx@gnu.org>

parents: 25810

1067

4c72f80598ae Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

1068 (provide 'imenu)

4c72f80598ae Initial revision

Richard M. Stallman <rms@gnu.org>

parents:

1069

1389687cfa0a (imenu--completion-buffer): Don't return t for rescan.

Stefan Monnier <monnier@iro.umontreal.ca>

parents: 56683

1070 ;; arch-tag: 98a2f5f5-4b91-4704-b18c-3aacf77d77a7

4c72f80598ae Initial revision

Richard M. Stallman <rms@gnu.org>

parents: