Mercurial > emacs
annotate lisp/info.el @ 54156:aa281cba47ea
(Defining Faces): Add description for min-colors. Update example.
author | Eli Zaretskii <eliz@gnu.org> |
---|---|
date | Fri, 27 Feb 2004 17:07:15 +0000 |
parents | 6f40406c2b3e |
children | bcc27a58f6ac |
rev | line source |
---|---|
38412
253f761ad37b
Some fixes to follow coding conventions in files maintained by FSF.
Pavel Janík <Pavel@Janik.cz>
parents:
38407
diff
changeset
|
1 ;;; info.el --- info package for Emacs |
807
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
754
diff
changeset
|
2 |
49390
1ab93adb0017
(Info-index): change pattern so that index entries
Karl Berry <karl@gnu.org>
parents:
49380
diff
changeset
|
3 ;; Copyright (C) 1985, 86, 92, 93, 94, 95, 96, 97, 98, 99, 2000, 2001, |
1ab93adb0017
(Info-index): change pattern so that index entries
Karl Berry <karl@gnu.org>
parents:
49380
diff
changeset
|
4 ;; 2002, 2003 |
36634
f3706ac7b437
(Info-scroll-down): Call pos-visible-in-window-p with
Gerd Moellmann <gerd@gnu.org>
parents:
36452
diff
changeset
|
5 ;; Free Software Foundation, Inc. |
846
20674ae6bf52
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
811
diff
changeset
|
6 |
807
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
754
diff
changeset
|
7 ;; Maintainer: FSF |
811
e694e0879463
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
807
diff
changeset
|
8 ;; Keywords: help |
807
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
754
diff
changeset
|
9 |
325 | 10 ;; This file is part of GNU Emacs. |
11 | |
12 ;; GNU Emacs is free software; you can redistribute it and/or modify | |
13 ;; it under the terms of the GNU General Public License as published by | |
807
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
754
diff
changeset
|
14 ;; the Free Software Foundation; either version 2, or (at your option) |
325 | 15 ;; any later version. |
16 | |
17 ;; GNU Emacs is distributed in the hope that it will be useful, | |
18 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of | |
19 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
20 ;; GNU General Public License for more details. | |
21 | |
22 ;; You should have received a copy of the GNU General Public License | |
14169 | 23 ;; along with GNU Emacs; see the file COPYING. If not, write to the |
24 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, | |
25 ;; Boston, MA 02111-1307, USA. | |
325 | 26 |
807
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
754
diff
changeset
|
27 ;;; Commentary: |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
754
diff
changeset
|
28 |
14169 | 29 ;; Note that nowadays we expect info files to be made using makeinfo. |
49424
59c37b87bb18
(Info-try-follow-nearest-node): Add case: Handle menu item
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
49390
diff
changeset
|
30 ;; In particular we make these assumptions: |
59c37b87bb18
(Info-try-follow-nearest-node): Add case: Handle menu item
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
49390
diff
changeset
|
31 ;; - a menu item MAY contain colons but not colon-space ": " |
59c37b87bb18
(Info-try-follow-nearest-node): Add case: Handle menu item
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
49390
diff
changeset
|
32 ;; - a menu item ending with ": " (but not ":: ") is an index entry |
59c37b87bb18
(Info-try-follow-nearest-node): Add case: Handle menu item
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
49390
diff
changeset
|
33 ;; - a node name MAY NOT contain a colon |
49426
7ac32aa920b9
(Info-extract-menu-node-name): When looking for end of
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
49424
diff
changeset
|
34 ;; This distinction is to support indexing of computer programming |
7ac32aa920b9
(Info-extract-menu-node-name): When looking for end of
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
49424
diff
changeset
|
35 ;; language terms that may contain ":" but not ": ". |
807
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
754
diff
changeset
|
36 |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
754
diff
changeset
|
37 ;;; Code: |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
754
diff
changeset
|
38 |
25869 | 39 (eval-when-compile (require 'jka-compr)) |
40 | |
17430
de68258fef5f
Add defgroup; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17154
diff
changeset
|
41 (defgroup info nil |
de68258fef5f
Add defgroup; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17154
diff
changeset
|
42 "Info subsystem" |
de68258fef5f
Add defgroup; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17154
diff
changeset
|
43 :group 'help |
de68258fef5f
Add defgroup; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17154
diff
changeset
|
44 :group 'docs) |
de68258fef5f
Add defgroup; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17154
diff
changeset
|
45 |
de68258fef5f
Add defgroup; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17154
diff
changeset
|
46 |
325 | 47 (defvar Info-history nil |
48 "List of info nodes user has visited. | |
49 Each element of list is a list (FILENAME NODENAME BUFFERPOS).") | |
50 | |
17430
de68258fef5f
Add defgroup; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17154
diff
changeset
|
51 (defcustom Info-enable-edit nil |
3084
a4341d92948a
(Info-edit, Info-last-search, Info-enable-edit):
Richard M. Stallman <rms@gnu.org>
parents:
3047
diff
changeset
|
52 "*Non-nil means the \\<Info-mode-map>\\[Info-edit] command in Info can edit the current node. |
680
f99c8512cd41
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
660
diff
changeset
|
53 This is convenient if you want to write info files by hand. |
f99c8512cd41
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
660
diff
changeset
|
54 However, we recommend that you not do this. |
f99c8512cd41
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
660
diff
changeset
|
55 It is better to write a Texinfo file and generate the Info file from that, |
17430
de68258fef5f
Add defgroup; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17154
diff
changeset
|
56 because that gives you a printed manual as well." |
de68258fef5f
Add defgroup; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17154
diff
changeset
|
57 :type 'boolean |
de68258fef5f
Add defgroup; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17154
diff
changeset
|
58 :group 'info) |
325 | 59 |
15177
4935ada40f67
(Info-enable-active-nodes): Default to nil. Mark it risky.
Richard M. Stallman <rms@gnu.org>
parents:
15126
diff
changeset
|
60 (defvar Info-enable-active-nodes nil |
325 | 61 "Non-nil allows Info to execute Lisp code associated with nodes. |
62 The Lisp code is executed when the node is selected.") | |
15177
4935ada40f67
(Info-enable-active-nodes): Default to nil. Mark it risky.
Richard M. Stallman <rms@gnu.org>
parents:
15126
diff
changeset
|
63 (put 'Info-enable-active-nodes 'risky-local-variable t) |
325 | 64 |
19043
a2853a75ce57
(info-node, info-xref, info-menu-5):
Richard M. Stallman <rms@gnu.org>
parents:
17968
diff
changeset
|
65 (defface info-node |
42455
7662f312caf2
(various face definitions): Use :weight and :slant.
Richard M. Stallman <rms@gnu.org>
parents:
42432
diff
changeset
|
66 '((((class color) (background light)) (:foreground "brown" :weight bold :slant italic)) |
7662f312caf2
(various face definitions): Use :weight and :slant.
Richard M. Stallman <rms@gnu.org>
parents:
42432
diff
changeset
|
67 (((class color) (background dark)) (:foreground "white" :weight bold :slant italic)) |
7662f312caf2
(various face definitions): Use :weight and :slant.
Richard M. Stallman <rms@gnu.org>
parents:
42432
diff
changeset
|
68 (t (:weight bold :slant italic))) |
19043
a2853a75ce57
(info-node, info-xref, info-menu-5):
Richard M. Stallman <rms@gnu.org>
parents:
17968
diff
changeset
|
69 "Face for Info node names." |
a2853a75ce57
(info-node, info-xref, info-menu-5):
Richard M. Stallman <rms@gnu.org>
parents:
17968
diff
changeset
|
70 :group 'info) |
a2853a75ce57
(info-node, info-xref, info-menu-5):
Richard M. Stallman <rms@gnu.org>
parents:
17968
diff
changeset
|
71 |
a2853a75ce57
(info-node, info-xref, info-menu-5):
Richard M. Stallman <rms@gnu.org>
parents:
17968
diff
changeset
|
72 (defface info-menu-5 |
26738
407a5a4056e8
(info-node, info-menu-5, info-xref): Define colors for Info faces if
Eli Zaretskii <eliz@gnu.org>
parents:
26580
diff
changeset
|
73 '((((class color)) (:foreground "red1")) |
407a5a4056e8
(info-node, info-menu-5, info-xref): Define colors for Info faces if
Eli Zaretskii <eliz@gnu.org>
parents:
26580
diff
changeset
|
74 (t (:underline t))) |
46029
65fc39bc254a
(info-menu-5): Fix documentation.
Juanma Barranquero <lekktu@gmail.com>
parents:
45784
diff
changeset
|
75 "Face for every third `*' in an Info menu." |
19043
a2853a75ce57
(info-node, info-xref, info-menu-5):
Richard M. Stallman <rms@gnu.org>
parents:
17968
diff
changeset
|
76 :group 'info) |
a2853a75ce57
(info-node, info-xref, info-menu-5):
Richard M. Stallman <rms@gnu.org>
parents:
17968
diff
changeset
|
77 |
a2853a75ce57
(info-node, info-xref, info-menu-5):
Richard M. Stallman <rms@gnu.org>
parents:
17968
diff
changeset
|
78 (defface info-xref |
42455
7662f312caf2
(various face definitions): Use :weight and :slant.
Richard M. Stallman <rms@gnu.org>
parents:
42432
diff
changeset
|
79 '((((class color) (background light)) (:foreground "magenta4" :weight bold)) |
7662f312caf2
(various face definitions): Use :weight and :slant.
Richard M. Stallman <rms@gnu.org>
parents:
42432
diff
changeset
|
80 (((class color) (background dark)) (:foreground "cyan" :weight bold)) |
7662f312caf2
(various face definitions): Use :weight and :slant.
Richard M. Stallman <rms@gnu.org>
parents:
42432
diff
changeset
|
81 (t (:weight bold))) |
19043
a2853a75ce57
(info-node, info-xref, info-menu-5):
Richard M. Stallman <rms@gnu.org>
parents:
17968
diff
changeset
|
82 "Face for Info cross-references." |
a2853a75ce57
(info-node, info-xref, info-menu-5):
Richard M. Stallman <rms@gnu.org>
parents:
17968
diff
changeset
|
83 :group 'info) |
a2853a75ce57
(info-node, info-xref, info-menu-5):
Richard M. Stallman <rms@gnu.org>
parents:
17968
diff
changeset
|
84 |
28168
e1acd68998c8
(Info-fontify-maximum-menu-size): Increase to 100000.
Gerd Moellmann <gerd@gnu.org>
parents:
27536
diff
changeset
|
85 (defcustom Info-fontify-maximum-menu-size 100000 |
46029
65fc39bc254a
(info-menu-5): Fix documentation.
Juanma Barranquero <lekktu@gmail.com>
parents:
45784
diff
changeset
|
86 "*Maximum size of menu to fontify if `font-lock-mode' is non-nil." |
17430
de68258fef5f
Add defgroup; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17154
diff
changeset
|
87 :type 'integer |
de68258fef5f
Add defgroup; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17154
diff
changeset
|
88 :group 'info) |
8480
7f28030d9529
(Info-additional-directory-list): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
8461
diff
changeset
|
89 |
31660 | 90 (defcustom Info-use-header-line t |
46326
6953d46b05f5
(info-emacs-manual): New function.
Richard M. Stallman <rms@gnu.org>
parents:
46252
diff
changeset
|
91 "*Non-nil means to put the beginning-of-node links in an Emacs header-line. |
31660 | 92 A header-line does not scroll with the rest of the buffer." |
93 :type 'boolean | |
94 :group 'info) | |
95 | |
96 (defface info-header-xref | |
31666
3cc588d57c8c
(info-node, info-xref): Add dark-background variants.
Miles Bader <miles@gnu.org>
parents:
31660
diff
changeset
|
97 '((t (:inherit info-xref))) |
31660 | 98 "Face for Info cross-references in a node header." |
99 :group 'info) | |
100 | |
101 (defface info-header-node | |
32566
f7ed7c88b2ed
(info-header-node): Remove unneded tty-specific definition.
Eli Zaretskii <eliz@gnu.org>
parents:
32563
diff
changeset
|
102 '((t (:inherit info-node))) |
31660 | 103 "Face for Info nodes in a node header." |
104 :group 'info) | |
105 | |
25145
784d7bc2a991
(info-initialize): New function.
Richard M. Stallman <rms@gnu.org>
parents:
24963
diff
changeset
|
106 (defvar Info-directory-list nil |
325 | 107 "List of directories to search for Info documentation files. |
46252
0b84df44f862
(Info-directory-list): Fix docstring.
Juanma Barranquero <lekktu@gmail.com>
parents:
46139
diff
changeset
|
108 If nil, meaning not yet initialized, Info uses the environment |
1979
0582c70595f1
* info.el (Info-directory-list): Doc fix; it is set according to
Jim Blandy <jimb@redhat.com>
parents:
1971
diff
changeset
|
109 variable INFOPATH to initialize it, or `Info-default-directory-list' |
51434
4c85e6a5a9d2
(Info-mode-hook): Obey obsolete `Info-fontify'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51310
diff
changeset
|
110 if there is no INFOPATH variable in the environment, or the |
4c85e6a5a9d2
(Info-mode-hook): Obey obsolete `Info-fontify'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51310
diff
changeset
|
111 concatenation of the two if INFOPATH ends with a colon. |
31324
928516355e95
(Info-directory-list): Doc fix.
Eli Zaretskii <eliz@gnu.org>
parents:
30763
diff
changeset
|
112 |
928516355e95
(Info-directory-list): Doc fix.
Eli Zaretskii <eliz@gnu.org>
parents:
30763
diff
changeset
|
113 When `Info-directory-list' is initialized from the value of |
34574
9283cc675c49
(Info-directory-list): Change doc string to reflect the
Eli Zaretskii <eliz@gnu.org>
parents:
34503
diff
changeset
|
114 `Info-default-directory-list', and Emacs is installed in one of the |
9283cc675c49
(Info-directory-list): Change doc string to reflect the
Eli Zaretskii <eliz@gnu.org>
parents:
34503
diff
changeset
|
115 standard directories, the directory of Info files that come with Emacs |
9283cc675c49
(Info-directory-list): Change doc string to reflect the
Eli Zaretskii <eliz@gnu.org>
parents:
34503
diff
changeset
|
116 is put last (so that local Info files override standard ones). |
9283cc675c49
(Info-directory-list): Change doc string to reflect the
Eli Zaretskii <eliz@gnu.org>
parents:
34503
diff
changeset
|
117 |
9283cc675c49
(Info-directory-list): Change doc string to reflect the
Eli Zaretskii <eliz@gnu.org>
parents:
34503
diff
changeset
|
118 When `Info-directory-list' is initialized from the value of |
9283cc675c49
(Info-directory-list): Change doc string to reflect the
Eli Zaretskii <eliz@gnu.org>
parents:
34503
diff
changeset
|
119 `Info-default-directory-list', and Emacs is not installed in one |
9283cc675c49
(Info-directory-list): Change doc string to reflect the
Eli Zaretskii <eliz@gnu.org>
parents:
34503
diff
changeset
|
120 of the standard directories, the first element of the resulting |
31324
928516355e95
(Info-directory-list): Doc fix.
Eli Zaretskii <eliz@gnu.org>
parents:
30763
diff
changeset
|
121 list is the directory where Emacs installs the Info files that |
928516355e95
(Info-directory-list): Doc fix.
Eli Zaretskii <eliz@gnu.org>
parents:
30763
diff
changeset
|
122 come with it. This is so that Emacs's own manual, which suits the |
34574
9283cc675c49
(Info-directory-list): Change doc string to reflect the
Eli Zaretskii <eliz@gnu.org>
parents:
34503
diff
changeset
|
123 version of Emacs you are using, will always be found first. This |
9283cc675c49
(Info-directory-list): Change doc string to reflect the
Eli Zaretskii <eliz@gnu.org>
parents:
34503
diff
changeset
|
124 is useful when you install an experimental version of Emacs without |
9283cc675c49
(Info-directory-list): Change doc string to reflect the
Eli Zaretskii <eliz@gnu.org>
parents:
34503
diff
changeset
|
125 removing the standard installation. |
9283cc675c49
(Info-directory-list): Change doc string to reflect the
Eli Zaretskii <eliz@gnu.org>
parents:
34503
diff
changeset
|
126 |
9283cc675c49
(Info-directory-list): Change doc string to reflect the
Eli Zaretskii <eliz@gnu.org>
parents:
34503
diff
changeset
|
127 If you want to override the order of directories in |
9283cc675c49
(Info-directory-list): Change doc string to reflect the
Eli Zaretskii <eliz@gnu.org>
parents:
34503
diff
changeset
|
128 `Info-default-directory-list', set INFOPATH in the environment. |
8461
c88361c3b940
(Info-directory-list): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
8369
diff
changeset
|
129 |
c88361c3b940
(Info-directory-list): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
8369
diff
changeset
|
130 If you run the Emacs executable from the `src' directory in the Emacs |
31324
928516355e95
(Info-directory-list): Doc fix.
Eli Zaretskii <eliz@gnu.org>
parents:
30763
diff
changeset
|
131 source tree, and INFOPATH is not defined, the `info' directory in the |
928516355e95
(Info-directory-list): Doc fix.
Eli Zaretskii <eliz@gnu.org>
parents:
30763
diff
changeset
|
132 source tree is used as the first element of `Info-directory-list', in |
928516355e95
(Info-directory-list): Doc fix.
Eli Zaretskii <eliz@gnu.org>
parents:
30763
diff
changeset
|
133 place of the installation Info directory. This is useful when you run |
928516355e95
(Info-directory-list): Doc fix.
Eli Zaretskii <eliz@gnu.org>
parents:
30763
diff
changeset
|
134 a version of Emacs without installing it.") |
325 | 135 |
17430
de68258fef5f
Add defgroup; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17154
diff
changeset
|
136 (defcustom Info-additional-directory-list nil |
8480
7f28030d9529
(Info-additional-directory-list): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
8461
diff
changeset
|
137 "List of additional directories to search for Info documentation files. |
48582
cb623072f5da
(Info-additional-directory-list): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
48287
diff
changeset
|
138 These directories are searched after those in `Info-directory-list'." |
17430
de68258fef5f
Add defgroup; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17154
diff
changeset
|
139 :type '(repeat directory) |
de68258fef5f
Add defgroup; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17154
diff
changeset
|
140 :group 'info) |
8480
7f28030d9529
(Info-additional-directory-list): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
8461
diff
changeset
|
141 |
51709
02d430615dd4
(Info-fontify-menu-headers): Only fontify `* Menu:' at the beginning
Luc Teirlinck <teirllm@auburn.edu>
parents:
51623
diff
changeset
|
142 (defcustom Info-scroll-prefer-subnodes nil |
34182
3f2ee9f3d8bf
(Info-scroll-prefer-subnodes): New defcustom.
Eli Zaretskii <eliz@gnu.org>
parents:
33621
diff
changeset
|
143 "*If non-nil, \\<Info-mode-map>\\[Info-scroll-up] in a menu visits subnodes. |
3f2ee9f3d8bf
(Info-scroll-prefer-subnodes): New defcustom.
Eli Zaretskii <eliz@gnu.org>
parents:
33621
diff
changeset
|
144 If this is non-nil, and you scroll far enough in a node that its menu |
3f2ee9f3d8bf
(Info-scroll-prefer-subnodes): New defcustom.
Eli Zaretskii <eliz@gnu.org>
parents:
33621
diff
changeset
|
145 appears on the screen, the next \\<Info-mode-map>\\[Info-scroll-up] |
3f2ee9f3d8bf
(Info-scroll-prefer-subnodes): New defcustom.
Eli Zaretskii <eliz@gnu.org>
parents:
33621
diff
changeset
|
146 moves to a subnode indicated by the following menu item. This means |
3f2ee9f3d8bf
(Info-scroll-prefer-subnodes): New defcustom.
Eli Zaretskii <eliz@gnu.org>
parents:
33621
diff
changeset
|
147 that you visit a subnode before getting to the end of the menu. |
3f2ee9f3d8bf
(Info-scroll-prefer-subnodes): New defcustom.
Eli Zaretskii <eliz@gnu.org>
parents:
33621
diff
changeset
|
148 |
3f2ee9f3d8bf
(Info-scroll-prefer-subnodes): New defcustom.
Eli Zaretskii <eliz@gnu.org>
parents:
33621
diff
changeset
|
149 Setting this option to nil results in behavior similar to the stand-alone |
3f2ee9f3d8bf
(Info-scroll-prefer-subnodes): New defcustom.
Eli Zaretskii <eliz@gnu.org>
parents:
33621
diff
changeset
|
150 Info reader program, which visits the first subnode from the menu only |
3f2ee9f3d8bf
(Info-scroll-prefer-subnodes): New defcustom.
Eli Zaretskii <eliz@gnu.org>
parents:
33621
diff
changeset
|
151 when you hit the end of the current node." |
52216
9c9f228688f7
(Info-scroll-prefer-subnodes): Add :version keyword to defcustom,
Luc Teirlinck <teirllm@auburn.edu>
parents:
51943
diff
changeset
|
152 :version "21.4" |
34182
3f2ee9f3d8bf
(Info-scroll-prefer-subnodes): New defcustom.
Eli Zaretskii <eliz@gnu.org>
parents:
33621
diff
changeset
|
153 :type 'boolean |
3f2ee9f3d8bf
(Info-scroll-prefer-subnodes): New defcustom.
Eli Zaretskii <eliz@gnu.org>
parents:
33621
diff
changeset
|
154 :group 'info) |
3f2ee9f3d8bf
(Info-scroll-prefer-subnodes): New defcustom.
Eli Zaretskii <eliz@gnu.org>
parents:
33621
diff
changeset
|
155 |
48107
c0a7fff00ce5
(Info-hide-note-references): New defcustom.
Kim F. Storm <storm@cua.dk>
parents:
48103
diff
changeset
|
156 (defcustom Info-hide-note-references t |
48118
40e2242be50f
(Info-hide-note-references): nil value now does no
Kim F. Storm <storm@cua.dk>
parents:
48107
diff
changeset
|
157 "*If non-nil, hide the tag and section reference in *note and * menu items. |
40e2242be50f
(Info-hide-note-references): nil value now does no
Kim F. Storm <storm@cua.dk>
parents:
48107
diff
changeset
|
158 Also replaces the \"*note\" text with \"see\". |
50004
14d6d1ad4a06
(Info-fontify-node): Don't hide indentation before the
Andreas Schwab <schwab@suse.de>
parents:
49879
diff
changeset
|
159 If value is non-nil but not t, the reference section is still shown." |
48118
40e2242be50f
(Info-hide-note-references): nil value now does no
Kim F. Storm <storm@cua.dk>
parents:
48107
diff
changeset
|
160 :version "21.4" |
50004
14d6d1ad4a06
(Info-fontify-node): Don't hide indentation before the
Andreas Schwab <schwab@suse.de>
parents:
49879
diff
changeset
|
161 :type '(choice (const :tag "No reformatting" nil) |
14d6d1ad4a06
(Info-fontify-node): Don't hide indentation before the
Andreas Schwab <schwab@suse.de>
parents:
49879
diff
changeset
|
162 (const :tag "Replace tag and hide reference" t) |
14d6d1ad4a06
(Info-fontify-node): Don't hide indentation before the
Andreas Schwab <schwab@suse.de>
parents:
49879
diff
changeset
|
163 (other :tag "Replace only tag" tag)) |
48107
c0a7fff00ce5
(Info-hide-note-references): New defcustom.
Kim F. Storm <storm@cua.dk>
parents:
48103
diff
changeset
|
164 :group 'info) |
c0a7fff00ce5
(Info-hide-note-references): New defcustom.
Kim F. Storm <storm@cua.dk>
parents:
48103
diff
changeset
|
165 |
51731 | 166 (defcustom Info-refill-paragraphs nil |
167 "*If non-nil, attempt to refill paragraphs with hidden references. | |
168 This refilling may accidentally remove explicit line breaks in the info | |
169 file, so be prepared for a few surprises if you enable this feature." | |
170 :version "21.4" | |
171 :type 'boolean | |
172 :group 'info) | |
173 | |
51434
4c85e6a5a9d2
(Info-mode-hook): Obey obsolete `Info-fontify'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51310
diff
changeset
|
174 (defcustom Info-mode-hook |
4c85e6a5a9d2
(Info-mode-hook): Obey obsolete `Info-fontify'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51310
diff
changeset
|
175 ;; Try to obey obsolete Info-fontify settings. |
4c85e6a5a9d2
(Info-mode-hook): Obey obsolete `Info-fontify'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51310
diff
changeset
|
176 (unless (and (boundp 'Info-fontify) (null Info-fontify)) |
4c85e6a5a9d2
(Info-mode-hook): Obey obsolete `Info-fontify'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51310
diff
changeset
|
177 '(turn-on-font-lock)) |
45458 | 178 "Hooks run when `info-mode' is called." |
179 :type 'hook | |
180 :group 'info) | |
181 | |
325 | 182 (defvar Info-current-file nil |
12646
cd83cf47be08
(Info-current-file): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
12433
diff
changeset
|
183 "Info file that Info is now looking at, or nil. |
cd83cf47be08
(Info-current-file): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
12433
diff
changeset
|
184 This is the name that was specified in Info, not the actual file name. |
26004
11f91800bec3
(Info-on-current-buffer): new entry point.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
25878
diff
changeset
|
185 It doesn't contain directory names or file name extensions added by Info. |
11f91800bec3
(Info-on-current-buffer): new entry point.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
25878
diff
changeset
|
186 Can also be t when using `Info-on-current-buffer'.") |
325 | 187 |
188 (defvar Info-current-subfile nil | |
29621 | 189 "Info subfile that is actually in the *info* buffer now. |
190 nil if current info file is not split into subfiles.") | |
325 | 191 |
192 (defvar Info-current-node nil | |
193 "Name of node that Info is now looking at, or nil.") | |
194 | |
16981
643e0f90e153
Handle multiple Info buffers.
Richard M. Stallman <rms@gnu.org>
parents:
16790
diff
changeset
|
195 (defvar Info-tag-table-marker nil |
325 | 196 "Marker pointing at beginning of current Info file's tag table. |
197 Marker points nowhere if file has no tag table.") | |
198 | |
16981
643e0f90e153
Handle multiple Info buffers.
Richard M. Stallman <rms@gnu.org>
parents:
16790
diff
changeset
|
199 (defvar Info-tag-table-buffer nil |
643e0f90e153
Handle multiple Info buffers.
Richard M. Stallman <rms@gnu.org>
parents:
16790
diff
changeset
|
200 "Buffer used for indirect tag tables.") |
643e0f90e153
Handle multiple Info buffers.
Richard M. Stallman <rms@gnu.org>
parents:
16790
diff
changeset
|
201 |
4410
25fb71fc2643
(Info-fontify-node): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4261
diff
changeset
|
202 (defvar Info-current-file-completions nil |
25fb71fc2643
(Info-fontify-node): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4261
diff
changeset
|
203 "Cached completion list for current Info file.") |
25fb71fc2643
(Info-fontify-node): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4261
diff
changeset
|
204 |
2561
1bd4cf98df68
(Info-find-node, Info-insert-subfile): Do the right thing if info files have
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2038
diff
changeset
|
205 (defvar Info-index-alternatives nil |
29621 | 206 "List of possible matches for last `Info-index' command.") |
2561
1bd4cf98df68
(Info-find-node, Info-insert-subfile): Do the right thing if info files have
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2038
diff
changeset
|
207 |
4410
25fb71fc2643
(Info-fontify-node): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4261
diff
changeset
|
208 (defvar Info-standalone nil |
25fb71fc2643
(Info-fontify-node): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4261
diff
changeset
|
209 "Non-nil if Emacs was started solely as an Info browser.") |
25145
784d7bc2a991
(info-initialize): New function.
Richard M. Stallman <rms@gnu.org>
parents:
24963
diff
changeset
|
210 |
12927
d3cda9e7c55f
(Info-suffix-list): For MS-DOS, use gunzip as the only uncompressor,
Richard M. Stallman <rms@gnu.org>
parents:
12892
diff
changeset
|
211 (defvar Info-suffix-list |
19937
f497e74a29aa
(Info-suffix-list): Add suffixes for MS-DOS version
Richard M. Stallman <rms@gnu.org>
parents:
19821
diff
changeset
|
212 ;; The MS-DOS list should work both when long file names are |
f497e74a29aa
(Info-suffix-list): Add suffixes for MS-DOS version
Richard M. Stallman <rms@gnu.org>
parents:
19821
diff
changeset
|
213 ;; supported (Windows 9X), and when only 8+3 file names are available. |
12927
d3cda9e7c55f
(Info-suffix-list): For MS-DOS, use gunzip as the only uncompressor,
Richard M. Stallman <rms@gnu.org>
parents:
12892
diff
changeset
|
214 (if (eq system-type 'ms-dos) |
d3cda9e7c55f
(Info-suffix-list): For MS-DOS, use gunzip as the only uncompressor,
Richard M. Stallman <rms@gnu.org>
parents:
12892
diff
changeset
|
215 '( (".gz" . "gunzip") |
d3cda9e7c55f
(Info-suffix-list): For MS-DOS, use gunzip as the only uncompressor,
Richard M. Stallman <rms@gnu.org>
parents:
12892
diff
changeset
|
216 (".z" . "gunzip") |
34503
00d3d092888c
(Info-suffix-list): Change format for a command that
Kenichi Handa <handa@m17n.org>
parents:
34468
diff
changeset
|
217 (".bz2" . ("bzip2" "-dc")) |
19937
f497e74a29aa
(Info-suffix-list): Add suffixes for MS-DOS version
Richard M. Stallman <rms@gnu.org>
parents:
19821
diff
changeset
|
218 (".inz" . "gunzip") |
f497e74a29aa
(Info-suffix-list): Add suffixes for MS-DOS version
Richard M. Stallman <rms@gnu.org>
parents:
19821
diff
changeset
|
219 (".igz" . "gunzip") |
f497e74a29aa
(Info-suffix-list): Add suffixes for MS-DOS version
Richard M. Stallman <rms@gnu.org>
parents:
19821
diff
changeset
|
220 (".info.Z" . "gunzip") |
f497e74a29aa
(Info-suffix-list): Add suffixes for MS-DOS version
Richard M. Stallman <rms@gnu.org>
parents:
19821
diff
changeset
|
221 (".info.gz" . "gunzip") |
f497e74a29aa
(Info-suffix-list): Add suffixes for MS-DOS version
Richard M. Stallman <rms@gnu.org>
parents:
19821
diff
changeset
|
222 ("-info.Z" . "gunzip") |
f497e74a29aa
(Info-suffix-list): Add suffixes for MS-DOS version
Richard M. Stallman <rms@gnu.org>
parents:
19821
diff
changeset
|
223 ("-info.gz" . "gunzip") |
f497e74a29aa
(Info-suffix-list): Add suffixes for MS-DOS version
Richard M. Stallman <rms@gnu.org>
parents:
19821
diff
changeset
|
224 ("/index.gz". "gunzip") |
f497e74a29aa
(Info-suffix-list): Add suffixes for MS-DOS version
Richard M. Stallman <rms@gnu.org>
parents:
19821
diff
changeset
|
225 ("/index.z" . "gunzip") |
13004
0ed37da6f0f3
(Info-suffix-list): Add .inf to MSDOS list.
Richard M. Stallman <rms@gnu.org>
parents:
12947
diff
changeset
|
226 (".inf" . nil) |
19937
f497e74a29aa
(Info-suffix-list): Add suffixes for MS-DOS version
Richard M. Stallman <rms@gnu.org>
parents:
19821
diff
changeset
|
227 (".info" . nil) |
f497e74a29aa
(Info-suffix-list): Add suffixes for MS-DOS version
Richard M. Stallman <rms@gnu.org>
parents:
19821
diff
changeset
|
228 ("-info" . nil) |
f497e74a29aa
(Info-suffix-list): Add suffixes for MS-DOS version
Richard M. Stallman <rms@gnu.org>
parents:
19821
diff
changeset
|
229 ("/index" . nil) |
12927
d3cda9e7c55f
(Info-suffix-list): For MS-DOS, use gunzip as the only uncompressor,
Richard M. Stallman <rms@gnu.org>
parents:
12892
diff
changeset
|
230 ("" . nil)) |
17941
2465a6a42a60
(Info-suffix-list): Accept -info as suffix;
Richard M. Stallman <rms@gnu.org>
parents:
17859
diff
changeset
|
231 '( (".info.Z". "uncompress") |
2465a6a42a60
(Info-suffix-list): Accept -info as suffix;
Richard M. Stallman <rms@gnu.org>
parents:
17859
diff
changeset
|
232 (".info.Y". "unyabba") |
2465a6a42a60
(Info-suffix-list): Accept -info as suffix;
Richard M. Stallman <rms@gnu.org>
parents:
17859
diff
changeset
|
233 (".info.gz". "gunzip") |
2465a6a42a60
(Info-suffix-list): Accept -info as suffix;
Richard M. Stallman <rms@gnu.org>
parents:
17859
diff
changeset
|
234 (".info.z". "gunzip") |
34503
00d3d092888c
(Info-suffix-list): Change format for a command that
Kenichi Handa <handa@m17n.org>
parents:
34468
diff
changeset
|
235 (".info.bz2" . ("bzip2" "-dc")) |
17941
2465a6a42a60
(Info-suffix-list): Accept -info as suffix;
Richard M. Stallman <rms@gnu.org>
parents:
17859
diff
changeset
|
236 (".info". nil) |
2465a6a42a60
(Info-suffix-list): Accept -info as suffix;
Richard M. Stallman <rms@gnu.org>
parents:
17859
diff
changeset
|
237 ("-info.Z". "uncompress") |
2465a6a42a60
(Info-suffix-list): Accept -info as suffix;
Richard M. Stallman <rms@gnu.org>
parents:
17859
diff
changeset
|
238 ("-info.Y". "unyabba") |
2465a6a42a60
(Info-suffix-list): Accept -info as suffix;
Richard M. Stallman <rms@gnu.org>
parents:
17859
diff
changeset
|
239 ("-info.gz". "gunzip") |
34503
00d3d092888c
(Info-suffix-list): Change format for a command that
Kenichi Handa <handa@m17n.org>
parents:
34468
diff
changeset
|
240 ("-info.bz2" . ("bzip2" "-dc")) |
17941
2465a6a42a60
(Info-suffix-list): Accept -info as suffix;
Richard M. Stallman <rms@gnu.org>
parents:
17859
diff
changeset
|
241 ("-info.z". "gunzip") |
2465a6a42a60
(Info-suffix-list): Accept -info as suffix;
Richard M. Stallman <rms@gnu.org>
parents:
17859
diff
changeset
|
242 ("-info". nil) |
2465a6a42a60
(Info-suffix-list): Accept -info as suffix;
Richard M. Stallman <rms@gnu.org>
parents:
17859
diff
changeset
|
243 ("/index.Z". "uncompress") |
2465a6a42a60
(Info-suffix-list): Accept -info as suffix;
Richard M. Stallman <rms@gnu.org>
parents:
17859
diff
changeset
|
244 ("/index.Y". "unyabba") |
2465a6a42a60
(Info-suffix-list): Accept -info as suffix;
Richard M. Stallman <rms@gnu.org>
parents:
17859
diff
changeset
|
245 ("/index.gz". "gunzip") |
2465a6a42a60
(Info-suffix-list): Accept -info as suffix;
Richard M. Stallman <rms@gnu.org>
parents:
17859
diff
changeset
|
246 ("/index.z". "gunzip") |
34503
00d3d092888c
(Info-suffix-list): Change format for a command that
Kenichi Handa <handa@m17n.org>
parents:
34468
diff
changeset
|
247 ("/index.bz2". ("bzip2" "-dc")) |
17941
2465a6a42a60
(Info-suffix-list): Accept -info as suffix;
Richard M. Stallman <rms@gnu.org>
parents:
17859
diff
changeset
|
248 ("/index". nil) |
2465a6a42a60
(Info-suffix-list): Accept -info as suffix;
Richard M. Stallman <rms@gnu.org>
parents:
17859
diff
changeset
|
249 (".Z". "uncompress") |
2465a6a42a60
(Info-suffix-list): Accept -info as suffix;
Richard M. Stallman <rms@gnu.org>
parents:
17859
diff
changeset
|
250 (".Y". "unyabba") |
2465a6a42a60
(Info-suffix-list): Accept -info as suffix;
Richard M. Stallman <rms@gnu.org>
parents:
17859
diff
changeset
|
251 (".gz". "gunzip") |
2465a6a42a60
(Info-suffix-list): Accept -info as suffix;
Richard M. Stallman <rms@gnu.org>
parents:
17859
diff
changeset
|
252 (".z". "gunzip") |
34503
00d3d092888c
(Info-suffix-list): Change format for a command that
Kenichi Handa <handa@m17n.org>
parents:
34468
diff
changeset
|
253 (".bz2" . ("bzip2" "-dc")) |
17941
2465a6a42a60
(Info-suffix-list): Accept -info as suffix;
Richard M. Stallman <rms@gnu.org>
parents:
17859
diff
changeset
|
254 ("". nil))) |
2561
1bd4cf98df68
(Info-find-node, Info-insert-subfile): Do the right thing if info files have
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2038
diff
changeset
|
255 "List of file name suffixes and associated decoding commands. |
1bd4cf98df68
(Info-find-node, Info-insert-subfile): Do the right thing if info files have
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2038
diff
changeset
|
256 Each entry should be (SUFFIX . STRING); the file is given to |
34503
00d3d092888c
(Info-suffix-list): Change format for a command that
Kenichi Handa <handa@m17n.org>
parents:
34468
diff
changeset
|
257 the command as standard input. |
00d3d092888c
(Info-suffix-list): Change format for a command that
Kenichi Handa <handa@m17n.org>
parents:
34468
diff
changeset
|
258 |
00d3d092888c
(Info-suffix-list): Change format for a command that
Kenichi Handa <handa@m17n.org>
parents:
34468
diff
changeset
|
259 STRING may be a list of strings. In that case, the first element is |
00d3d092888c
(Info-suffix-list): Change format for a command that
Kenichi Handa <handa@m17n.org>
parents:
34468
diff
changeset
|
260 the command name, and the rest are arguments to that command. |
00d3d092888c
(Info-suffix-list): Change format for a command that
Kenichi Handa <handa@m17n.org>
parents:
34468
diff
changeset
|
261 |
00d3d092888c
(Info-suffix-list): Change format for a command that
Kenichi Handa <handa@m17n.org>
parents:
34468
diff
changeset
|
262 If STRING is nil, no decoding is done. |
6566
248eede22658
(Info-suffix-list): Put empty string last.
Karl Heuer <kwzh@gnu.org>
parents:
6537
diff
changeset
|
263 Because the SUFFIXes are tried in order, the empty string should |
248eede22658
(Info-suffix-list): Put empty string last.
Karl Heuer <kwzh@gnu.org>
parents:
6537
diff
changeset
|
264 be last in the list.") |
2561
1bd4cf98df68
(Info-find-node, Info-insert-subfile): Do the right thing if info files have
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2038
diff
changeset
|
265 |
13562
80870ef96f18
(info-insert-file-contents-1): Various rewrites.
Richard M. Stallman <rms@gnu.org>
parents:
13287
diff
changeset
|
266 ;; Concatenate SUFFIX onto FILENAME. SUFFIX should start with a dot. |
36452
b42d9cfd5c8f
(info-insert-file-contents-1): Accept an additional
Eli Zaretskii <eliz@gnu.org>
parents:
36092
diff
changeset
|
267 ;; First, on MS-DOS with no long file names support, delete some of |
b42d9cfd5c8f
(info-insert-file-contents-1): Accept an additional
Eli Zaretskii <eliz@gnu.org>
parents:
36092
diff
changeset
|
268 ;; the extension in FILENAME to make room. |
b42d9cfd5c8f
(info-insert-file-contents-1): Accept an additional
Eli Zaretskii <eliz@gnu.org>
parents:
36092
diff
changeset
|
269 (defun info-insert-file-contents-1 (filename suffix lfn) |
b42d9cfd5c8f
(info-insert-file-contents-1): Accept an additional
Eli Zaretskii <eliz@gnu.org>
parents:
36092
diff
changeset
|
270 (if lfn ; long file names are supported |
12927
d3cda9e7c55f
(Info-suffix-list): For MS-DOS, use gunzip as the only uncompressor,
Richard M. Stallman <rms@gnu.org>
parents:
12892
diff
changeset
|
271 (concat filename suffix) |
d3cda9e7c55f
(Info-suffix-list): For MS-DOS, use gunzip as the only uncompressor,
Richard M. Stallman <rms@gnu.org>
parents:
12892
diff
changeset
|
272 (let* ((sans-exts (file-name-sans-extension filename)) |
13562
80870ef96f18
(info-insert-file-contents-1): Various rewrites.
Richard M. Stallman <rms@gnu.org>
parents:
13287
diff
changeset
|
273 ;; How long is the extension in FILENAME (not counting the dot). |
80870ef96f18
(info-insert-file-contents-1): Various rewrites.
Richard M. Stallman <rms@gnu.org>
parents:
13287
diff
changeset
|
274 (ext-len (max 0 (- (length filename) (length sans-exts) 1))) |
80870ef96f18
(info-insert-file-contents-1): Various rewrites.
Richard M. Stallman <rms@gnu.org>
parents:
13287
diff
changeset
|
275 ext-left) |
13004
0ed37da6f0f3
(Info-suffix-list): Add .inf to MSDOS list.
Richard M. Stallman <rms@gnu.org>
parents:
12947
diff
changeset
|
276 ;; SUFFIX starts with a dot. If FILENAME already has one, |
14577
39a431eafb34
(info-insert-file-contents-1) [MSDOS]: Remove leading
Karl Heuer <kwzh@gnu.org>
parents:
14560
diff
changeset
|
277 ;; get rid of the one in SUFFIX (unless suffix is empty). |
13562
80870ef96f18
(info-insert-file-contents-1): Various rewrites.
Richard M. Stallman <rms@gnu.org>
parents:
13287
diff
changeset
|
278 (or (and (<= ext-len 0) |
13004
0ed37da6f0f3
(Info-suffix-list): Add .inf to MSDOS list.
Richard M. Stallman <rms@gnu.org>
parents:
12947
diff
changeset
|
279 (not (eq (aref filename (1- (length filename))) ?.))) |
14577
39a431eafb34
(info-insert-file-contents-1) [MSDOS]: Remove leading
Karl Heuer <kwzh@gnu.org>
parents:
14560
diff
changeset
|
280 (= (length suffix) 0) |
13004
0ed37da6f0f3
(Info-suffix-list): Add .inf to MSDOS list.
Richard M. Stallman <rms@gnu.org>
parents:
12947
diff
changeset
|
281 (setq suffix (substring suffix 1))) |
13562
80870ef96f18
(info-insert-file-contents-1): Various rewrites.
Richard M. Stallman <rms@gnu.org>
parents:
13287
diff
changeset
|
282 ;; How many chars of that extension should we keep? |
80870ef96f18
(info-insert-file-contents-1): Various rewrites.
Richard M. Stallman <rms@gnu.org>
parents:
13287
diff
changeset
|
283 (setq ext-left (min ext-len (max 0 (- 3 (length suffix))))) |
12927
d3cda9e7c55f
(Info-suffix-list): For MS-DOS, use gunzip as the only uncompressor,
Richard M. Stallman <rms@gnu.org>
parents:
12892
diff
changeset
|
284 ;; Get rid of the rest of the extension, and add SUFFIX. |
d3cda9e7c55f
(Info-suffix-list): For MS-DOS, use gunzip as the only uncompressor,
Richard M. Stallman <rms@gnu.org>
parents:
12892
diff
changeset
|
285 (concat (substring filename 0 (- (length filename) |
d3cda9e7c55f
(Info-suffix-list): For MS-DOS, use gunzip as the only uncompressor,
Richard M. Stallman <rms@gnu.org>
parents:
12892
diff
changeset
|
286 (- ext-len ext-left))) |
d3cda9e7c55f
(Info-suffix-list): For MS-DOS, use gunzip as the only uncompressor,
Richard M. Stallman <rms@gnu.org>
parents:
12892
diff
changeset
|
287 suffix)))) |
d3cda9e7c55f
(Info-suffix-list): For MS-DOS, use gunzip as the only uncompressor,
Richard M. Stallman <rms@gnu.org>
parents:
12892
diff
changeset
|
288 |
22067
5665490a6f9e
(Info-find-node): Use info-file-exists-p
Richard M. Stallman <rms@gnu.org>
parents:
21910
diff
changeset
|
289 (defun info-file-exists-p (filename) |
5665490a6f9e
(Info-find-node): Use info-file-exists-p
Richard M. Stallman <rms@gnu.org>
parents:
21910
diff
changeset
|
290 (and (file-exists-p filename) |
5665490a6f9e
(Info-find-node): Use info-file-exists-p
Richard M. Stallman <rms@gnu.org>
parents:
21910
diff
changeset
|
291 (not (file-directory-p filename)))) |
5665490a6f9e
(Info-find-node): Use info-file-exists-p
Richard M. Stallman <rms@gnu.org>
parents:
21910
diff
changeset
|
292 |
2561
1bd4cf98df68
(Info-find-node, Info-insert-subfile): Do the right thing if info files have
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2038
diff
changeset
|
293 (defun info-insert-file-contents (filename &optional visit) |
1bd4cf98df68
(Info-find-node, Info-insert-subfile): Do the right thing if info files have
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2038
diff
changeset
|
294 "Insert the contents of an info file in the current buffer. |
1bd4cf98df68
(Info-find-node, Info-insert-subfile): Do the right thing if info files have
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2038
diff
changeset
|
295 Do the right thing if the file has been compressed or zipped." |
36452
b42d9cfd5c8f
(info-insert-file-contents-1): Accept an additional
Eli Zaretskii <eliz@gnu.org>
parents:
36092
diff
changeset
|
296 (let* ((tail Info-suffix-list) |
49467
c057b532bd92
(info-insert-file-contents) [!MSDOS]: Avoid byte-compiler warning.
Kim F. Storm <storm@cua.dk>
parents:
49465
diff
changeset
|
297 (lfn (if (fboundp 'msdos-long-file-names) |
c057b532bd92
(info-insert-file-contents) [!MSDOS]: Avoid byte-compiler warning.
Kim F. Storm <storm@cua.dk>
parents:
49465
diff
changeset
|
298 (msdos-long-file-names) |
c057b532bd92
(info-insert-file-contents) [!MSDOS]: Avoid byte-compiler warning.
Kim F. Storm <storm@cua.dk>
parents:
49465
diff
changeset
|
299 t)) |
36452
b42d9cfd5c8f
(info-insert-file-contents-1): Accept an additional
Eli Zaretskii <eliz@gnu.org>
parents:
36092
diff
changeset
|
300 (check-short (and (fboundp 'msdos-long-file-names) |
b42d9cfd5c8f
(info-insert-file-contents-1): Accept an additional
Eli Zaretskii <eliz@gnu.org>
parents:
36092
diff
changeset
|
301 lfn)) |
b42d9cfd5c8f
(info-insert-file-contents-1): Accept an additional
Eli Zaretskii <eliz@gnu.org>
parents:
36092
diff
changeset
|
302 fullname decoder done) |
38679
341786a2d705
(info-insert-file-contents): Use info-file-exists-p
Gerd Moellmann <gerd@gnu.org>
parents:
38412
diff
changeset
|
303 (if (info-file-exists-p filename) |
12927
d3cda9e7c55f
(Info-suffix-list): For MS-DOS, use gunzip as the only uncompressor,
Richard M. Stallman <rms@gnu.org>
parents:
12892
diff
changeset
|
304 ;; FILENAME exists--see if that name contains a suffix. |
d3cda9e7c55f
(Info-suffix-list): For MS-DOS, use gunzip as the only uncompressor,
Richard M. Stallman <rms@gnu.org>
parents:
12892
diff
changeset
|
305 ;; If so, set DECODE accordingly. |
6566
248eede22658
(Info-suffix-list): Put empty string last.
Karl Heuer <kwzh@gnu.org>
parents:
6537
diff
changeset
|
306 (progn |
248eede22658
(Info-suffix-list): Put empty string last.
Karl Heuer <kwzh@gnu.org>
parents:
6537
diff
changeset
|
307 (while (and tail |
248eede22658
(Info-suffix-list): Put empty string last.
Karl Heuer <kwzh@gnu.org>
parents:
6537
diff
changeset
|
308 (not (string-match |
248eede22658
(Info-suffix-list): Put empty string last.
Karl Heuer <kwzh@gnu.org>
parents:
6537
diff
changeset
|
309 (concat (regexp-quote (car (car tail))) "$") |
248eede22658
(Info-suffix-list): Put empty string last.
Karl Heuer <kwzh@gnu.org>
parents:
6537
diff
changeset
|
310 filename))) |
248eede22658
(Info-suffix-list): Put empty string last.
Karl Heuer <kwzh@gnu.org>
parents:
6537
diff
changeset
|
311 (setq tail (cdr tail))) |
248eede22658
(Info-suffix-list): Put empty string last.
Karl Heuer <kwzh@gnu.org>
parents:
6537
diff
changeset
|
312 (setq fullname filename |
248eede22658
(Info-suffix-list): Put empty string last.
Karl Heuer <kwzh@gnu.org>
parents:
6537
diff
changeset
|
313 decoder (cdr (car tail)))) |
12927
d3cda9e7c55f
(Info-suffix-list): For MS-DOS, use gunzip as the only uncompressor,
Richard M. Stallman <rms@gnu.org>
parents:
12892
diff
changeset
|
314 ;; Try adding suffixes to FILENAME and see if we can find something. |
36452
b42d9cfd5c8f
(info-insert-file-contents-1): Accept an additional
Eli Zaretskii <eliz@gnu.org>
parents:
36092
diff
changeset
|
315 (while (and tail (not done)) |
b42d9cfd5c8f
(info-insert-file-contents-1): Accept an additional
Eli Zaretskii <eliz@gnu.org>
parents:
36092
diff
changeset
|
316 (setq fullname (info-insert-file-contents-1 filename |
b42d9cfd5c8f
(info-insert-file-contents-1): Accept an additional
Eli Zaretskii <eliz@gnu.org>
parents:
36092
diff
changeset
|
317 (car (car tail)) lfn)) |
b42d9cfd5c8f
(info-insert-file-contents-1): Accept an additional
Eli Zaretskii <eliz@gnu.org>
parents:
36092
diff
changeset
|
318 (if (info-file-exists-p fullname) |
b42d9cfd5c8f
(info-insert-file-contents-1): Accept an additional
Eli Zaretskii <eliz@gnu.org>
parents:
36092
diff
changeset
|
319 (setq done t |
b42d9cfd5c8f
(info-insert-file-contents-1): Accept an additional
Eli Zaretskii <eliz@gnu.org>
parents:
36092
diff
changeset
|
320 ;; If we found a file with a suffix, set DECODER |
b42d9cfd5c8f
(info-insert-file-contents-1): Accept an additional
Eli Zaretskii <eliz@gnu.org>
parents:
36092
diff
changeset
|
321 ;; according to the suffix. |
b42d9cfd5c8f
(info-insert-file-contents-1): Accept an additional
Eli Zaretskii <eliz@gnu.org>
parents:
36092
diff
changeset
|
322 decoder (cdr (car tail))) |
b42d9cfd5c8f
(info-insert-file-contents-1): Accept an additional
Eli Zaretskii <eliz@gnu.org>
parents:
36092
diff
changeset
|
323 ;; When the MS-DOS port runs on Windows, we need to check |
b42d9cfd5c8f
(info-insert-file-contents-1): Accept an additional
Eli Zaretskii <eliz@gnu.org>
parents:
36092
diff
changeset
|
324 ;; the short variant of a long file name as well. |
b42d9cfd5c8f
(info-insert-file-contents-1): Accept an additional
Eli Zaretskii <eliz@gnu.org>
parents:
36092
diff
changeset
|
325 (when check-short |
b42d9cfd5c8f
(info-insert-file-contents-1): Accept an additional
Eli Zaretskii <eliz@gnu.org>
parents:
36092
diff
changeset
|
326 (setq fullname (info-insert-file-contents-1 filename |
b42d9cfd5c8f
(info-insert-file-contents-1): Accept an additional
Eli Zaretskii <eliz@gnu.org>
parents:
36092
diff
changeset
|
327 (car (car tail)) nil)) |
b42d9cfd5c8f
(info-insert-file-contents-1): Accept an additional
Eli Zaretskii <eliz@gnu.org>
parents:
36092
diff
changeset
|
328 (if (info-file-exists-p fullname) |
b42d9cfd5c8f
(info-insert-file-contents-1): Accept an additional
Eli Zaretskii <eliz@gnu.org>
parents:
36092
diff
changeset
|
329 (setq done t |
b42d9cfd5c8f
(info-insert-file-contents-1): Accept an additional
Eli Zaretskii <eliz@gnu.org>
parents:
36092
diff
changeset
|
330 decoder (cdr (car tail)))))) |
6566
248eede22658
(Info-suffix-list): Put empty string last.
Karl Heuer <kwzh@gnu.org>
parents:
6537
diff
changeset
|
331 (setq tail (cdr tail))) |
248eede22658
(Info-suffix-list): Put empty string last.
Karl Heuer <kwzh@gnu.org>
parents:
6537
diff
changeset
|
332 (or tail |
12927
d3cda9e7c55f
(Info-suffix-list): For MS-DOS, use gunzip as the only uncompressor,
Richard M. Stallman <rms@gnu.org>
parents:
12892
diff
changeset
|
333 (error "Can't find %s or any compressed version of it" filename))) |
9588
7d465ccfd45b
(info-insert-file-contents): Always check for conflict with jka-compr.
Richard M. Stallman <rms@gnu.org>
parents:
9572
diff
changeset
|
334 ;; check for conflict with jka-compr |
7d465ccfd45b
(info-insert-file-contents): Always check for conflict with jka-compr.
Richard M. Stallman <rms@gnu.org>
parents:
9572
diff
changeset
|
335 (if (and (featurep 'jka-compr) |
7d465ccfd45b
(info-insert-file-contents): Always check for conflict with jka-compr.
Richard M. Stallman <rms@gnu.org>
parents:
9572
diff
changeset
|
336 (jka-compr-installed-p) |
7d465ccfd45b
(info-insert-file-contents): Always check for conflict with jka-compr.
Richard M. Stallman <rms@gnu.org>
parents:
9572
diff
changeset
|
337 (jka-compr-get-compression-info fullname)) |
7d465ccfd45b
(info-insert-file-contents): Always check for conflict with jka-compr.
Richard M. Stallman <rms@gnu.org>
parents:
9572
diff
changeset
|
338 (setq decoder nil)) |
6566
248eede22658
(Info-suffix-list): Put empty string last.
Karl Heuer <kwzh@gnu.org>
parents:
6537
diff
changeset
|
339 (if decoder |
19937
f497e74a29aa
(Info-suffix-list): Add suffixes for MS-DOS version
Richard M. Stallman <rms@gnu.org>
parents:
19821
diff
changeset
|
340 (progn |
f497e74a29aa
(Info-suffix-list): Add suffixes for MS-DOS version
Richard M. Stallman <rms@gnu.org>
parents:
19821
diff
changeset
|
341 (insert-file-contents-literally fullname visit) |
f497e74a29aa
(Info-suffix-list): Add suffixes for MS-DOS version
Richard M. Stallman <rms@gnu.org>
parents:
19821
diff
changeset
|
342 (let ((buffer-read-only nil) |
f497e74a29aa
(Info-suffix-list): Add suffixes for MS-DOS version
Richard M. Stallman <rms@gnu.org>
parents:
19821
diff
changeset
|
343 (coding-system-for-write 'no-conversion) |
f497e74a29aa
(Info-suffix-list): Add suffixes for MS-DOS version
Richard M. Stallman <rms@gnu.org>
parents:
19821
diff
changeset
|
344 (default-directory (or (file-name-directory fullname) |
f497e74a29aa
(Info-suffix-list): Add suffixes for MS-DOS version
Richard M. Stallman <rms@gnu.org>
parents:
19821
diff
changeset
|
345 default-directory))) |
34503
00d3d092888c
(Info-suffix-list): Change format for a command that
Kenichi Handa <handa@m17n.org>
parents:
34468
diff
changeset
|
346 (or (consp decoder) |
00d3d092888c
(Info-suffix-list): Change format for a command that
Kenichi Handa <handa@m17n.org>
parents:
34468
diff
changeset
|
347 (setq decoder (list decoder))) |
00d3d092888c
(Info-suffix-list): Change format for a command that
Kenichi Handa <handa@m17n.org>
parents:
34468
diff
changeset
|
348 (apply 'call-process-region (point-min) (point-max) |
00d3d092888c
(Info-suffix-list): Change format for a command that
Kenichi Handa <handa@m17n.org>
parents:
34468
diff
changeset
|
349 (car decoder) t t nil (cdr decoder)))) |
19937
f497e74a29aa
(Info-suffix-list): Add suffixes for MS-DOS version
Richard M. Stallman <rms@gnu.org>
parents:
19821
diff
changeset
|
350 (insert-file-contents fullname visit)))) |
25145
784d7bc2a991
(info-initialize): New function.
Richard M. Stallman <rms@gnu.org>
parents:
24963
diff
changeset
|
351 |
50660
4d6ac18fff69
(Info-default-dirs): New fun extracted from Info-initialize.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50454
diff
changeset
|
352 (defun Info-default-dirs () |
4d6ac18fff69
(Info-default-dirs): New fun extracted from Info-initialize.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50454
diff
changeset
|
353 (let ((source (expand-file-name "info/" source-directory)) |
4d6ac18fff69
(Info-default-dirs): New fun extracted from Info-initialize.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50454
diff
changeset
|
354 (sibling (if installation-directory |
4d6ac18fff69
(Info-default-dirs): New fun extracted from Info-initialize.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50454
diff
changeset
|
355 (expand-file-name "info/" installation-directory) |
4d6ac18fff69
(Info-default-dirs): New fun extracted from Info-initialize.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50454
diff
changeset
|
356 (if invocation-directory |
4d6ac18fff69
(Info-default-dirs): New fun extracted from Info-initialize.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50454
diff
changeset
|
357 (let ((infodir (expand-file-name |
4d6ac18fff69
(Info-default-dirs): New fun extracted from Info-initialize.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50454
diff
changeset
|
358 "../info/" |
4d6ac18fff69
(Info-default-dirs): New fun extracted from Info-initialize.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50454
diff
changeset
|
359 invocation-directory))) |
4d6ac18fff69
(Info-default-dirs): New fun extracted from Info-initialize.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50454
diff
changeset
|
360 (if (file-exists-p infodir) |
4d6ac18fff69
(Info-default-dirs): New fun extracted from Info-initialize.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50454
diff
changeset
|
361 infodir |
4d6ac18fff69
(Info-default-dirs): New fun extracted from Info-initialize.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50454
diff
changeset
|
362 (setq infodir (expand-file-name |
4d6ac18fff69
(Info-default-dirs): New fun extracted from Info-initialize.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50454
diff
changeset
|
363 "../../../info/" |
4d6ac18fff69
(Info-default-dirs): New fun extracted from Info-initialize.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50454
diff
changeset
|
364 invocation-directory)) |
4d6ac18fff69
(Info-default-dirs): New fun extracted from Info-initialize.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50454
diff
changeset
|
365 (and (file-exists-p infodir) |
4d6ac18fff69
(Info-default-dirs): New fun extracted from Info-initialize.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50454
diff
changeset
|
366 infodir)))))) |
4d6ac18fff69
(Info-default-dirs): New fun extracted from Info-initialize.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50454
diff
changeset
|
367 alternative) |
4d6ac18fff69
(Info-default-dirs): New fun extracted from Info-initialize.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50454
diff
changeset
|
368 (setq alternative |
4d6ac18fff69
(Info-default-dirs): New fun extracted from Info-initialize.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50454
diff
changeset
|
369 (if (and sibling (file-exists-p sibling)) |
4d6ac18fff69
(Info-default-dirs): New fun extracted from Info-initialize.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50454
diff
changeset
|
370 ;; Uninstalled, Emacs builddir != srcdir. |
4d6ac18fff69
(Info-default-dirs): New fun extracted from Info-initialize.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50454
diff
changeset
|
371 sibling |
4d6ac18fff69
(Info-default-dirs): New fun extracted from Info-initialize.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50454
diff
changeset
|
372 ;; Uninstalled, builddir == srcdir |
4d6ac18fff69
(Info-default-dirs): New fun extracted from Info-initialize.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50454
diff
changeset
|
373 source)) |
4d6ac18fff69
(Info-default-dirs): New fun extracted from Info-initialize.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50454
diff
changeset
|
374 (if (or (member alternative Info-default-directory-list) |
4d6ac18fff69
(Info-default-dirs): New fun extracted from Info-initialize.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50454
diff
changeset
|
375 ;; On DOS/NT, we use movable executables always, |
4d6ac18fff69
(Info-default-dirs): New fun extracted from Info-initialize.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50454
diff
changeset
|
376 ;; and we must always find the Info dir at run time. |
4d6ac18fff69
(Info-default-dirs): New fun extracted from Info-initialize.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50454
diff
changeset
|
377 (if (memq system-type '(ms-dos windows-nt)) |
4d6ac18fff69
(Info-default-dirs): New fun extracted from Info-initialize.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50454
diff
changeset
|
378 nil |
4d6ac18fff69
(Info-default-dirs): New fun extracted from Info-initialize.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50454
diff
changeset
|
379 ;; Use invocation-directory for Info |
4d6ac18fff69
(Info-default-dirs): New fun extracted from Info-initialize.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50454
diff
changeset
|
380 ;; only if we used it for exec-directory also. |
4d6ac18fff69
(Info-default-dirs): New fun extracted from Info-initialize.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50454
diff
changeset
|
381 (not (string= exec-directory |
4d6ac18fff69
(Info-default-dirs): New fun extracted from Info-initialize.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50454
diff
changeset
|
382 (expand-file-name "lib-src/" |
4d6ac18fff69
(Info-default-dirs): New fun extracted from Info-initialize.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50454
diff
changeset
|
383 installation-directory)))) |
4d6ac18fff69
(Info-default-dirs): New fun extracted from Info-initialize.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50454
diff
changeset
|
384 (not (file-exists-p alternative))) |
4d6ac18fff69
(Info-default-dirs): New fun extracted from Info-initialize.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50454
diff
changeset
|
385 Info-default-directory-list |
4d6ac18fff69
(Info-default-dirs): New fun extracted from Info-initialize.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50454
diff
changeset
|
386 ;; `alternative' contains the Info files that came with this |
4d6ac18fff69
(Info-default-dirs): New fun extracted from Info-initialize.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50454
diff
changeset
|
387 ;; version, so we should look there first. `Info-insert-dir' |
4d6ac18fff69
(Info-default-dirs): New fun extracted from Info-initialize.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50454
diff
changeset
|
388 ;; currently expects to find `alternative' first on the list. |
4d6ac18fff69
(Info-default-dirs): New fun extracted from Info-initialize.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50454
diff
changeset
|
389 (cons alternative |
4d6ac18fff69
(Info-default-dirs): New fun extracted from Info-initialize.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50454
diff
changeset
|
390 (reverse (cdr (reverse Info-default-directory-list))))))) |
4d6ac18fff69
(Info-default-dirs): New fun extracted from Info-initialize.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50454
diff
changeset
|
391 |
25145
784d7bc2a991
(info-initialize): New function.
Richard M. Stallman <rms@gnu.org>
parents:
24963
diff
changeset
|
392 (defun info-initialize () |
29621 | 393 "Initialize `Info-directory-list', if that hasn't been done yet." |
25145
784d7bc2a991
(info-initialize): New function.
Richard M. Stallman <rms@gnu.org>
parents:
24963
diff
changeset
|
394 (unless Info-directory-list |
50660
4d6ac18fff69
(Info-default-dirs): New fun extracted from Info-initialize.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50454
diff
changeset
|
395 (let ((path (getenv "INFOPATH"))) |
25145
784d7bc2a991
(info-initialize): New function.
Richard M. Stallman <rms@gnu.org>
parents:
24963
diff
changeset
|
396 (setq Info-directory-list |
30020
fd781aee7a03
(info-initialize): Use prune-directory-list to remove non-existant
Miles Bader <miles@gnu.org>
parents:
29684
diff
changeset
|
397 (prune-directory-list |
fd781aee7a03
(info-initialize): Use prune-directory-list to remove non-existant
Miles Bader <miles@gnu.org>
parents:
29684
diff
changeset
|
398 (if path |
50660
4d6ac18fff69
(Info-default-dirs): New fun extracted from Info-initialize.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50454
diff
changeset
|
399 (if (string-match ":\\'" path) |
4d6ac18fff69
(Info-default-dirs): New fun extracted from Info-initialize.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50454
diff
changeset
|
400 (append (split-string (substring path 0 -1) |
4d6ac18fff69
(Info-default-dirs): New fun extracted from Info-initialize.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50454
diff
changeset
|
401 (regexp-quote path-separator)) |
4d6ac18fff69
(Info-default-dirs): New fun extracted from Info-initialize.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50454
diff
changeset
|
402 (Info-default-dirs)) |
4d6ac18fff69
(Info-default-dirs): New fun extracted from Info-initialize.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50454
diff
changeset
|
403 (split-string path (regexp-quote path-separator))) |
4d6ac18fff69
(Info-default-dirs): New fun extracted from Info-initialize.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50454
diff
changeset
|
404 (Info-default-dirs))))))) |
2561
1bd4cf98df68
(Info-find-node, Info-insert-subfile): Do the right thing if info files have
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2038
diff
changeset
|
405 |
22471
39efe6bebb46
(info-other-window): New function.
Richard M. Stallman <rms@gnu.org>
parents:
22331
diff
changeset
|
406 ;;;###autoload |
39efe6bebb46
(info-other-window): New function.
Richard M. Stallman <rms@gnu.org>
parents:
22331
diff
changeset
|
407 (defun info-other-window (&optional file) |
39efe6bebb46
(info-other-window): New function.
Richard M. Stallman <rms@gnu.org>
parents:
22331
diff
changeset
|
408 "Like `info' but show the Info buffer in another window." |
39efe6bebb46
(info-other-window): New function.
Richard M. Stallman <rms@gnu.org>
parents:
22331
diff
changeset
|
409 (interactive (if current-prefix-arg |
39efe6bebb46
(info-other-window): New function.
Richard M. Stallman <rms@gnu.org>
parents:
22331
diff
changeset
|
410 (list (read-file-name "Info file name: " nil nil t)))) |
39efe6bebb46
(info-other-window): New function.
Richard M. Stallman <rms@gnu.org>
parents:
22331
diff
changeset
|
411 (let (same-window-buffer-names) |
39efe6bebb46
(info-other-window): New function.
Richard M. Stallman <rms@gnu.org>
parents:
22331
diff
changeset
|
412 (info file))) |
28943
36fd90774cf7
(debug-ignored-errors): more errors to ignore.
Sam Steingold <sds@gnu.org>
parents:
28559
diff
changeset
|
413 |
10978
e3da01bbdc14
(same-window-buffer-names): Set this only in loaddefs.el,
Richard M. Stallman <rms@gnu.org>
parents:
10957
diff
changeset
|
414 ;;;###autoload (add-hook 'same-window-buffer-names "*info*") |
10957
6d3568e33019
(Info-menu): Bind beg with let.
Richard M. Stallman <rms@gnu.org>
parents:
10918
diff
changeset
|
415 |
6d3568e33019
(Info-menu): Bind beg with let.
Richard M. Stallman <rms@gnu.org>
parents:
10918
diff
changeset
|
416 ;;;###autoload |
325 | 417 (defun info (&optional file) |
418 "Enter Info, the documentation browser. | |
419 Optional argument FILE specifies the file to examine; | |
420 the default is the top-level directory of Info. | |
25311 | 421 Called from a program, FILE may specify an Info node of the form |
422 `(FILENAME)NODENAME'. | |
325 | 423 |
424 In interactive use, a prefix argument directs this command | |
14529 | 425 to read a file name from the minibuffer. |
426 | |
427 The search path for Info files is in the variable `Info-directory-list'. | |
28943
36fd90774cf7
(debug-ignored-errors): more errors to ignore.
Sam Steingold <sds@gnu.org>
parents:
28559
diff
changeset
|
428 The top-level Info directory is made by combining all the files named `dir' |
14529 | 429 in all the directories in that path." |
325 | 430 (interactive (if current-prefix-arg |
431 (list (read-file-name "Info file name: " nil nil t)))) | |
432 (if file | |
23175
ea4f70068321
(info): Don't add parens if FILE already has them.
Karl Heuer <kwzh@gnu.org>
parents:
23038
diff
changeset
|
433 (progn |
ea4f70068321
(info): Don't add parens if FILE already has them.
Karl Heuer <kwzh@gnu.org>
parents:
23038
diff
changeset
|
434 (pop-to-buffer "*info*") |
ea4f70068321
(info): Don't add parens if FILE already has them.
Karl Heuer <kwzh@gnu.org>
parents:
23038
diff
changeset
|
435 ;; If argument already contains parentheses, don't add another set |
ea4f70068321
(info): Don't add parens if FILE already has them.
Karl Heuer <kwzh@gnu.org>
parents:
23038
diff
changeset
|
436 ;; since the argument will then be parsed improperly. This also |
ea4f70068321
(info): Don't add parens if FILE already has them.
Karl Heuer <kwzh@gnu.org>
parents:
23038
diff
changeset
|
437 ;; has the added benefit of allowing node names to be included |
ea4f70068321
(info): Don't add parens if FILE already has them.
Karl Heuer <kwzh@gnu.org>
parents:
23038
diff
changeset
|
438 ;; following the parenthesized filename. |
ea4f70068321
(info): Don't add parens if FILE already has them.
Karl Heuer <kwzh@gnu.org>
parents:
23038
diff
changeset
|
439 (if (and (stringp file) (string-match "(.*)" file)) |
ea4f70068321
(info): Don't add parens if FILE already has them.
Karl Heuer <kwzh@gnu.org>
parents:
23038
diff
changeset
|
440 (Info-goto-node file) |
ea4f70068321
(info): Don't add parens if FILE already has them.
Karl Heuer <kwzh@gnu.org>
parents:
23038
diff
changeset
|
441 (Info-goto-node (concat "(" file ")")))) |
21704
e2283c4df334
(Info-fontify-node): For menu items, use info-xref font.
Richard M. Stallman <rms@gnu.org>
parents:
21641
diff
changeset
|
442 (if (get-buffer "*info*") |
e2283c4df334
(Info-fontify-node): For menu items, use info-xref font.
Richard M. Stallman <rms@gnu.org>
parents:
21641
diff
changeset
|
443 (pop-to-buffer "*info*") |
e2283c4df334
(Info-fontify-node): For menu items, use info-xref font.
Richard M. Stallman <rms@gnu.org>
parents:
21641
diff
changeset
|
444 (Info-directory)))) |
325 | 445 |
4410
25fb71fc2643
(Info-fontify-node): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4261
diff
changeset
|
446 ;;;###autoload |
46326
6953d46b05f5
(info-emacs-manual): New function.
Richard M. Stallman <rms@gnu.org>
parents:
46252
diff
changeset
|
447 (defun info-emacs-manual () |
47794
c460856d1bfd
(Info-next-menu-item, Info-last-menu-item)
John Paul Wallington <jpw@pobox.com>
parents:
47376
diff
changeset
|
448 "Display the Emacs manual in Info mode." |
46326
6953d46b05f5
(info-emacs-manual): New function.
Richard M. Stallman <rms@gnu.org>
parents:
46252
diff
changeset
|
449 (interactive) |
6953d46b05f5
(info-emacs-manual): New function.
Richard M. Stallman <rms@gnu.org>
parents:
46252
diff
changeset
|
450 (info "emacs")) |
6953d46b05f5
(info-emacs-manual): New function.
Richard M. Stallman <rms@gnu.org>
parents:
46252
diff
changeset
|
451 |
6953d46b05f5
(info-emacs-manual): New function.
Richard M. Stallman <rms@gnu.org>
parents:
46252
diff
changeset
|
452 ;;;###autoload |
4410
25fb71fc2643
(Info-fontify-node): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4261
diff
changeset
|
453 (defun info-standalone () |
25fb71fc2643
(Info-fontify-node): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4261
diff
changeset
|
454 "Run Emacs as a standalone Info reader. |
25fb71fc2643
(Info-fontify-node): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4261
diff
changeset
|
455 Usage: emacs -f info-standalone [filename] |
25fb71fc2643
(Info-fontify-node): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4261
diff
changeset
|
456 In standalone mode, \\<Info-mode-map>\\[Info-exit] exits Emacs itself." |
25fb71fc2643
(Info-fontify-node): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4261
diff
changeset
|
457 (setq Info-standalone t) |
25fb71fc2643
(Info-fontify-node): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4261
diff
changeset
|
458 (if (and command-line-args-left |
25fb71fc2643
(Info-fontify-node): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4261
diff
changeset
|
459 (not (string-match "^-" (car command-line-args-left)))) |
25fb71fc2643
(Info-fontify-node): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4261
diff
changeset
|
460 (condition-case err |
25fb71fc2643
(Info-fontify-node): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4261
diff
changeset
|
461 (progn |
25fb71fc2643
(Info-fontify-node): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4261
diff
changeset
|
462 (info (car command-line-args-left)) |
25fb71fc2643
(Info-fontify-node): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4261
diff
changeset
|
463 (setq command-line-args-left (cdr command-line-args-left))) |
25fb71fc2643
(Info-fontify-node): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4261
diff
changeset
|
464 (error (send-string-to-terminal |
25fb71fc2643
(Info-fontify-node): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4261
diff
changeset
|
465 (format "%s\n" (if (eq (car-safe err) 'error) |
25fb71fc2643
(Info-fontify-node): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4261
diff
changeset
|
466 (nth 1 err) err))) |
25fb71fc2643
(Info-fontify-node): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4261
diff
changeset
|
467 (save-buffers-kill-emacs))) |
25fb71fc2643
(Info-fontify-node): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4261
diff
changeset
|
468 (info))) |
25145
784d7bc2a991
(info-initialize): New function.
Richard M. Stallman <rms@gnu.org>
parents:
24963
diff
changeset
|
469 |
31942
55dd93c0d728
(Info-extract-pointer):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
31798
diff
changeset
|
470 ;; See if the accessible portion of the buffer begins with a node |
23923
950f2c278c9a
(Info-node-at-bob-matching): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
23904
diff
changeset
|
471 ;; delimiter, and the node header line which follows matches REGEXP. |
950f2c278c9a
(Info-node-at-bob-matching): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
23904
diff
changeset
|
472 ;; Typically, this test will be followed by a loop that examines the |
950f2c278c9a
(Info-node-at-bob-matching): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
23904
diff
changeset
|
473 ;; rest of the buffer with (search-forward "\n\^_"), and it's a pity |
950f2c278c9a
(Info-node-at-bob-matching): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
23904
diff
changeset
|
474 ;; to have the overhead of this special test inside the loop. |
950f2c278c9a
(Info-node-at-bob-matching): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
23904
diff
changeset
|
475 |
950f2c278c9a
(Info-node-at-bob-matching): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
23904
diff
changeset
|
476 ;; This function changes match-data, but supposedly the caller might |
950f2c278c9a
(Info-node-at-bob-matching): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
23904
diff
changeset
|
477 ;; want to use the results of re-search-backward. |
950f2c278c9a
(Info-node-at-bob-matching): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
23904
diff
changeset
|
478 |
950f2c278c9a
(Info-node-at-bob-matching): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
23904
diff
changeset
|
479 ;; The return value is the value of point at the beginning of matching |
31942
55dd93c0d728
(Info-extract-pointer):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
31798
diff
changeset
|
480 ;; REGEXP, if the function succeeds, nil otherwise. |
23923
950f2c278c9a
(Info-node-at-bob-matching): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
23904
diff
changeset
|
481 (defun Info-node-at-bob-matching (regexp) |
29446
009f1caf830f
Bind case-fold-search to t when searching in case
Gerd Moellmann <gerd@gnu.org>
parents:
29410
diff
changeset
|
482 (and (bobp) ; are we at beginning of buffer? |
009f1caf830f
Bind case-fold-search to t when searching in case
Gerd Moellmann <gerd@gnu.org>
parents:
29410
diff
changeset
|
483 (looking-at "\^_") ; does it begin with node delimiter? |
23923
950f2c278c9a
(Info-node-at-bob-matching): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
23904
diff
changeset
|
484 (let (beg) |
950f2c278c9a
(Info-node-at-bob-matching): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
23904
diff
changeset
|
485 (forward-line 1) |
950f2c278c9a
(Info-node-at-bob-matching): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
23904
diff
changeset
|
486 (setq beg (point)) |
29446
009f1caf830f
Bind case-fold-search to t when searching in case
Gerd Moellmann <gerd@gnu.org>
parents:
29410
diff
changeset
|
487 (forward-line 1) ; does the line after delimiter match REGEXP? |
23923
950f2c278c9a
(Info-node-at-bob-matching): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
23904
diff
changeset
|
488 (re-search-backward regexp beg t)))) |
950f2c278c9a
(Info-node-at-bob-matching): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
23904
diff
changeset
|
489 |
325 | 490 (defun Info-find-node (filename nodename &optional no-going-back) |
29621 | 491 "Go to an info node specified as separate FILENAME and NODENAME. |
492 NO-GOING-BACK is non-nil if recovering from an error in this function; | |
493 it says do not attempt further (recursive) error recovery." | |
25172
5a57e11d78c9
(Info-find-node): Call info-initialize here.
Dave Love <fx@gnu.org>
parents:
25145
diff
changeset
|
494 (info-initialize) |
325 | 495 ;; Convert filename to lower case if not found as specified. |
496 ;; Expand it. | |
26004
11f91800bec3
(Info-on-current-buffer): new entry point.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
25878
diff
changeset
|
497 (if (stringp filename) |
325 | 498 (let (temp temp-downcase found) |
22692
578a6d997580
(Info-find-node): Handle cross references to an @anchor.
Richard M. Stallman <rms@gnu.org>
parents:
22643
diff
changeset
|
499 (setq filename (substitute-in-file-name filename)) |
578a6d997580
(Info-find-node): Handle cross references to an @anchor.
Richard M. Stallman <rms@gnu.org>
parents:
22643
diff
changeset
|
500 (if (string= (downcase filename) "dir") |
578a6d997580
(Info-find-node): Handle cross references to an @anchor.
Richard M. Stallman <rms@gnu.org>
parents:
22643
diff
changeset
|
501 (setq found t) |
578a6d997580
(Info-find-node): Handle cross references to an @anchor.
Richard M. Stallman <rms@gnu.org>
parents:
22643
diff
changeset
|
502 (let ((dirs (if (string-match "^\\./" filename) |
578a6d997580
(Info-find-node): Handle cross references to an @anchor.
Richard M. Stallman <rms@gnu.org>
parents:
22643
diff
changeset
|
503 ;; If specified name starts with `./' |
578a6d997580
(Info-find-node): Handle cross references to an @anchor.
Richard M. Stallman <rms@gnu.org>
parents:
22643
diff
changeset
|
504 ;; then just try current directory. |
578a6d997580
(Info-find-node): Handle cross references to an @anchor.
Richard M. Stallman <rms@gnu.org>
parents:
22643
diff
changeset
|
505 '("./") |
578a6d997580
(Info-find-node): Handle cross references to an @anchor.
Richard M. Stallman <rms@gnu.org>
parents:
22643
diff
changeset
|
506 (if (file-name-absolute-p filename) |
578a6d997580
(Info-find-node): Handle cross references to an @anchor.
Richard M. Stallman <rms@gnu.org>
parents:
22643
diff
changeset
|
507 ;; No point in searching for an |
578a6d997580
(Info-find-node): Handle cross references to an @anchor.
Richard M. Stallman <rms@gnu.org>
parents:
22643
diff
changeset
|
508 ;; absolute file name |
578a6d997580
(Info-find-node): Handle cross references to an @anchor.
Richard M. Stallman <rms@gnu.org>
parents:
22643
diff
changeset
|
509 '(nil) |
578a6d997580
(Info-find-node): Handle cross references to an @anchor.
Richard M. Stallman <rms@gnu.org>
parents:
22643
diff
changeset
|
510 (if Info-additional-directory-list |
578a6d997580
(Info-find-node): Handle cross references to an @anchor.
Richard M. Stallman <rms@gnu.org>
parents:
22643
diff
changeset
|
511 (append Info-directory-list |
578a6d997580
(Info-find-node): Handle cross references to an @anchor.
Richard M. Stallman <rms@gnu.org>
parents:
22643
diff
changeset
|
512 Info-additional-directory-list) |
578a6d997580
(Info-find-node): Handle cross references to an @anchor.
Richard M. Stallman <rms@gnu.org>
parents:
22643
diff
changeset
|
513 Info-directory-list))))) |
578a6d997580
(Info-find-node): Handle cross references to an @anchor.
Richard M. Stallman <rms@gnu.org>
parents:
22643
diff
changeset
|
514 ;; Search the directory list for file FILENAME. |
578a6d997580
(Info-find-node): Handle cross references to an @anchor.
Richard M. Stallman <rms@gnu.org>
parents:
22643
diff
changeset
|
515 (while (and dirs (not found)) |
578a6d997580
(Info-find-node): Handle cross references to an @anchor.
Richard M. Stallman <rms@gnu.org>
parents:
22643
diff
changeset
|
516 (setq temp (expand-file-name filename (car dirs))) |
578a6d997580
(Info-find-node): Handle cross references to an @anchor.
Richard M. Stallman <rms@gnu.org>
parents:
22643
diff
changeset
|
517 (setq temp-downcase |
578a6d997580
(Info-find-node): Handle cross references to an @anchor.
Richard M. Stallman <rms@gnu.org>
parents:
22643
diff
changeset
|
518 (expand-file-name (downcase filename) (car dirs))) |
578a6d997580
(Info-find-node): Handle cross references to an @anchor.
Richard M. Stallman <rms@gnu.org>
parents:
22643
diff
changeset
|
519 ;; Try several variants of specified name. |
36452
b42d9cfd5c8f
(info-insert-file-contents-1): Accept an additional
Eli Zaretskii <eliz@gnu.org>
parents:
36092
diff
changeset
|
520 (let ((suffix-list Info-suffix-list) |
49467
c057b532bd92
(info-insert-file-contents) [!MSDOS]: Avoid byte-compiler warning.
Kim F. Storm <storm@cua.dk>
parents:
49465
diff
changeset
|
521 (lfn (if (fboundp 'msdos-long-file-names) |
c057b532bd92
(info-insert-file-contents) [!MSDOS]: Avoid byte-compiler warning.
Kim F. Storm <storm@cua.dk>
parents:
49465
diff
changeset
|
522 (msdos-long-file-names) |
c057b532bd92
(info-insert-file-contents) [!MSDOS]: Avoid byte-compiler warning.
Kim F. Storm <storm@cua.dk>
parents:
49465
diff
changeset
|
523 t))) |
22692
578a6d997580
(Info-find-node): Handle cross references to an @anchor.
Richard M. Stallman <rms@gnu.org>
parents:
22643
diff
changeset
|
524 (while (and suffix-list (not found)) |
578a6d997580
(Info-find-node): Handle cross references to an @anchor.
Richard M. Stallman <rms@gnu.org>
parents:
22643
diff
changeset
|
525 (cond ((info-file-exists-p |
578a6d997580
(Info-find-node): Handle cross references to an @anchor.
Richard M. Stallman <rms@gnu.org>
parents:
22643
diff
changeset
|
526 (info-insert-file-contents-1 |
36452
b42d9cfd5c8f
(info-insert-file-contents-1): Accept an additional
Eli Zaretskii <eliz@gnu.org>
parents:
36092
diff
changeset
|
527 temp (car (car suffix-list)) lfn)) |
22692
578a6d997580
(Info-find-node): Handle cross references to an @anchor.
Richard M. Stallman <rms@gnu.org>
parents:
22643
diff
changeset
|
528 (setq found temp)) |
578a6d997580
(Info-find-node): Handle cross references to an @anchor.
Richard M. Stallman <rms@gnu.org>
parents:
22643
diff
changeset
|
529 ((info-file-exists-p |
578a6d997580
(Info-find-node): Handle cross references to an @anchor.
Richard M. Stallman <rms@gnu.org>
parents:
22643
diff
changeset
|
530 (info-insert-file-contents-1 |
36452
b42d9cfd5c8f
(info-insert-file-contents-1): Accept an additional
Eli Zaretskii <eliz@gnu.org>
parents:
36092
diff
changeset
|
531 temp-downcase (car (car suffix-list)) lfn)) |
b42d9cfd5c8f
(info-insert-file-contents-1): Accept an additional
Eli Zaretskii <eliz@gnu.org>
parents:
36092
diff
changeset
|
532 (setq found temp-downcase)) |
b42d9cfd5c8f
(info-insert-file-contents-1): Accept an additional
Eli Zaretskii <eliz@gnu.org>
parents:
36092
diff
changeset
|
533 ((and (fboundp 'msdos-long-file-names) |
b42d9cfd5c8f
(info-insert-file-contents-1): Accept an additional
Eli Zaretskii <eliz@gnu.org>
parents:
36092
diff
changeset
|
534 lfn |
b42d9cfd5c8f
(info-insert-file-contents-1): Accept an additional
Eli Zaretskii <eliz@gnu.org>
parents:
36092
diff
changeset
|
535 (info-file-exists-p |
b42d9cfd5c8f
(info-insert-file-contents-1): Accept an additional
Eli Zaretskii <eliz@gnu.org>
parents:
36092
diff
changeset
|
536 (info-insert-file-contents-1 |
b42d9cfd5c8f
(info-insert-file-contents-1): Accept an additional
Eli Zaretskii <eliz@gnu.org>
parents:
36092
diff
changeset
|
537 temp (car (car suffix-list)) nil))) |
b42d9cfd5c8f
(info-insert-file-contents-1): Accept an additional
Eli Zaretskii <eliz@gnu.org>
parents:
36092
diff
changeset
|
538 (setq found temp))) |
22692
578a6d997580
(Info-find-node): Handle cross references to an @anchor.
Richard M. Stallman <rms@gnu.org>
parents:
22643
diff
changeset
|
539 (setq suffix-list (cdr suffix-list)))) |
578a6d997580
(Info-find-node): Handle cross references to an @anchor.
Richard M. Stallman <rms@gnu.org>
parents:
22643
diff
changeset
|
540 (setq dirs (cdr dirs))))) |
578a6d997580
(Info-find-node): Handle cross references to an @anchor.
Richard M. Stallman <rms@gnu.org>
parents:
22643
diff
changeset
|
541 (if found |
578a6d997580
(Info-find-node): Handle cross references to an @anchor.
Richard M. Stallman <rms@gnu.org>
parents:
22643
diff
changeset
|
542 (setq filename found) |
578a6d997580
(Info-find-node): Handle cross references to an @anchor.
Richard M. Stallman <rms@gnu.org>
parents:
22643
diff
changeset
|
543 (error "Info file %s does not exist" filename)))) |
578a6d997580
(Info-find-node): Handle cross references to an @anchor.
Richard M. Stallman <rms@gnu.org>
parents:
22643
diff
changeset
|
544 ;; Record the node we are leaving. |
578a6d997580
(Info-find-node): Handle cross references to an @anchor.
Richard M. Stallman <rms@gnu.org>
parents:
22643
diff
changeset
|
545 (if (and Info-current-file (not no-going-back)) |
578a6d997580
(Info-find-node): Handle cross references to an @anchor.
Richard M. Stallman <rms@gnu.org>
parents:
22643
diff
changeset
|
546 (setq Info-history |
578a6d997580
(Info-find-node): Handle cross references to an @anchor.
Richard M. Stallman <rms@gnu.org>
parents:
22643
diff
changeset
|
547 (cons (list Info-current-file Info-current-node (point)) |
578a6d997580
(Info-find-node): Handle cross references to an @anchor.
Richard M. Stallman <rms@gnu.org>
parents:
22643
diff
changeset
|
548 Info-history))) |
21704
e2283c4df334
(Info-fontify-node): For menu items, use info-xref font.
Richard M. Stallman <rms@gnu.org>
parents:
21641
diff
changeset
|
549 ;; Go into info buffer. |
e2283c4df334
(Info-fontify-node): For menu items, use info-xref font.
Richard M. Stallman <rms@gnu.org>
parents:
21641
diff
changeset
|
550 (or (eq major-mode 'Info-mode) (pop-to-buffer "*info*")) |
26004
11f91800bec3
(Info-on-current-buffer): new entry point.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
25878
diff
changeset
|
551 (Info-find-node-2 filename nodename no-going-back)) |
11f91800bec3
(Info-on-current-buffer): new entry point.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
25878
diff
changeset
|
552 |
11f91800bec3
(Info-on-current-buffer): new entry point.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
25878
diff
changeset
|
553 (defun Info-on-current-buffer (&optional nodename) |
11f91800bec3
(Info-on-current-buffer): new entry point.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
25878
diff
changeset
|
554 "Use the `Info-mode' to browse the current info buffer. |
11f91800bec3
(Info-on-current-buffer): new entry point.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
25878
diff
changeset
|
555 If a prefix arg is provided, it queries for the NODENAME which |
39459
a7adbd38c82a
(Info-on-current-buffer): Default arg to "Top".
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
39382
diff
changeset
|
556 else defaults to \"Top\"." |
26004
11f91800bec3
(Info-on-current-buffer): new entry point.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
25878
diff
changeset
|
557 (interactive |
11f91800bec3
(Info-on-current-buffer): new entry point.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
25878
diff
changeset
|
558 (list (if current-prefix-arg |
11f91800bec3
(Info-on-current-buffer): new entry point.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
25878
diff
changeset
|
559 (completing-read "Node name: " (Info-build-node-completions) |
39459
a7adbd38c82a
(Info-on-current-buffer): Default arg to "Top".
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
39382
diff
changeset
|
560 nil t "Top")))) |
a7adbd38c82a
(Info-on-current-buffer): Default arg to "Top".
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
39382
diff
changeset
|
561 (unless nodename (setq nodename "Top")) |
29410
935f96194020
(Info-on-current-buffer): Initialize info.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
29164
diff
changeset
|
562 (info-initialize) |
26004
11f91800bec3
(Info-on-current-buffer): new entry point.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
25878
diff
changeset
|
563 (Info-mode) |
11f91800bec3
(Info-on-current-buffer): new entry point.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
25878
diff
changeset
|
564 (set (make-local-variable 'Info-current-file) t) |
11f91800bec3
(Info-on-current-buffer): new entry point.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
25878
diff
changeset
|
565 (Info-find-node-2 nil nodename)) |
11f91800bec3
(Info-on-current-buffer): new entry point.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
25878
diff
changeset
|
566 |
48933
06dd01f3b917
(Info-revert-find-node): New function.
Richard M. Stallman <rms@gnu.org>
parents:
48887
diff
changeset
|
567 ;; It's perhaps a bit nasty to kill the *info* buffer to force a re-read, |
06dd01f3b917
(Info-revert-find-node): New function.
Richard M. Stallman <rms@gnu.org>
parents:
48887
diff
changeset
|
568 ;; but at least it keeps this routine (which is only for the benefit of |
06dd01f3b917
(Info-revert-find-node): New function.
Richard M. Stallman <rms@gnu.org>
parents:
48887
diff
changeset
|
569 ;; makeinfo-buffer) out of the way of normal operations. |
06dd01f3b917
(Info-revert-find-node): New function.
Richard M. Stallman <rms@gnu.org>
parents:
48887
diff
changeset
|
570 ;; |
06dd01f3b917
(Info-revert-find-node): New function.
Richard M. Stallman <rms@gnu.org>
parents:
48887
diff
changeset
|
571 (defun Info-revert-find-node (filename nodename) |
06dd01f3b917
(Info-revert-find-node): New function.
Richard M. Stallman <rms@gnu.org>
parents:
48887
diff
changeset
|
572 "Go to an info node FILENAME and NODENAME, re-reading disk contents. |
06dd01f3b917
(Info-revert-find-node): New function.
Richard M. Stallman <rms@gnu.org>
parents:
48887
diff
changeset
|
573 When *info* is already displaying FILENAME and NODENAME, the window position |
06dd01f3b917
(Info-revert-find-node): New function.
Richard M. Stallman <rms@gnu.org>
parents:
48887
diff
changeset
|
574 is preserved, if possible." |
06dd01f3b917
(Info-revert-find-node): New function.
Richard M. Stallman <rms@gnu.org>
parents:
48887
diff
changeset
|
575 (pop-to-buffer "*info*") |
06dd01f3b917
(Info-revert-find-node): New function.
Richard M. Stallman <rms@gnu.org>
parents:
48887
diff
changeset
|
576 (let ((old-filename Info-current-file) |
06dd01f3b917
(Info-revert-find-node): New function.
Richard M. Stallman <rms@gnu.org>
parents:
48887
diff
changeset
|
577 (old-nodename Info-current-node) |
06dd01f3b917
(Info-revert-find-node): New function.
Richard M. Stallman <rms@gnu.org>
parents:
48887
diff
changeset
|
578 (pcolumn (current-column)) |
06dd01f3b917
(Info-revert-find-node): New function.
Richard M. Stallman <rms@gnu.org>
parents:
48887
diff
changeset
|
579 (pline (count-lines (point-min) (line-beginning-position))) |
06dd01f3b917
(Info-revert-find-node): New function.
Richard M. Stallman <rms@gnu.org>
parents:
48887
diff
changeset
|
580 (wline (count-lines (point-min) (window-start))) |
06dd01f3b917
(Info-revert-find-node): New function.
Richard M. Stallman <rms@gnu.org>
parents:
48887
diff
changeset
|
581 (old-history Info-history) |
06dd01f3b917
(Info-revert-find-node): New function.
Richard M. Stallman <rms@gnu.org>
parents:
48887
diff
changeset
|
582 (new-history (and Info-current-file |
06dd01f3b917
(Info-revert-find-node): New function.
Richard M. Stallman <rms@gnu.org>
parents:
48887
diff
changeset
|
583 (list Info-current-file Info-current-node (point))))) |
06dd01f3b917
(Info-revert-find-node): New function.
Richard M. Stallman <rms@gnu.org>
parents:
48887
diff
changeset
|
584 (kill-buffer (current-buffer)) |
06dd01f3b917
(Info-revert-find-node): New function.
Richard M. Stallman <rms@gnu.org>
parents:
48887
diff
changeset
|
585 (Info-find-node filename nodename) |
06dd01f3b917
(Info-revert-find-node): New function.
Richard M. Stallman <rms@gnu.org>
parents:
48887
diff
changeset
|
586 (setq Info-history old-history) |
06dd01f3b917
(Info-revert-find-node): New function.
Richard M. Stallman <rms@gnu.org>
parents:
48887
diff
changeset
|
587 (if (and (equal old-filename Info-current-file) |
06dd01f3b917
(Info-revert-find-node): New function.
Richard M. Stallman <rms@gnu.org>
parents:
48887
diff
changeset
|
588 (equal old-nodename Info-current-node)) |
06dd01f3b917
(Info-revert-find-node): New function.
Richard M. Stallman <rms@gnu.org>
parents:
48887
diff
changeset
|
589 (progn |
06dd01f3b917
(Info-revert-find-node): New function.
Richard M. Stallman <rms@gnu.org>
parents:
48887
diff
changeset
|
590 ;; note goto-line is no good, we want to measure from point-min |
06dd01f3b917
(Info-revert-find-node): New function.
Richard M. Stallman <rms@gnu.org>
parents:
48887
diff
changeset
|
591 (beginning-of-buffer) |
06dd01f3b917
(Info-revert-find-node): New function.
Richard M. Stallman <rms@gnu.org>
parents:
48887
diff
changeset
|
592 (forward-line wline) |
06dd01f3b917
(Info-revert-find-node): New function.
Richard M. Stallman <rms@gnu.org>
parents:
48887
diff
changeset
|
593 (set-window-start (selected-window) (point)) |
06dd01f3b917
(Info-revert-find-node): New function.
Richard M. Stallman <rms@gnu.org>
parents:
48887
diff
changeset
|
594 (beginning-of-buffer) |
06dd01f3b917
(Info-revert-find-node): New function.
Richard M. Stallman <rms@gnu.org>
parents:
48887
diff
changeset
|
595 (forward-line pline) |
06dd01f3b917
(Info-revert-find-node): New function.
Richard M. Stallman <rms@gnu.org>
parents:
48887
diff
changeset
|
596 (move-to-column pcolumn)) |
06dd01f3b917
(Info-revert-find-node): New function.
Richard M. Stallman <rms@gnu.org>
parents:
48887
diff
changeset
|
597 ;; only add to the history when coming from a different file+node |
06dd01f3b917
(Info-revert-find-node): New function.
Richard M. Stallman <rms@gnu.org>
parents:
48887
diff
changeset
|
598 (if new-history |
06dd01f3b917
(Info-revert-find-node): New function.
Richard M. Stallman <rms@gnu.org>
parents:
48887
diff
changeset
|
599 (setq Info-history (cons new-history Info-history)))))) |
06dd01f3b917
(Info-revert-find-node): New function.
Richard M. Stallman <rms@gnu.org>
parents:
48887
diff
changeset
|
600 |
29684
4380fdbfe977
(Info-find-in-tag-table-1, Info-find-in-tag-table)
Gerd Moellmann <gerd@gnu.org>
parents:
29675
diff
changeset
|
601 (defun Info-find-in-tag-table-1 (marker regexp case-fold) |
4380fdbfe977
(Info-find-in-tag-table-1, Info-find-in-tag-table)
Gerd Moellmann <gerd@gnu.org>
parents:
29675
diff
changeset
|
602 "Find a node in a tag table. |
4380fdbfe977
(Info-find-in-tag-table-1, Info-find-in-tag-table)
Gerd Moellmann <gerd@gnu.org>
parents:
29675
diff
changeset
|
603 MARKER specifies the buffer and position to start searching at. |
4380fdbfe977
(Info-find-in-tag-table-1, Info-find-in-tag-table)
Gerd Moellmann <gerd@gnu.org>
parents:
29675
diff
changeset
|
604 REGEXP is a regular expression matching nodes or references. Its first |
4380fdbfe977
(Info-find-in-tag-table-1, Info-find-in-tag-table)
Gerd Moellmann <gerd@gnu.org>
parents:
29675
diff
changeset
|
605 group should match `Node:' or `Ref:'. |
4380fdbfe977
(Info-find-in-tag-table-1, Info-find-in-tag-table)
Gerd Moellmann <gerd@gnu.org>
parents:
29675
diff
changeset
|
606 CASE-FOLD t means search for a case-insensitive match. |
4380fdbfe977
(Info-find-in-tag-table-1, Info-find-in-tag-table)
Gerd Moellmann <gerd@gnu.org>
parents:
29675
diff
changeset
|
607 If a match was found, value is a list (FOUND-ANCHOR POS MODE), where |
4380fdbfe977
(Info-find-in-tag-table-1, Info-find-in-tag-table)
Gerd Moellmann <gerd@gnu.org>
parents:
29675
diff
changeset
|
608 FOUND-ANCHOR is non-nil if a `Ref:' was matched, POS is the position |
4380fdbfe977
(Info-find-in-tag-table-1, Info-find-in-tag-table)
Gerd Moellmann <gerd@gnu.org>
parents:
29675
diff
changeset
|
609 where the match was found, and MODE is `major-mode' of the buffer in |
4380fdbfe977
(Info-find-in-tag-table-1, Info-find-in-tag-table)
Gerd Moellmann <gerd@gnu.org>
parents:
29675
diff
changeset
|
610 which the match was found." |
51434
4c85e6a5a9d2
(Info-mode-hook): Obey obsolete `Info-fontify'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51310
diff
changeset
|
611 (let ((case-fold-search case-fold)) |
29684
4380fdbfe977
(Info-find-in-tag-table-1, Info-find-in-tag-table)
Gerd Moellmann <gerd@gnu.org>
parents:
29675
diff
changeset
|
612 (save-excursion |
4380fdbfe977
(Info-find-in-tag-table-1, Info-find-in-tag-table)
Gerd Moellmann <gerd@gnu.org>
parents:
29675
diff
changeset
|
613 (set-buffer (marker-buffer marker)) |
4380fdbfe977
(Info-find-in-tag-table-1, Info-find-in-tag-table)
Gerd Moellmann <gerd@gnu.org>
parents:
29675
diff
changeset
|
614 (goto-char marker) |
49424
59c37b87bb18
(Info-try-follow-nearest-node): Add case: Handle menu item
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
49390
diff
changeset
|
615 |
29684
4380fdbfe977
(Info-find-in-tag-table-1, Info-find-in-tag-table)
Gerd Moellmann <gerd@gnu.org>
parents:
29675
diff
changeset
|
616 ;; Search tag table |
4380fdbfe977
(Info-find-in-tag-table-1, Info-find-in-tag-table)
Gerd Moellmann <gerd@gnu.org>
parents:
29675
diff
changeset
|
617 (beginning-of-line) |
4380fdbfe977
(Info-find-in-tag-table-1, Info-find-in-tag-table)
Gerd Moellmann <gerd@gnu.org>
parents:
29675
diff
changeset
|
618 (when (re-search-forward regexp nil t) |
4380fdbfe977
(Info-find-in-tag-table-1, Info-find-in-tag-table)
Gerd Moellmann <gerd@gnu.org>
parents:
29675
diff
changeset
|
619 (list (string-equal "Ref:" (match-string 1)) |
45014
a590e8ab89d0
(Info-find-in-tag-table-1, Info-read-subfile): Use point-min.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44902
diff
changeset
|
620 (+ (point-min) (read (current-buffer))) |
29684
4380fdbfe977
(Info-find-in-tag-table-1, Info-find-in-tag-table)
Gerd Moellmann <gerd@gnu.org>
parents:
29675
diff
changeset
|
621 major-mode))))) |
4380fdbfe977
(Info-find-in-tag-table-1, Info-find-in-tag-table)
Gerd Moellmann <gerd@gnu.org>
parents:
29675
diff
changeset
|
622 |
4380fdbfe977
(Info-find-in-tag-table-1, Info-find-in-tag-table)
Gerd Moellmann <gerd@gnu.org>
parents:
29675
diff
changeset
|
623 (defun Info-find-in-tag-table (marker regexp) |
4380fdbfe977
(Info-find-in-tag-table-1, Info-find-in-tag-table)
Gerd Moellmann <gerd@gnu.org>
parents:
29675
diff
changeset
|
624 "Find a node in a tag table. |
4380fdbfe977
(Info-find-in-tag-table-1, Info-find-in-tag-table)
Gerd Moellmann <gerd@gnu.org>
parents:
29675
diff
changeset
|
625 MARKER specifies the buffer and position to start searching at. |
4380fdbfe977
(Info-find-in-tag-table-1, Info-find-in-tag-table)
Gerd Moellmann <gerd@gnu.org>
parents:
29675
diff
changeset
|
626 REGEXP is a regular expression matching nodes or references. Its first |
4380fdbfe977
(Info-find-in-tag-table-1, Info-find-in-tag-table)
Gerd Moellmann <gerd@gnu.org>
parents:
29675
diff
changeset
|
627 group should match `Node:' or `Ref:'. |
4380fdbfe977
(Info-find-in-tag-table-1, Info-find-in-tag-table)
Gerd Moellmann <gerd@gnu.org>
parents:
29675
diff
changeset
|
628 If a match was found, value is a list (FOUND-ANCHOR POS MODE), where |
4380fdbfe977
(Info-find-in-tag-table-1, Info-find-in-tag-table)
Gerd Moellmann <gerd@gnu.org>
parents:
29675
diff
changeset
|
629 FOUND-ANCHOR is non-nil if a `Ref:' was matched, POS is the position |
4380fdbfe977
(Info-find-in-tag-table-1, Info-find-in-tag-table)
Gerd Moellmann <gerd@gnu.org>
parents:
29675
diff
changeset
|
630 where the match was found, and MODE is `major-mode' of the buffer in |
4380fdbfe977
(Info-find-in-tag-table-1, Info-find-in-tag-table)
Gerd Moellmann <gerd@gnu.org>
parents:
29675
diff
changeset
|
631 which the match was found. |
4380fdbfe977
(Info-find-in-tag-table-1, Info-find-in-tag-table)
Gerd Moellmann <gerd@gnu.org>
parents:
29675
diff
changeset
|
632 This function tries to find a case-sensitive match first, then a |
4380fdbfe977
(Info-find-in-tag-table-1, Info-find-in-tag-table)
Gerd Moellmann <gerd@gnu.org>
parents:
29675
diff
changeset
|
633 case-insensitive match is tried." |
4380fdbfe977
(Info-find-in-tag-table-1, Info-find-in-tag-table)
Gerd Moellmann <gerd@gnu.org>
parents:
29675
diff
changeset
|
634 (let ((result (Info-find-in-tag-table-1 marker regexp nil))) |
4380fdbfe977
(Info-find-in-tag-table-1, Info-find-in-tag-table)
Gerd Moellmann <gerd@gnu.org>
parents:
29675
diff
changeset
|
635 (when (null (car result)) |
4380fdbfe977
(Info-find-in-tag-table-1, Info-find-in-tag-table)
Gerd Moellmann <gerd@gnu.org>
parents:
29675
diff
changeset
|
636 (setq result (Info-find-in-tag-table-1 marker regexp t))) |
4380fdbfe977
(Info-find-in-tag-table-1, Info-find-in-tag-table)
Gerd Moellmann <gerd@gnu.org>
parents:
29675
diff
changeset
|
637 result)) |
4380fdbfe977
(Info-find-in-tag-table-1, Info-find-in-tag-table)
Gerd Moellmann <gerd@gnu.org>
parents:
29675
diff
changeset
|
638 |
4380fdbfe977
(Info-find-in-tag-table-1, Info-find-in-tag-table)
Gerd Moellmann <gerd@gnu.org>
parents:
29675
diff
changeset
|
639 (defun Info-find-node-in-buffer-1 (regexp case-fold) |
4380fdbfe977
(Info-find-in-tag-table-1, Info-find-in-tag-table)
Gerd Moellmann <gerd@gnu.org>
parents:
29675
diff
changeset
|
640 "Find a node or anchor in the current buffer. |
4380fdbfe977
(Info-find-in-tag-table-1, Info-find-in-tag-table)
Gerd Moellmann <gerd@gnu.org>
parents:
29675
diff
changeset
|
641 REGEXP is a regular expression matching nodes or references. Its first |
4380fdbfe977
(Info-find-in-tag-table-1, Info-find-in-tag-table)
Gerd Moellmann <gerd@gnu.org>
parents:
29675
diff
changeset
|
642 group should match `Node:' or `Ref:'. |
4380fdbfe977
(Info-find-in-tag-table-1, Info-find-in-tag-table)
Gerd Moellmann <gerd@gnu.org>
parents:
29675
diff
changeset
|
643 CASE-FOLD t means search for a case-insensitive match. |
4380fdbfe977
(Info-find-in-tag-table-1, Info-find-in-tag-table)
Gerd Moellmann <gerd@gnu.org>
parents:
29675
diff
changeset
|
644 Value is the position at which a match was found, or nil if not found." |
4380fdbfe977
(Info-find-in-tag-table-1, Info-find-in-tag-table)
Gerd Moellmann <gerd@gnu.org>
parents:
29675
diff
changeset
|
645 (let ((case-fold-search case-fold) |
4380fdbfe977
(Info-find-in-tag-table-1, Info-find-in-tag-table)
Gerd Moellmann <gerd@gnu.org>
parents:
29675
diff
changeset
|
646 found) |
4380fdbfe977
(Info-find-in-tag-table-1, Info-find-in-tag-table)
Gerd Moellmann <gerd@gnu.org>
parents:
29675
diff
changeset
|
647 (save-excursion |
4380fdbfe977
(Info-find-in-tag-table-1, Info-find-in-tag-table)
Gerd Moellmann <gerd@gnu.org>
parents:
29675
diff
changeset
|
648 (when (Info-node-at-bob-matching regexp) |
4380fdbfe977
(Info-find-in-tag-table-1, Info-find-in-tag-table)
Gerd Moellmann <gerd@gnu.org>
parents:
29675
diff
changeset
|
649 (setq found (point))) |
4380fdbfe977
(Info-find-in-tag-table-1, Info-find-in-tag-table)
Gerd Moellmann <gerd@gnu.org>
parents:
29675
diff
changeset
|
650 (while (and (not found) |
4380fdbfe977
(Info-find-in-tag-table-1, Info-find-in-tag-table)
Gerd Moellmann <gerd@gnu.org>
parents:
29675
diff
changeset
|
651 (search-forward "\n\^_" nil t)) |
4380fdbfe977
(Info-find-in-tag-table-1, Info-find-in-tag-table)
Gerd Moellmann <gerd@gnu.org>
parents:
29675
diff
changeset
|
652 (forward-line 1) |
4380fdbfe977
(Info-find-in-tag-table-1, Info-find-in-tag-table)
Gerd Moellmann <gerd@gnu.org>
parents:
29675
diff
changeset
|
653 (let ((beg (point))) |
4380fdbfe977
(Info-find-in-tag-table-1, Info-find-in-tag-table)
Gerd Moellmann <gerd@gnu.org>
parents:
29675
diff
changeset
|
654 (forward-line 1) |
4380fdbfe977
(Info-find-in-tag-table-1, Info-find-in-tag-table)
Gerd Moellmann <gerd@gnu.org>
parents:
29675
diff
changeset
|
655 (when (re-search-backward regexp beg t) |
4380fdbfe977
(Info-find-in-tag-table-1, Info-find-in-tag-table)
Gerd Moellmann <gerd@gnu.org>
parents:
29675
diff
changeset
|
656 (beginning-of-line) |
4380fdbfe977
(Info-find-in-tag-table-1, Info-find-in-tag-table)
Gerd Moellmann <gerd@gnu.org>
parents:
29675
diff
changeset
|
657 (setq found (point))))) |
4380fdbfe977
(Info-find-in-tag-table-1, Info-find-in-tag-table)
Gerd Moellmann <gerd@gnu.org>
parents:
29675
diff
changeset
|
658 found))) |
49424
59c37b87bb18
(Info-try-follow-nearest-node): Add case: Handle menu item
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
49390
diff
changeset
|
659 |
29684
4380fdbfe977
(Info-find-in-tag-table-1, Info-find-in-tag-table)
Gerd Moellmann <gerd@gnu.org>
parents:
29675
diff
changeset
|
660 (defun Info-find-node-in-buffer (regexp) |
4380fdbfe977
(Info-find-in-tag-table-1, Info-find-in-tag-table)
Gerd Moellmann <gerd@gnu.org>
parents:
29675
diff
changeset
|
661 "Find a node or anchor in the current buffer. |
4380fdbfe977
(Info-find-in-tag-table-1, Info-find-in-tag-table)
Gerd Moellmann <gerd@gnu.org>
parents:
29675
diff
changeset
|
662 REGEXP is a regular expression matching nodes or references. Its first |
4380fdbfe977
(Info-find-in-tag-table-1, Info-find-in-tag-table)
Gerd Moellmann <gerd@gnu.org>
parents:
29675
diff
changeset
|
663 group should match `Node:' or `Ref:'. |
4380fdbfe977
(Info-find-in-tag-table-1, Info-find-in-tag-table)
Gerd Moellmann <gerd@gnu.org>
parents:
29675
diff
changeset
|
664 Value is the position at which a match was found, or nil if not found. |
4380fdbfe977
(Info-find-in-tag-table-1, Info-find-in-tag-table)
Gerd Moellmann <gerd@gnu.org>
parents:
29675
diff
changeset
|
665 This function looks for a case-sensitive match first. If none is found, |
4380fdbfe977
(Info-find-in-tag-table-1, Info-find-in-tag-table)
Gerd Moellmann <gerd@gnu.org>
parents:
29675
diff
changeset
|
666 a case-insensitive match is tried." |
4380fdbfe977
(Info-find-in-tag-table-1, Info-find-in-tag-table)
Gerd Moellmann <gerd@gnu.org>
parents:
29675
diff
changeset
|
667 (or (Info-find-node-in-buffer-1 regexp nil) |
4380fdbfe977
(Info-find-in-tag-table-1, Info-find-in-tag-table)
Gerd Moellmann <gerd@gnu.org>
parents:
29675
diff
changeset
|
668 (Info-find-node-in-buffer-1 regexp t))) |
49424
59c37b87bb18
(Info-try-follow-nearest-node): Add case: Handle menu item
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
49390
diff
changeset
|
669 |
26004
11f91800bec3
(Info-on-current-buffer): new entry point.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
25878
diff
changeset
|
670 (defun Info-find-node-2 (filename nodename &optional no-going-back) |
21704
e2283c4df334
(Info-fontify-node): For menu items, use info-xref font.
Richard M. Stallman <rms@gnu.org>
parents:
21641
diff
changeset
|
671 (buffer-disable-undo (current-buffer)) |
e2283c4df334
(Info-fontify-node): For menu items, use info-xref font.
Richard M. Stallman <rms@gnu.org>
parents:
21641
diff
changeset
|
672 (or (eq major-mode 'Info-mode) |
e2283c4df334
(Info-fontify-node): For menu items, use info-xref font.
Richard M. Stallman <rms@gnu.org>
parents:
21641
diff
changeset
|
673 (Info-mode)) |
325 | 674 (widen) |
675 (setq Info-current-node nil) | |
676 (unwind-protect | |
24632
a6ad37f4f6cb
(Info-find-node): Position properly after finding anchor.
Karl Heuer <kwzh@gnu.org>
parents:
24580
diff
changeset
|
677 (let ((case-fold-search t) |
a6ad37f4f6cb
(Info-find-node): Position properly after finding anchor.
Karl Heuer <kwzh@gnu.org>
parents:
24580
diff
changeset
|
678 anchorpos) |
22692
578a6d997580
(Info-find-node): Handle cross references to an @anchor.
Richard M. Stallman <rms@gnu.org>
parents:
22643
diff
changeset
|
679 ;; Switch files if necessary |
578a6d997580
(Info-find-node): Handle cross references to an @anchor.
Richard M. Stallman <rms@gnu.org>
parents:
22643
diff
changeset
|
680 (or (null filename) |
578a6d997580
(Info-find-node): Handle cross references to an @anchor.
Richard M. Stallman <rms@gnu.org>
parents:
22643
diff
changeset
|
681 (equal Info-current-file filename) |
578a6d997580
(Info-find-node): Handle cross references to an @anchor.
Richard M. Stallman <rms@gnu.org>
parents:
22643
diff
changeset
|
682 (let ((buffer-read-only nil)) |
578a6d997580
(Info-find-node): Handle cross references to an @anchor.
Richard M. Stallman <rms@gnu.org>
parents:
22643
diff
changeset
|
683 (setq Info-current-file nil |
578a6d997580
(Info-find-node): Handle cross references to an @anchor.
Richard M. Stallman <rms@gnu.org>
parents:
22643
diff
changeset
|
684 Info-current-subfile nil |
578a6d997580
(Info-find-node): Handle cross references to an @anchor.
Richard M. Stallman <rms@gnu.org>
parents:
22643
diff
changeset
|
685 Info-current-file-completions nil |
578a6d997580
(Info-find-node): Handle cross references to an @anchor.
Richard M. Stallman <rms@gnu.org>
parents:
22643
diff
changeset
|
686 buffer-file-name nil) |
578a6d997580
(Info-find-node): Handle cross references to an @anchor.
Richard M. Stallman <rms@gnu.org>
parents:
22643
diff
changeset
|
687 (erase-buffer) |
578a6d997580
(Info-find-node): Handle cross references to an @anchor.
Richard M. Stallman <rms@gnu.org>
parents:
22643
diff
changeset
|
688 (if (eq filename t) |
578a6d997580
(Info-find-node): Handle cross references to an @anchor.
Richard M. Stallman <rms@gnu.org>
parents:
22643
diff
changeset
|
689 (Info-insert-dir) |
41713
d53ece895385
(Info-find-node-2): Don't call info-insert-file-contents
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41691
diff
changeset
|
690 (info-insert-file-contents filename nil) |
22692
578a6d997580
(Info-find-node): Handle cross references to an @anchor.
Richard M. Stallman <rms@gnu.org>
parents:
22643
diff
changeset
|
691 (setq default-directory (file-name-directory filename))) |
578a6d997580
(Info-find-node): Handle cross references to an @anchor.
Richard M. Stallman <rms@gnu.org>
parents:
22643
diff
changeset
|
692 (set-buffer-modified-p nil) |
578a6d997580
(Info-find-node): Handle cross references to an @anchor.
Richard M. Stallman <rms@gnu.org>
parents:
22643
diff
changeset
|
693 ;; See whether file has a tag table. Record the location if yes. |
578a6d997580
(Info-find-node): Handle cross references to an @anchor.
Richard M. Stallman <rms@gnu.org>
parents:
22643
diff
changeset
|
694 (goto-char (point-max)) |
578a6d997580
(Info-find-node): Handle cross references to an @anchor.
Richard M. Stallman <rms@gnu.org>
parents:
22643
diff
changeset
|
695 (forward-line -8) |
578a6d997580
(Info-find-node): Handle cross references to an @anchor.
Richard M. Stallman <rms@gnu.org>
parents:
22643
diff
changeset
|
696 ;; Use string-equal, not equal, to ignore text props. |
578a6d997580
(Info-find-node): Handle cross references to an @anchor.
Richard M. Stallman <rms@gnu.org>
parents:
22643
diff
changeset
|
697 (if (not (or (string-equal nodename "*") |
578a6d997580
(Info-find-node): Handle cross references to an @anchor.
Richard M. Stallman <rms@gnu.org>
parents:
22643
diff
changeset
|
698 (not |
578a6d997580
(Info-find-node): Handle cross references to an @anchor.
Richard M. Stallman <rms@gnu.org>
parents:
22643
diff
changeset
|
699 (search-forward "\^_\nEnd tag table\n" nil t)))) |
578a6d997580
(Info-find-node): Handle cross references to an @anchor.
Richard M. Stallman <rms@gnu.org>
parents:
22643
diff
changeset
|
700 (let (pos) |
578a6d997580
(Info-find-node): Handle cross references to an @anchor.
Richard M. Stallman <rms@gnu.org>
parents:
22643
diff
changeset
|
701 ;; We have a tag table. Find its beginning. |
578a6d997580
(Info-find-node): Handle cross references to an @anchor.
Richard M. Stallman <rms@gnu.org>
parents:
22643
diff
changeset
|
702 ;; Is this an indirect file? |
578a6d997580
(Info-find-node): Handle cross references to an @anchor.
Richard M. Stallman <rms@gnu.org>
parents:
22643
diff
changeset
|
703 (search-backward "\nTag table:\n") |
578a6d997580
(Info-find-node): Handle cross references to an @anchor.
Richard M. Stallman <rms@gnu.org>
parents:
22643
diff
changeset
|
704 (setq pos (point)) |
578a6d997580
(Info-find-node): Handle cross references to an @anchor.
Richard M. Stallman <rms@gnu.org>
parents:
22643
diff
changeset
|
705 (if (save-excursion |
578a6d997580
(Info-find-node): Handle cross references to an @anchor.
Richard M. Stallman <rms@gnu.org>
parents:
22643
diff
changeset
|
706 (forward-line 2) |
578a6d997580
(Info-find-node): Handle cross references to an @anchor.
Richard M. Stallman <rms@gnu.org>
parents:
22643
diff
changeset
|
707 (looking-at "(Indirect)\n")) |
578a6d997580
(Info-find-node): Handle cross references to an @anchor.
Richard M. Stallman <rms@gnu.org>
parents:
22643
diff
changeset
|
708 ;; It is indirect. Copy it to another buffer |
578a6d997580
(Info-find-node): Handle cross references to an @anchor.
Richard M. Stallman <rms@gnu.org>
parents:
22643
diff
changeset
|
709 ;; and record that the tag table is in that buffer. |
578a6d997580
(Info-find-node): Handle cross references to an @anchor.
Richard M. Stallman <rms@gnu.org>
parents:
22643
diff
changeset
|
710 (let ((buf (current-buffer)) |
578a6d997580
(Info-find-node): Handle cross references to an @anchor.
Richard M. Stallman <rms@gnu.org>
parents:
22643
diff
changeset
|
711 (tagbuf |
578a6d997580
(Info-find-node): Handle cross references to an @anchor.
Richard M. Stallman <rms@gnu.org>
parents:
22643
diff
changeset
|
712 (or Info-tag-table-buffer |
578a6d997580
(Info-find-node): Handle cross references to an @anchor.
Richard M. Stallman <rms@gnu.org>
parents:
22643
diff
changeset
|
713 (generate-new-buffer " *info tag table*")))) |
578a6d997580
(Info-find-node): Handle cross references to an @anchor.
Richard M. Stallman <rms@gnu.org>
parents:
22643
diff
changeset
|
714 (setq Info-tag-table-buffer tagbuf) |
578a6d997580
(Info-find-node): Handle cross references to an @anchor.
Richard M. Stallman <rms@gnu.org>
parents:
22643
diff
changeset
|
715 (save-excursion |
578a6d997580
(Info-find-node): Handle cross references to an @anchor.
Richard M. Stallman <rms@gnu.org>
parents:
22643
diff
changeset
|
716 (set-buffer tagbuf) |
1484
6c2a714566d3
Rename buffer-flush-undo to buffer-disable-undo.
Richard M. Stallman <rms@gnu.org>
parents:
1477
diff
changeset
|
717 (buffer-disable-undo (current-buffer)) |
22692
578a6d997580
(Info-find-node): Handle cross references to an @anchor.
Richard M. Stallman <rms@gnu.org>
parents:
22643
diff
changeset
|
718 (setq case-fold-search t) |
578a6d997580
(Info-find-node): Handle cross references to an @anchor.
Richard M. Stallman <rms@gnu.org>
parents:
22643
diff
changeset
|
719 (erase-buffer) |
578a6d997580
(Info-find-node): Handle cross references to an @anchor.
Richard M. Stallman <rms@gnu.org>
parents:
22643
diff
changeset
|
720 (insert-buffer-substring buf)) |
578a6d997580
(Info-find-node): Handle cross references to an @anchor.
Richard M. Stallman <rms@gnu.org>
parents:
22643
diff
changeset
|
721 (set-marker Info-tag-table-marker |
578a6d997580
(Info-find-node): Handle cross references to an @anchor.
Richard M. Stallman <rms@gnu.org>
parents:
22643
diff
changeset
|
722 (match-end 0) tagbuf)) |
578a6d997580
(Info-find-node): Handle cross references to an @anchor.
Richard M. Stallman <rms@gnu.org>
parents:
22643
diff
changeset
|
723 (set-marker Info-tag-table-marker pos))) |
578a6d997580
(Info-find-node): Handle cross references to an @anchor.
Richard M. Stallman <rms@gnu.org>
parents:
22643
diff
changeset
|
724 (set-marker Info-tag-table-marker nil)) |
578a6d997580
(Info-find-node): Handle cross references to an @anchor.
Richard M. Stallman <rms@gnu.org>
parents:
22643
diff
changeset
|
725 (setq Info-current-file |
578a6d997580
(Info-find-node): Handle cross references to an @anchor.
Richard M. Stallman <rms@gnu.org>
parents:
22643
diff
changeset
|
726 (if (eq filename t) "dir" filename)))) |
578a6d997580
(Info-find-node): Handle cross references to an @anchor.
Richard M. Stallman <rms@gnu.org>
parents:
22643
diff
changeset
|
727 ;; Use string-equal, not equal, to ignore text props. |
578a6d997580
(Info-find-node): Handle cross references to an @anchor.
Richard M. Stallman <rms@gnu.org>
parents:
22643
diff
changeset
|
728 (if (string-equal nodename "*") |
578a6d997580
(Info-find-node): Handle cross references to an @anchor.
Richard M. Stallman <rms@gnu.org>
parents:
22643
diff
changeset
|
729 (progn (setq Info-current-node nodename) |
578a6d997580
(Info-find-node): Handle cross references to an @anchor.
Richard M. Stallman <rms@gnu.org>
parents:
22643
diff
changeset
|
730 (Info-set-mode-line)) |
578a6d997580
(Info-find-node): Handle cross references to an @anchor.
Richard M. Stallman <rms@gnu.org>
parents:
22643
diff
changeset
|
731 ;; Possibilities: |
578a6d997580
(Info-find-node): Handle cross references to an @anchor.
Richard M. Stallman <rms@gnu.org>
parents:
22643
diff
changeset
|
732 ;; |
578a6d997580
(Info-find-node): Handle cross references to an @anchor.
Richard M. Stallman <rms@gnu.org>
parents:
22643
diff
changeset
|
733 ;; 1. Anchor found in tag table |
578a6d997580
(Info-find-node): Handle cross references to an @anchor.
Richard M. Stallman <rms@gnu.org>
parents:
22643
diff
changeset
|
734 ;; 2. Anchor *not* in tag table |
578a6d997580
(Info-find-node): Handle cross references to an @anchor.
Richard M. Stallman <rms@gnu.org>
parents:
22643
diff
changeset
|
735 ;; |
578a6d997580
(Info-find-node): Handle cross references to an @anchor.
Richard M. Stallman <rms@gnu.org>
parents:
22643
diff
changeset
|
736 ;; 3. Node found in tag table |
578a6d997580
(Info-find-node): Handle cross references to an @anchor.
Richard M. Stallman <rms@gnu.org>
parents:
22643
diff
changeset
|
737 ;; 4. Node *not* found in tag table, but found in file |
578a6d997580
(Info-find-node): Handle cross references to an @anchor.
Richard M. Stallman <rms@gnu.org>
parents:
22643
diff
changeset
|
738 ;; 5. Node *not* in tag table, and *not* in file |
578a6d997580
(Info-find-node): Handle cross references to an @anchor.
Richard M. Stallman <rms@gnu.org>
parents:
22643
diff
changeset
|
739 ;; |
578a6d997580
(Info-find-node): Handle cross references to an @anchor.
Richard M. Stallman <rms@gnu.org>
parents:
22643
diff
changeset
|
740 ;; *Or* the same, but in an indirect subfile. |
578a6d997580
(Info-find-node): Handle cross references to an @anchor.
Richard M. Stallman <rms@gnu.org>
parents:
22643
diff
changeset
|
741 |
578a6d997580
(Info-find-node): Handle cross references to an @anchor.
Richard M. Stallman <rms@gnu.org>
parents:
22643
diff
changeset
|
742 ;; Search file for a suitable node. |
24632
a6ad37f4f6cb
(Info-find-node): Position properly after finding anchor.
Karl Heuer <kwzh@gnu.org>
parents:
24580
diff
changeset
|
743 (let ((guesspos (point-min)) |
29684
4380fdbfe977
(Info-find-in-tag-table-1, Info-find-in-tag-table)
Gerd Moellmann <gerd@gnu.org>
parents:
29675
diff
changeset
|
744 (regexp (concat "\\(Node:\\|Ref:\\) *\\(" |
38262
03f0515fe575
(Info-clone-buffer-hook): Really unconditionally copy marker.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38225
diff
changeset
|
745 (if (stringp nodename) |
30686
23c301a64c8f
(Info-insert-dir): Use Info-additional-directory-list if
Gerd Moellmann <gerd@gnu.org>
parents:
30423
diff
changeset
|
746 (regexp-quote nodename) |
23c301a64c8f
(Info-insert-dir): Use Info-additional-directory-list if
Gerd Moellmann <gerd@gnu.org>
parents:
30423
diff
changeset
|
747 "") |
51434
4c85e6a5a9d2
(Info-mode-hook): Obey obsolete `Info-fontify'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51310
diff
changeset
|
748 "\\) *[,\t\n\177]"))) |
22692
578a6d997580
(Info-find-node): Handle cross references to an @anchor.
Richard M. Stallman <rms@gnu.org>
parents:
22643
diff
changeset
|
749 |
29164
71275ee34b42
(Info-find-node-2): Restructure [following "Vadim S. Solomin"
Dave Love <fx@gnu.org>
parents:
29085
diff
changeset
|
750 (catch 'foo |
49424
59c37b87bb18
(Info-try-follow-nearest-node): Add case: Handle menu item
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
49390
diff
changeset
|
751 |
29164
71275ee34b42
(Info-find-node-2): Restructure [following "Vadim S. Solomin"
Dave Love <fx@gnu.org>
parents:
29085
diff
changeset
|
752 ;; First, search a tag table, if any |
29684
4380fdbfe977
(Info-find-in-tag-table-1, Info-find-in-tag-table)
Gerd Moellmann <gerd@gnu.org>
parents:
29675
diff
changeset
|
753 (when (marker-position Info-tag-table-marker) |
4380fdbfe977
(Info-find-in-tag-table-1, Info-find-in-tag-table)
Gerd Moellmann <gerd@gnu.org>
parents:
29675
diff
changeset
|
754 (let* ((m Info-tag-table-marker) |
4380fdbfe977
(Info-find-in-tag-table-1, Info-find-in-tag-table)
Gerd Moellmann <gerd@gnu.org>
parents:
29675
diff
changeset
|
755 (found (Info-find-in-tag-table m regexp))) |
49424
59c37b87bb18
(Info-try-follow-nearest-node): Add case: Handle menu item
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
49390
diff
changeset
|
756 |
29684
4380fdbfe977
(Info-find-in-tag-table-1, Info-find-in-tag-table)
Gerd Moellmann <gerd@gnu.org>
parents:
29675
diff
changeset
|
757 (when found |
4380fdbfe977
(Info-find-in-tag-table-1, Info-find-in-tag-table)
Gerd Moellmann <gerd@gnu.org>
parents:
29675
diff
changeset
|
758 ;; FOUND is (ANCHOR POS MODE). |
4380fdbfe977
(Info-find-in-tag-table-1, Info-find-in-tag-table)
Gerd Moellmann <gerd@gnu.org>
parents:
29675
diff
changeset
|
759 (setq guesspos (nth 1 found)) |
49424
59c37b87bb18
(Info-try-follow-nearest-node): Add case: Handle menu item
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
49390
diff
changeset
|
760 |
29684
4380fdbfe977
(Info-find-in-tag-table-1, Info-find-in-tag-table)
Gerd Moellmann <gerd@gnu.org>
parents:
29675
diff
changeset
|
761 ;; If this is an indirect file, determine which |
4380fdbfe977
(Info-find-in-tag-table-1, Info-find-in-tag-table)
Gerd Moellmann <gerd@gnu.org>
parents:
29675
diff
changeset
|
762 ;; file really holds this node and read it in. |
4380fdbfe977
(Info-find-in-tag-table-1, Info-find-in-tag-table)
Gerd Moellmann <gerd@gnu.org>
parents:
29675
diff
changeset
|
763 (unless (eq (nth 2 found) 'Info-mode) |
4380fdbfe977
(Info-find-in-tag-table-1, Info-find-in-tag-table)
Gerd Moellmann <gerd@gnu.org>
parents:
29675
diff
changeset
|
764 ;; Note that the current buffer must be the |
4380fdbfe977
(Info-find-in-tag-table-1, Info-find-in-tag-table)
Gerd Moellmann <gerd@gnu.org>
parents:
29675
diff
changeset
|
765 ;; *info* buffer on entry to |
4380fdbfe977
(Info-find-in-tag-table-1, Info-find-in-tag-table)
Gerd Moellmann <gerd@gnu.org>
parents:
29675
diff
changeset
|
766 ;; Info-read-subfile. Thus the hackery above. |
4380fdbfe977
(Info-find-in-tag-table-1, Info-find-in-tag-table)
Gerd Moellmann <gerd@gnu.org>
parents:
29675
diff
changeset
|
767 (setq guesspos (Info-read-subfile guesspos))) |
29164
71275ee34b42
(Info-find-node-2): Restructure [following "Vadim S. Solomin"
Dave Love <fx@gnu.org>
parents:
29085
diff
changeset
|
768 |
71275ee34b42
(Info-find-node-2): Restructure [following "Vadim S. Solomin"
Dave Love <fx@gnu.org>
parents:
29085
diff
changeset
|
769 ;; Handle anchor |
29684
4380fdbfe977
(Info-find-in-tag-table-1, Info-find-in-tag-table)
Gerd Moellmann <gerd@gnu.org>
parents:
29675
diff
changeset
|
770 (when (nth 0 found) |
4380fdbfe977
(Info-find-in-tag-table-1, Info-find-in-tag-table)
Gerd Moellmann <gerd@gnu.org>
parents:
29675
diff
changeset
|
771 (goto-char (setq anchorpos guesspos)) |
4380fdbfe977
(Info-find-in-tag-table-1, Info-find-in-tag-table)
Gerd Moellmann <gerd@gnu.org>
parents:
29675
diff
changeset
|
772 (throw 'foo t))))) |
29164
71275ee34b42
(Info-find-node-2): Restructure [following "Vadim S. Solomin"
Dave Love <fx@gnu.org>
parents:
29085
diff
changeset
|
773 |
71275ee34b42
(Info-find-node-2): Restructure [following "Vadim S. Solomin"
Dave Love <fx@gnu.org>
parents:
29085
diff
changeset
|
774 ;; Else we may have a node, which we search for: |
71275ee34b42
(Info-find-node-2): Restructure [following "Vadim S. Solomin"
Dave Love <fx@gnu.org>
parents:
29085
diff
changeset
|
775 (goto-char (max (point-min) |
71275ee34b42
(Info-find-node-2): Restructure [following "Vadim S. Solomin"
Dave Love <fx@gnu.org>
parents:
29085
diff
changeset
|
776 (- (byte-to-position guesspos) 1000))) |
49424
59c37b87bb18
(Info-try-follow-nearest-node): Add case: Handle menu item
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
49390
diff
changeset
|
777 |
29684
4380fdbfe977
(Info-find-in-tag-table-1, Info-find-in-tag-table)
Gerd Moellmann <gerd@gnu.org>
parents:
29675
diff
changeset
|
778 ;; Now search from our advised position (or from beg of |
4380fdbfe977
(Info-find-in-tag-table-1, Info-find-in-tag-table)
Gerd Moellmann <gerd@gnu.org>
parents:
29675
diff
changeset
|
779 ;; buffer) to find the actual node. First, check |
4380fdbfe977
(Info-find-in-tag-table-1, Info-find-in-tag-table)
Gerd Moellmann <gerd@gnu.org>
parents:
29675
diff
changeset
|
780 ;; whether the node is right where we are, in case the |
4380fdbfe977
(Info-find-in-tag-table-1, Info-find-in-tag-table)
Gerd Moellmann <gerd@gnu.org>
parents:
29675
diff
changeset
|
781 ;; buffer begins with a node. |
4380fdbfe977
(Info-find-in-tag-table-1, Info-find-in-tag-table)
Gerd Moellmann <gerd@gnu.org>
parents:
29675
diff
changeset
|
782 (let ((pos (Info-find-node-in-buffer regexp))) |
4380fdbfe977
(Info-find-in-tag-table-1, Info-find-in-tag-table)
Gerd Moellmann <gerd@gnu.org>
parents:
29675
diff
changeset
|
783 (when pos |
4380fdbfe977
(Info-find-in-tag-table-1, Info-find-in-tag-table)
Gerd Moellmann <gerd@gnu.org>
parents:
29675
diff
changeset
|
784 (goto-char pos) |
4380fdbfe977
(Info-find-in-tag-table-1, Info-find-in-tag-table)
Gerd Moellmann <gerd@gnu.org>
parents:
29675
diff
changeset
|
785 (throw 'foo t)) |
4380fdbfe977
(Info-find-in-tag-table-1, Info-find-in-tag-table)
Gerd Moellmann <gerd@gnu.org>
parents:
29675
diff
changeset
|
786 (error "No such anchor in tag table or node in tag table or file: %s" |
4380fdbfe977
(Info-find-in-tag-table-1, Info-find-in-tag-table)
Gerd Moellmann <gerd@gnu.org>
parents:
29675
diff
changeset
|
787 nodename))) |
29164
71275ee34b42
(Info-find-node-2): Restructure [following "Vadim S. Solomin"
Dave Love <fx@gnu.org>
parents:
29085
diff
changeset
|
788 |
71275ee34b42
(Info-find-node-2): Restructure [following "Vadim S. Solomin"
Dave Love <fx@gnu.org>
parents:
29085
diff
changeset
|
789 (Info-select-node) |
71275ee34b42
(Info-find-node-2): Restructure [following "Vadim S. Solomin"
Dave Love <fx@gnu.org>
parents:
29085
diff
changeset
|
790 (goto-char (or anchorpos (point-min)))))) |
325 | 791 ;; If we did not finish finding the specified node, |
792 ;; go back to the previous one. | |
6716
9ce2d1a2c155
(Info-find-node): Don't try to backstep if no history.
Karl Heuer <kwzh@gnu.org>
parents:
6624
diff
changeset
|
793 (or Info-current-node no-going-back (null Info-history) |
22692
578a6d997580
(Info-find-node): Handle cross references to an @anchor.
Richard M. Stallman <rms@gnu.org>
parents:
22643
diff
changeset
|
794 (let ((hist (car Info-history))) |
578a6d997580
(Info-find-node): Handle cross references to an @anchor.
Richard M. Stallman <rms@gnu.org>
parents:
22643
diff
changeset
|
795 (setq Info-history (cdr Info-history)) |
578a6d997580
(Info-find-node): Handle cross references to an @anchor.
Richard M. Stallman <rms@gnu.org>
parents:
22643
diff
changeset
|
796 (Info-find-node (nth 0 hist) (nth 1 hist) t) |
578a6d997580
(Info-find-node): Handle cross references to an @anchor.
Richard M. Stallman <rms@gnu.org>
parents:
22643
diff
changeset
|
797 (goto-char (nth 2 hist)))))) |
325 | 798 |
1979
0582c70595f1
* info.el (Info-directory-list): Doc fix; it is set according to
Jim Blandy <jimb@redhat.com>
parents:
1971
diff
changeset
|
799 ;; Cache the contents of the (virtual) dir file, once we have merged |
0582c70595f1
* info.el (Info-directory-list): Doc fix; it is set according to
Jim Blandy <jimb@redhat.com>
parents:
1971
diff
changeset
|
800 ;; it for the first time, so we can save time subsequently. |
1971
b540866e8a79
(Info-insert-dir): Make menu items in Top node
Richard M. Stallman <rms@gnu.org>
parents:
1821
diff
changeset
|
801 (defvar Info-dir-contents nil) |
b540866e8a79
(Info-insert-dir): Make menu items in Top node
Richard M. Stallman <rms@gnu.org>
parents:
1821
diff
changeset
|
802 |
1979
0582c70595f1
* info.el (Info-directory-list): Doc fix; it is set according to
Jim Blandy <jimb@redhat.com>
parents:
1971
diff
changeset
|
803 ;; Cache for the directory we decided to use for the default-directory |
0582c70595f1
* info.el (Info-directory-list): Doc fix; it is set according to
Jim Blandy <jimb@redhat.com>
parents:
1971
diff
changeset
|
804 ;; of the merged dir text. |
0582c70595f1
* info.el (Info-directory-list): Doc fix; it is set according to
Jim Blandy <jimb@redhat.com>
parents:
1971
diff
changeset
|
805 (defvar Info-dir-contents-directory nil) |
0582c70595f1
* info.el (Info-directory-list): Doc fix; it is set according to
Jim Blandy <jimb@redhat.com>
parents:
1971
diff
changeset
|
806 |
3836
04f1cff889f4
(Info-insert-dir): Record file attributes of files used.
Richard M. Stallman <rms@gnu.org>
parents:
3565
diff
changeset
|
807 ;; Record the file attributes of all the files from which we |
04f1cff889f4
(Info-insert-dir): Record file attributes of files used.
Richard M. Stallman <rms@gnu.org>
parents:
3565
diff
changeset
|
808 ;; constructed Info-dir-contents. |
04f1cff889f4
(Info-insert-dir): Record file attributes of files used.
Richard M. Stallman <rms@gnu.org>
parents:
3565
diff
changeset
|
809 (defvar Info-dir-file-attributes nil) |
04f1cff889f4
(Info-insert-dir): Record file attributes of files used.
Richard M. Stallman <rms@gnu.org>
parents:
3565
diff
changeset
|
810 |
23416
83f51f5fb749
(Info-insert-dir): Detect and report problems
Richard M. Stallman <rms@gnu.org>
parents:
23175
diff
changeset
|
811 (defvar Info-dir-file-name nil) |
83f51f5fb749
(Info-insert-dir): Detect and report problems
Richard M. Stallman <rms@gnu.org>
parents:
23175
diff
changeset
|
812 |
1971
b540866e8a79
(Info-insert-dir): Make menu items in Top node
Richard M. Stallman <rms@gnu.org>
parents:
1821
diff
changeset
|
813 ;; Construct the Info directory node by merging the files named `dir' |
1979
0582c70595f1
* info.el (Info-directory-list): Doc fix; it is set according to
Jim Blandy <jimb@redhat.com>
parents:
1971
diff
changeset
|
814 ;; from various directories. Set the *info* buffer's |
0582c70595f1
* info.el (Info-directory-list): Doc fix; it is set according to
Jim Blandy <jimb@redhat.com>
parents:
1971
diff
changeset
|
815 ;; default-directory to the first directory we actually get any text |
0582c70595f1
* info.el (Info-directory-list): Doc fix; it is set according to
Jim Blandy <jimb@redhat.com>
parents:
1971
diff
changeset
|
816 ;; from. |
1971
b540866e8a79
(Info-insert-dir): Make menu items in Top node
Richard M. Stallman <rms@gnu.org>
parents:
1821
diff
changeset
|
817 (defun Info-insert-dir () |
3836
04f1cff889f4
(Info-insert-dir): Record file attributes of files used.
Richard M. Stallman <rms@gnu.org>
parents:
3565
diff
changeset
|
818 (if (and Info-dir-contents Info-dir-file-attributes |
04f1cff889f4
(Info-insert-dir): Record file attributes of files used.
Richard M. Stallman <rms@gnu.org>
parents:
3565
diff
changeset
|
819 ;; Verify that none of the files we used has changed |
04f1cff889f4
(Info-insert-dir): Record file attributes of files used.
Richard M. Stallman <rms@gnu.org>
parents:
3565
diff
changeset
|
820 ;; since we used it. |
04f1cff889f4
(Info-insert-dir): Record file attributes of files used.
Richard M. Stallman <rms@gnu.org>
parents:
3565
diff
changeset
|
821 (eval (cons 'and |
29583
f1b4be7fce6d
(Info-insert-dir): Don't quote lambda.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
29446
diff
changeset
|
822 (mapcar (lambda (elt) |
f1b4be7fce6d
(Info-insert-dir): Don't quote lambda.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
29446
diff
changeset
|
823 (let ((curr (file-attributes |
f1b4be7fce6d
(Info-insert-dir): Don't quote lambda.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
29446
diff
changeset
|
824 ;; Handle symlinks |
f1b4be7fce6d
(Info-insert-dir): Don't quote lambda.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
29446
diff
changeset
|
825 (file-truename (car elt))))) |
28943
36fd90774cf7
(debug-ignored-errors): more errors to ignore.
Sam Steingold <sds@gnu.org>
parents:
28559
diff
changeset
|
826 |
29583
f1b4be7fce6d
(Info-insert-dir): Don't quote lambda.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
29446
diff
changeset
|
827 ;; Don't compare the access time. |
f1b4be7fce6d
(Info-insert-dir): Don't quote lambda.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
29446
diff
changeset
|
828 (if curr (setcar (nthcdr 4 curr) 0)) |
f1b4be7fce6d
(Info-insert-dir): Don't quote lambda.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
29446
diff
changeset
|
829 (setcar (nthcdr 4 (cdr elt)) 0) |
f1b4be7fce6d
(Info-insert-dir): Don't quote lambda.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
29446
diff
changeset
|
830 (equal (cdr elt) curr))) |
3836
04f1cff889f4
(Info-insert-dir): Record file attributes of files used.
Richard M. Stallman <rms@gnu.org>
parents:
3565
diff
changeset
|
831 Info-dir-file-attributes)))) |
23416
83f51f5fb749
(Info-insert-dir): Detect and report problems
Richard M. Stallman <rms@gnu.org>
parents:
23175
diff
changeset
|
832 (progn |
83f51f5fb749
(Info-insert-dir): Detect and report problems
Richard M. Stallman <rms@gnu.org>
parents:
23175
diff
changeset
|
833 (insert Info-dir-contents) |
83f51f5fb749
(Info-insert-dir): Detect and report problems
Richard M. Stallman <rms@gnu.org>
parents:
23175
diff
changeset
|
834 (goto-char (point-min))) |
30686
23c301a64c8f
(Info-insert-dir): Use Info-additional-directory-list if
Gerd Moellmann <gerd@gnu.org>
parents:
30423
diff
changeset
|
835 (let ((dirs (if Info-additional-directory-list |
46139 | 836 (append Info-directory-list |
837 Info-additional-directory-list) | |
838 Info-directory-list)) | |
48690
036a8f0597c4
(Info-insert-dir): Make dir-node-cache variables buffer-local, so that
Miles Bader <miles@gnu.org>
parents:
48582
diff
changeset
|
839 (dir-file-attrs nil) |
22951
19b3899582b4
Bind case-fold-search to t in many functions.
Richard M. Stallman <rms@gnu.org>
parents:
22902
diff
changeset
|
840 ;; Bind this in case the user sets it to nil. |
19b3899582b4
Bind case-fold-search to t in many functions.
Richard M. Stallman <rms@gnu.org>
parents:
22902
diff
changeset
|
841 (case-fold-search t) |
23416
83f51f5fb749
(Info-insert-dir): Detect and report problems
Richard M. Stallman <rms@gnu.org>
parents:
23175
diff
changeset
|
842 ;; This is set non-nil if we find a problem in some input files. |
83f51f5fb749
(Info-insert-dir): Detect and report problems
Richard M. Stallman <rms@gnu.org>
parents:
23175
diff
changeset
|
843 problems |
3212
cd8f8468a190
(Info-insert-dir): Ignore duplicate directories.
Richard M. Stallman <rms@gnu.org>
parents:
3127
diff
changeset
|
844 buffers buffer others nodes dirs-done) |
1979
0582c70595f1
* info.el (Info-directory-list): Doc fix; it is set according to
Jim Blandy <jimb@redhat.com>
parents:
1971
diff
changeset
|
845 |
0582c70595f1
* info.el (Info-directory-list): Doc fix; it is set according to
Jim Blandy <jimb@redhat.com>
parents:
1971
diff
changeset
|
846 ;; Search the directory list for the directory file. |
1971
b540866e8a79
(Info-insert-dir): Make menu items in Top node
Richard M. Stallman <rms@gnu.org>
parents:
1821
diff
changeset
|
847 (while dirs |
5271
c415cc48a084
(Info-insert-dir): Compute truename just once for each dir.
Richard M. Stallman <rms@gnu.org>
parents:
5146
diff
changeset
|
848 (let ((truename (file-truename (expand-file-name (car dirs))))) |
c415cc48a084
(Info-insert-dir): Compute truename just once for each dir.
Richard M. Stallman <rms@gnu.org>
parents:
5146
diff
changeset
|
849 (or (member truename dirs-done) |
c415cc48a084
(Info-insert-dir): Compute truename just once for each dir.
Richard M. Stallman <rms@gnu.org>
parents:
5146
diff
changeset
|
850 (member (directory-file-name truename) dirs-done) |
c415cc48a084
(Info-insert-dir): Compute truename just once for each dir.
Richard M. Stallman <rms@gnu.org>
parents:
5146
diff
changeset
|
851 ;; Try several variants of specified name. |
c415cc48a084
(Info-insert-dir): Compute truename just once for each dir.
Richard M. Stallman <rms@gnu.org>
parents:
5146
diff
changeset
|
852 ;; Try upcasing, appending `.info', or both. |
7911
185c1f12db67
(Info-insert-dir): Ignore access times when comparing
Richard M. Stallman <rms@gnu.org>
parents:
7859
diff
changeset
|
853 (let* (file |
185c1f12db67
(Info-insert-dir): Ignore access times when comparing
Richard M. Stallman <rms@gnu.org>
parents:
7859
diff
changeset
|
854 (attrs |
185c1f12db67
(Info-insert-dir): Ignore access times when comparing
Richard M. Stallman <rms@gnu.org>
parents:
7859
diff
changeset
|
855 (or |
185c1f12db67
(Info-insert-dir): Ignore access times when comparing
Richard M. Stallman <rms@gnu.org>
parents:
7859
diff
changeset
|
856 (progn (setq file (expand-file-name "dir" truename)) |
185c1f12db67
(Info-insert-dir): Ignore access times when comparing
Richard M. Stallman <rms@gnu.org>
parents:
7859
diff
changeset
|
857 (file-attributes file)) |
185c1f12db67
(Info-insert-dir): Ignore access times when comparing
Richard M. Stallman <rms@gnu.org>
parents:
7859
diff
changeset
|
858 (progn (setq file (expand-file-name "DIR" truename)) |
185c1f12db67
(Info-insert-dir): Ignore access times when comparing
Richard M. Stallman <rms@gnu.org>
parents:
7859
diff
changeset
|
859 (file-attributes file)) |
185c1f12db67
(Info-insert-dir): Ignore access times when comparing
Richard M. Stallman <rms@gnu.org>
parents:
7859
diff
changeset
|
860 (progn (setq file (expand-file-name "dir.info" truename)) |
185c1f12db67
(Info-insert-dir): Ignore access times when comparing
Richard M. Stallman <rms@gnu.org>
parents:
7859
diff
changeset
|
861 (file-attributes file)) |
185c1f12db67
(Info-insert-dir): Ignore access times when comparing
Richard M. Stallman <rms@gnu.org>
parents:
7859
diff
changeset
|
862 (progn (setq file (expand-file-name "DIR.INFO" truename)) |
185c1f12db67
(Info-insert-dir): Ignore access times when comparing
Richard M. Stallman <rms@gnu.org>
parents:
7859
diff
changeset
|
863 (file-attributes file))))) |
5271
c415cc48a084
(Info-insert-dir): Compute truename just once for each dir.
Richard M. Stallman <rms@gnu.org>
parents:
5146
diff
changeset
|
864 (setq dirs-done |
c415cc48a084
(Info-insert-dir): Compute truename just once for each dir.
Richard M. Stallman <rms@gnu.org>
parents:
5146
diff
changeset
|
865 (cons truename |
c415cc48a084
(Info-insert-dir): Compute truename just once for each dir.
Richard M. Stallman <rms@gnu.org>
parents:
5146
diff
changeset
|
866 (cons (directory-file-name truename) |
c415cc48a084
(Info-insert-dir): Compute truename just once for each dir.
Richard M. Stallman <rms@gnu.org>
parents:
5146
diff
changeset
|
867 dirs-done))) |
7911
185c1f12db67
(Info-insert-dir): Ignore access times when comparing
Richard M. Stallman <rms@gnu.org>
parents:
7859
diff
changeset
|
868 (if attrs |
185c1f12db67
(Info-insert-dir): Ignore access times when comparing
Richard M. Stallman <rms@gnu.org>
parents:
7859
diff
changeset
|
869 (save-excursion |
185c1f12db67
(Info-insert-dir): Ignore access times when comparing
Richard M. Stallman <rms@gnu.org>
parents:
7859
diff
changeset
|
870 (or buffers |
185c1f12db67
(Info-insert-dir): Ignore access times when comparing
Richard M. Stallman <rms@gnu.org>
parents:
7859
diff
changeset
|
871 (message "Composing main Info directory...")) |
20421
6d1f6745878f
(Info-insert-dir): Use leading space in buffer name.
Karl Heuer <kwzh@gnu.org>
parents:
19937
diff
changeset
|
872 (set-buffer (generate-new-buffer " info dir")) |
22863
58584d6a8237
(Info-find-node): Position at the beginning of the node
Richard M. Stallman <rms@gnu.org>
parents:
22761
diff
changeset
|
873 (condition-case nil |
58584d6a8237
(Info-find-node): Position at the beginning of the node
Richard M. Stallman <rms@gnu.org>
parents:
22761
diff
changeset
|
874 (progn |
58584d6a8237
(Info-find-node): Position at the beginning of the node
Richard M. Stallman <rms@gnu.org>
parents:
22761
diff
changeset
|
875 (insert-file-contents file) |
48690
036a8f0597c4
(Info-insert-dir): Make dir-node-cache variables buffer-local, so that
Miles Bader <miles@gnu.org>
parents:
48582
diff
changeset
|
876 (set (make-local-variable 'Info-dir-file-name) |
036a8f0597c4
(Info-insert-dir): Make dir-node-cache variables buffer-local, so that
Miles Bader <miles@gnu.org>
parents:
48582
diff
changeset
|
877 file) |
48135
2c6154347319
(Info-streamline-headings): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48118
diff
changeset
|
878 (push (current-buffer) buffers) |
48690
036a8f0597c4
(Info-insert-dir): Make dir-node-cache variables buffer-local, so that
Miles Bader <miles@gnu.org>
parents:
48582
diff
changeset
|
879 (push (cons file attrs) dir-file-attrs)) |
22863
58584d6a8237
(Info-find-node): Position at the beginning of the node
Richard M. Stallman <rms@gnu.org>
parents:
22761
diff
changeset
|
880 (error (kill-buffer (current-buffer)))))))) |
48690
036a8f0597c4
(Info-insert-dir): Make dir-node-cache variables buffer-local, so that
Miles Bader <miles@gnu.org>
parents:
48582
diff
changeset
|
881 (unless (cdr dirs) |
036a8f0597c4
(Info-insert-dir): Make dir-node-cache variables buffer-local, so that
Miles Bader <miles@gnu.org>
parents:
48582
diff
changeset
|
882 (set (make-local-variable 'Info-dir-contents-directory) |
036a8f0597c4
(Info-insert-dir): Make dir-node-cache variables buffer-local, so that
Miles Bader <miles@gnu.org>
parents:
48582
diff
changeset
|
883 (file-name-as-directory (car dirs)))) |
7911
185c1f12db67
(Info-insert-dir): Ignore access times when comparing
Richard M. Stallman <rms@gnu.org>
parents:
7859
diff
changeset
|
884 (setq dirs (cdr dirs)))) |
28943
36fd90774cf7
(debug-ignored-errors): more errors to ignore.
Sam Steingold <sds@gnu.org>
parents:
28559
diff
changeset
|
885 |
6716
9ce2d1a2c155
(Info-find-node): Don't try to backstep if no history.
Karl Heuer <kwzh@gnu.org>
parents:
6624
diff
changeset
|
886 (or buffers |
14664
f77b58df548c
(Info-index): If fail, go back to original node.
Richard M. Stallman <rms@gnu.org>
parents:
14577
diff
changeset
|
887 (error "Can't find the Info directory node")) |
48690
036a8f0597c4
(Info-insert-dir): Make dir-node-cache variables buffer-local, so that
Miles Bader <miles@gnu.org>
parents:
48582
diff
changeset
|
888 |
1979
0582c70595f1
* info.el (Info-directory-list): Doc fix; it is set according to
Jim Blandy <jimb@redhat.com>
parents:
1971
diff
changeset
|
889 ;; Distinguish the dir file that comes with Emacs from all the |
3212
cd8f8468a190
(Info-insert-dir): Ignore duplicate directories.
Richard M. Stallman <rms@gnu.org>
parents:
3127
diff
changeset
|
890 ;; others. Yes, that is really what this is supposed to do. |
24513
2db3b19a94bb
(Info-directory-list): Revert change to re-writing
Dave Love <fx@gnu.org>
parents:
24196
diff
changeset
|
891 ;; The definition of `Info-directory-list' puts it first on that |
2db3b19a94bb
(Info-directory-list): Revert change to re-writing
Dave Love <fx@gnu.org>
parents:
24196
diff
changeset
|
892 ;; list and so last in `buffers' at this point. |
2db3b19a94bb
(Info-directory-list): Revert change to re-writing
Dave Love <fx@gnu.org>
parents:
24196
diff
changeset
|
893 (setq buffer (car (last buffers)) |
2db3b19a94bb
(Info-directory-list): Revert change to re-writing
Dave Love <fx@gnu.org>
parents:
24196
diff
changeset
|
894 others (delq buffer buffers)) |
1979
0582c70595f1
* info.el (Info-directory-list): Doc fix; it is set according to
Jim Blandy <jimb@redhat.com>
parents:
1971
diff
changeset
|
895 |
15304
d78c3fd6a0ab
(Info-insert-dir): Fix default directory.
Karl Heuer <kwzh@gnu.org>
parents:
15177
diff
changeset
|
896 ;; Insert the entire original dir file as a start; note that we've |
d78c3fd6a0ab
(Info-insert-dir): Fix default directory.
Karl Heuer <kwzh@gnu.org>
parents:
15177
diff
changeset
|
897 ;; already saved its default directory to use as the default |
d78c3fd6a0ab
(Info-insert-dir): Fix default directory.
Karl Heuer <kwzh@gnu.org>
parents:
15177
diff
changeset
|
898 ;; directory for the whole concatenation. |
1971
b540866e8a79
(Info-insert-dir): Make menu items in Top node
Richard M. Stallman <rms@gnu.org>
parents:
1821
diff
changeset
|
899 (insert-buffer buffer) |
1979
0582c70595f1
* info.el (Info-directory-list): Doc fix; it is set according to
Jim Blandy <jimb@redhat.com>
parents:
1971
diff
changeset
|
900 |
1971
b540866e8a79
(Info-insert-dir): Make menu items in Top node
Richard M. Stallman <rms@gnu.org>
parents:
1821
diff
changeset
|
901 ;; Look at each of the other buffers one by one. |
48135
2c6154347319
(Info-streamline-headings): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48118
diff
changeset
|
902 (dolist (other others) |
2c6154347319
(Info-streamline-headings): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48118
diff
changeset
|
903 (let (this-buffer-nodes) |
1971
b540866e8a79
(Info-insert-dir): Make menu items in Top node
Richard M. Stallman <rms@gnu.org>
parents:
1821
diff
changeset
|
904 ;; In each, find all the menus. |
48135
2c6154347319
(Info-streamline-headings): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48118
diff
changeset
|
905 (with-current-buffer other |
1971
b540866e8a79
(Info-insert-dir): Make menu items in Top node
Richard M. Stallman <rms@gnu.org>
parents:
1821
diff
changeset
|
906 (goto-char (point-min)) |
b540866e8a79
(Info-insert-dir): Make menu items in Top node
Richard M. Stallman <rms@gnu.org>
parents:
1821
diff
changeset
|
907 ;; Find each menu, and add an elt to NODES for it. |
b540866e8a79
(Info-insert-dir): Make menu items in Top node
Richard M. Stallman <rms@gnu.org>
parents:
1821
diff
changeset
|
908 (while (re-search-forward "^\\* Menu:" nil t) |
48135
2c6154347319
(Info-streamline-headings): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48118
diff
changeset
|
909 (while (and (zerop (forward-line 1)) (eolp))) |
2c6154347319
(Info-streamline-headings): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48118
diff
changeset
|
910 (let ((beg (point)) |
2c6154347319
(Info-streamline-headings): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48118
diff
changeset
|
911 nodename end) |
2c6154347319
(Info-streamline-headings): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48118
diff
changeset
|
912 (re-search-backward "^\^_") |
1971
b540866e8a79
(Info-insert-dir): Make menu items in Top node
Richard M. Stallman <rms@gnu.org>
parents:
1821
diff
changeset
|
913 (search-forward "Node: ") |
51735
204ae43066d1
(Info-following-node-name-re): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51731
diff
changeset
|
914 (setq nodename |
204ae43066d1
(Info-following-node-name-re): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51731
diff
changeset
|
915 (and (looking-at (Info-following-node-name-re)) |
204ae43066d1
(Info-following-node-name-re): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51731
diff
changeset
|
916 (match-string 1))) |
6339
f0f62abb621b
(Info-insert-dir): Use printable escapes instead of embedding literal control
Karl Heuer <kwzh@gnu.org>
parents:
6121
diff
changeset
|
917 (search-forward "\n\^_" nil 'move) |
1971
b540866e8a79
(Info-insert-dir): Make menu items in Top node
Richard M. Stallman <rms@gnu.org>
parents:
1821
diff
changeset
|
918 (beginning-of-line) |
b540866e8a79
(Info-insert-dir): Make menu items in Top node
Richard M. Stallman <rms@gnu.org>
parents:
1821
diff
changeset
|
919 (setq end (point)) |
48135
2c6154347319
(Info-streamline-headings): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48118
diff
changeset
|
920 (push (list nodename other beg end) this-buffer-nodes))) |
53409
6f40406c2b3e
(Info-insert-dir): Use assoc-string.
Richard M. Stallman <rms@gnu.org>
parents:
53246
diff
changeset
|
921 (if (assoc-string "top" this-buffer-nodes t) |
23416
83f51f5fb749
(Info-insert-dir): Detect and report problems
Richard M. Stallman <rms@gnu.org>
parents:
23175
diff
changeset
|
922 (setq nodes (nconc this-buffer-nodes nodes)) |
83f51f5fb749
(Info-insert-dir): Detect and report problems
Richard M. Stallman <rms@gnu.org>
parents:
23175
diff
changeset
|
923 (setq problems t) |
48135
2c6154347319
(Info-streamline-headings): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48118
diff
changeset
|
924 (message "No `top' node in %s" Info-dir-file-name))))) |
29621 | 925 ;; Add to the main menu a menu item for each other node. |
48135
2c6154347319
(Info-streamline-headings): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48118
diff
changeset
|
926 (re-search-forward "^\\* Menu:") |
1971
b540866e8a79
(Info-insert-dir): Make menu items in Top node
Richard M. Stallman <rms@gnu.org>
parents:
1821
diff
changeset
|
927 (forward-line 1) |
b540866e8a79
(Info-insert-dir): Make menu items in Top node
Richard M. Stallman <rms@gnu.org>
parents:
1821
diff
changeset
|
928 (let ((menu-items '("top")) |
6339
f0f62abb621b
(Info-insert-dir): Use printable escapes instead of embedding literal control
Karl Heuer <kwzh@gnu.org>
parents:
6121
diff
changeset
|
929 (end (save-excursion (search-forward "\^_" nil t) (point)))) |
48135
2c6154347319
(Info-streamline-headings): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48118
diff
changeset
|
930 (dolist (node nodes) |
2c6154347319
(Info-streamline-headings): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48118
diff
changeset
|
931 (let ((nodename (car node))) |
6537
f5ab0b6b9640
(Info-insert-dir): Add a save-excursion.
Richard M. Stallman <rms@gnu.org>
parents:
6339
diff
changeset
|
932 (save-excursion |
f5ab0b6b9640
(Info-insert-dir): Add a save-excursion.
Richard M. Stallman <rms@gnu.org>
parents:
6339
diff
changeset
|
933 (or (member (downcase nodename) menu-items) |
21641
1174b1d6cbf6
(Info-menu): Allow extra spaces at start of menu item.
Richard M. Stallman <rms@gnu.org>
parents:
21197
diff
changeset
|
934 (re-search-forward (concat "^\\* +" |
6537
f5ab0b6b9640
(Info-insert-dir): Add a save-excursion.
Richard M. Stallman <rms@gnu.org>
parents:
6339
diff
changeset
|
935 (regexp-quote nodename) |
f5ab0b6b9640
(Info-insert-dir): Add a save-excursion.
Richard M. Stallman <rms@gnu.org>
parents:
6339
diff
changeset
|
936 "::") |
f5ab0b6b9640
(Info-insert-dir): Add a save-excursion.
Richard M. Stallman <rms@gnu.org>
parents:
6339
diff
changeset
|
937 end t) |
f5ab0b6b9640
(Info-insert-dir): Add a save-excursion.
Richard M. Stallman <rms@gnu.org>
parents:
6339
diff
changeset
|
938 (progn |
f5ab0b6b9640
(Info-insert-dir): Add a save-excursion.
Richard M. Stallman <rms@gnu.org>
parents:
6339
diff
changeset
|
939 (insert "* " nodename "::" "\n") |
48135
2c6154347319
(Info-streamline-headings): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48118
diff
changeset
|
940 (push nodename menu-items))))))) |
1971
b540866e8a79
(Info-insert-dir): Make menu items in Top node
Richard M. Stallman <rms@gnu.org>
parents:
1821
diff
changeset
|
941 ;; Now take each node of each of the other buffers |
b540866e8a79
(Info-insert-dir): Make menu items in Top node
Richard M. Stallman <rms@gnu.org>
parents:
1821
diff
changeset
|
942 ;; and merge it into the main buffer. |
48135
2c6154347319
(Info-streamline-headings): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48118
diff
changeset
|
943 (dolist (node nodes) |
29446
009f1caf830f
Bind case-fold-search to t when searching in case
Gerd Moellmann <gerd@gnu.org>
parents:
29410
diff
changeset
|
944 (let ((case-fold-search t) |
48135
2c6154347319
(Info-streamline-headings): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48118
diff
changeset
|
945 (nodename (car node))) |
1971
b540866e8a79
(Info-insert-dir): Make menu items in Top node
Richard M. Stallman <rms@gnu.org>
parents:
1821
diff
changeset
|
946 (goto-char (point-min)) |
b540866e8a79
(Info-insert-dir): Make menu items in Top node
Richard M. Stallman <rms@gnu.org>
parents:
1821
diff
changeset
|
947 ;; Find the like-named node in the main buffer. |
23904
74c3c643e90c
(Info-find-node): Add 1 to the position read from the
Eli Zaretskii <eliz@gnu.org>
parents:
23819
diff
changeset
|
948 (if (re-search-forward (concat "^\^_.*\n.*Node: " |
1971
b540866e8a79
(Info-insert-dir): Make menu items in Top node
Richard M. Stallman <rms@gnu.org>
parents:
1821
diff
changeset
|
949 (regexp-quote nodename) |
b540866e8a79
(Info-insert-dir): Make menu items in Top node
Richard M. Stallman <rms@gnu.org>
parents:
1821
diff
changeset
|
950 "[,\n\t]") |
b540866e8a79
(Info-insert-dir): Make menu items in Top node
Richard M. Stallman <rms@gnu.org>
parents:
1821
diff
changeset
|
951 nil t) |
b540866e8a79
(Info-insert-dir): Make menu items in Top node
Richard M. Stallman <rms@gnu.org>
parents:
1821
diff
changeset
|
952 (progn |
6339
f0f62abb621b
(Info-insert-dir): Use printable escapes instead of embedding literal control
Karl Heuer <kwzh@gnu.org>
parents:
6121
diff
changeset
|
953 (search-forward "\n\^_" nil 'move) |
8913
65a8b9c507dc
(Info-insert-dir): Insert newlines before rather than
Richard M. Stallman <rms@gnu.org>
parents:
8805
diff
changeset
|
954 (beginning-of-line) |
65a8b9c507dc
(Info-insert-dir): Insert newlines before rather than
Richard M. Stallman <rms@gnu.org>
parents:
8805
diff
changeset
|
955 (insert "\n")) |
1971
b540866e8a79
(Info-insert-dir): Make menu items in Top node
Richard M. Stallman <rms@gnu.org>
parents:
1821
diff
changeset
|
956 ;; If none exists, add one. |
b540866e8a79
(Info-insert-dir): Make menu items in Top node
Richard M. Stallman <rms@gnu.org>
parents:
1821
diff
changeset
|
957 (goto-char (point-max)) |
8069
dfef58fcda75
(Info-insert-dir): Capitalize `node' when inserting it.
Richard M. Stallman <rms@gnu.org>
parents:
8018
diff
changeset
|
958 (insert "\^_\nFile: dir\tNode: " nodename "\n\n* Menu:\n\n")) |
1971
b540866e8a79
(Info-insert-dir): Make menu items in Top node
Richard M. Stallman <rms@gnu.org>
parents:
1821
diff
changeset
|
959 ;; Merge the text from the other buffer's menu |
b540866e8a79
(Info-insert-dir): Make menu items in Top node
Richard M. Stallman <rms@gnu.org>
parents:
1821
diff
changeset
|
960 ;; into the menu in the like-named node in the main buffer. |
48135
2c6154347319
(Info-streamline-headings): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48118
diff
changeset
|
961 (apply 'insert-buffer-substring (cdr node)))) |
2c6154347319
(Info-streamline-headings): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48118
diff
changeset
|
962 (Info-dir-remove-duplicates) |
1971
b540866e8a79
(Info-insert-dir): Make menu items in Top node
Richard M. Stallman <rms@gnu.org>
parents:
1821
diff
changeset
|
963 ;; Kill all the buffers we just made. |
48135
2c6154347319
(Info-streamline-headings): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48118
diff
changeset
|
964 (mapc 'kill-buffer buffers) |
23416
83f51f5fb749
(Info-insert-dir): Detect and report problems
Richard M. Stallman <rms@gnu.org>
parents:
23175
diff
changeset
|
965 (goto-char (point-min)) |
83f51f5fb749
(Info-insert-dir): Detect and report problems
Richard M. Stallman <rms@gnu.org>
parents:
23175
diff
changeset
|
966 (if problems |
83f51f5fb749
(Info-insert-dir): Detect and report problems
Richard M. Stallman <rms@gnu.org>
parents:
23175
diff
changeset
|
967 (message "Composing main Info directory...problems encountered, see `*Messages*'") |
48690
036a8f0597c4
(Info-insert-dir): Make dir-node-cache variables buffer-local, so that
Miles Bader <miles@gnu.org>
parents:
48582
diff
changeset
|
968 (message "Composing main Info directory...done")) |
036a8f0597c4
(Info-insert-dir): Make dir-node-cache variables buffer-local, so that
Miles Bader <miles@gnu.org>
parents:
48582
diff
changeset
|
969 (set (make-local-variable 'Info-dir-contents) (buffer-string)) |
036a8f0597c4
(Info-insert-dir): Make dir-node-cache variables buffer-local, so that
Miles Bader <miles@gnu.org>
parents:
48582
diff
changeset
|
970 (set (make-local-variable 'Info-dir-file-attributes) dir-file-attrs))) |
1979
0582c70595f1
* info.el (Info-directory-list): Doc fix; it is set according to
Jim Blandy <jimb@redhat.com>
parents:
1971
diff
changeset
|
971 (setq default-directory Info-dir-contents-directory)) |
1971
b540866e8a79
(Info-insert-dir): Make menu items in Top node
Richard M. Stallman <rms@gnu.org>
parents:
1821
diff
changeset
|
972 |
48135
2c6154347319
(Info-streamline-headings): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48118
diff
changeset
|
973 (defvar Info-streamline-headings |
2c6154347319
(Info-streamline-headings): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48118
diff
changeset
|
974 '(("Emacs" . "Emacs") |
2c6154347319
(Info-streamline-headings): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48118
diff
changeset
|
975 ("Programming" . "Programming") |
2c6154347319
(Info-streamline-headings): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48118
diff
changeset
|
976 ("Libraries" . "Libraries") |
2c6154347319
(Info-streamline-headings): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48118
diff
changeset
|
977 ("World Wide Web\\|Net Utilities" . "Net Utilities")) |
2c6154347319
(Info-streamline-headings): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48118
diff
changeset
|
978 "List of elements (RE . NAME) to merge headings matching RE to NAME.") |
2c6154347319
(Info-streamline-headings): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48118
diff
changeset
|
979 |
2c6154347319
(Info-streamline-headings): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48118
diff
changeset
|
980 (defun Info-dir-remove-duplicates () |
2c6154347319
(Info-streamline-headings): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48118
diff
changeset
|
981 (let (limit) |
2c6154347319
(Info-streamline-headings): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48118
diff
changeset
|
982 (goto-char (point-min)) |
2c6154347319
(Info-streamline-headings): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48118
diff
changeset
|
983 ;; Remove duplicate headings in the same menu. |
2c6154347319
(Info-streamline-headings): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48118
diff
changeset
|
984 (while (search-forward "\n* Menu:" nil t) |
2c6154347319
(Info-streamline-headings): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48118
diff
changeset
|
985 (setq limit (save-excursion (search-forward "\n" nil t))) |
2c6154347319
(Info-streamline-headings): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48118
diff
changeset
|
986 ;; Look for the next heading to unify. |
2c6154347319
(Info-streamline-headings): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48118
diff
changeset
|
987 (while (re-search-forward "^\\(\\w.*\\)\n\\*" limit t) |
2c6154347319
(Info-streamline-headings): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48118
diff
changeset
|
988 (let ((name (match-string 1)) |
2c6154347319
(Info-streamline-headings): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48118
diff
changeset
|
989 (start (match-beginning 0)) |
2c6154347319
(Info-streamline-headings): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48118
diff
changeset
|
990 (entries nil) re) |
2c6154347319
(Info-streamline-headings): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48118
diff
changeset
|
991 ;; Check whether this heading should be streamlined. |
2c6154347319
(Info-streamline-headings): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48118
diff
changeset
|
992 (save-match-data |
2c6154347319
(Info-streamline-headings): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48118
diff
changeset
|
993 (dolist (x Info-streamline-headings) |
2c6154347319
(Info-streamline-headings): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48118
diff
changeset
|
994 (when (string-match (car x) name) |
2c6154347319
(Info-streamline-headings): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48118
diff
changeset
|
995 (setq name (cdr x)) |
2c6154347319
(Info-streamline-headings): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48118
diff
changeset
|
996 (setq re (car x))))) |
2c6154347319
(Info-streamline-headings): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48118
diff
changeset
|
997 (if re (replace-match name t t nil 1)) |
2c6154347319
(Info-streamline-headings): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48118
diff
changeset
|
998 (goto-char (if (re-search-forward "^[^* \n\t]" limit t) |
2c6154347319
(Info-streamline-headings): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48118
diff
changeset
|
999 (match-beginning 0) |
2c6154347319
(Info-streamline-headings): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48118
diff
changeset
|
1000 (or limit (point-max)))) |
2c6154347319
(Info-streamline-headings): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48118
diff
changeset
|
1001 ;; Look for other headings of the same category and merge them. |
2c6154347319
(Info-streamline-headings): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48118
diff
changeset
|
1002 (save-excursion |
2c6154347319
(Info-streamline-headings): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48118
diff
changeset
|
1003 (while (re-search-forward "^\\(\\w.*\\)\n\\*" limit t) |
2c6154347319
(Info-streamline-headings): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48118
diff
changeset
|
1004 (when (if re (save-match-data (string-match re (match-string 1))) |
2c6154347319
(Info-streamline-headings): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48118
diff
changeset
|
1005 (equal name (match-string 1))) |
2c6154347319
(Info-streamline-headings): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48118
diff
changeset
|
1006 (forward-line 0) |
2c6154347319
(Info-streamline-headings): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48118
diff
changeset
|
1007 ;; Delete redundant heading. |
2c6154347319
(Info-streamline-headings): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48118
diff
changeset
|
1008 (delete-region (match-beginning 0) (point)) |
2c6154347319
(Info-streamline-headings): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48118
diff
changeset
|
1009 ;; Push the entries onto `text'. |
2c6154347319
(Info-streamline-headings): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48118
diff
changeset
|
1010 (push |
2c6154347319
(Info-streamline-headings): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48118
diff
changeset
|
1011 (delete-and-extract-region |
2c6154347319
(Info-streamline-headings): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48118
diff
changeset
|
1012 (point) |
2c6154347319
(Info-streamline-headings): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48118
diff
changeset
|
1013 (if (re-search-forward "^[^* \n\t]" nil t) |
2c6154347319
(Info-streamline-headings): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48118
diff
changeset
|
1014 (match-beginning 0) |
2c6154347319
(Info-streamline-headings): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48118
diff
changeset
|
1015 (or limit (point-max)))) entries)))) |
2c6154347319
(Info-streamline-headings): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48118
diff
changeset
|
1016 ;; Insert the entries just found. |
2c6154347319
(Info-streamline-headings): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48118
diff
changeset
|
1017 (while (= (line-beginning-position 0) (1- (point))) |
2c6154347319
(Info-streamline-headings): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48118
diff
changeset
|
1018 (backward-char)) |
2c6154347319
(Info-streamline-headings): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48118
diff
changeset
|
1019 (dolist (entry (nreverse entries)) |
2c6154347319
(Info-streamline-headings): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48118
diff
changeset
|
1020 (insert entry) |
2c6154347319
(Info-streamline-headings): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48118
diff
changeset
|
1021 (while (= (line-beginning-position 0) (1- (point))) |
2c6154347319
(Info-streamline-headings): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48118
diff
changeset
|
1022 (delete-region (1- (point)) (point)))) |
49424
59c37b87bb18
(Info-try-follow-nearest-node): Add case: Handle menu item
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
49390
diff
changeset
|
1023 |
48135
2c6154347319
(Info-streamline-headings): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48118
diff
changeset
|
1024 ;; Now remove duplicate entries under the same heading. |
2c6154347319
(Info-streamline-headings): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48118
diff
changeset
|
1025 (let ((seen nil) |
2c6154347319
(Info-streamline-headings): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48118
diff
changeset
|
1026 (limit (point))) |
2c6154347319
(Info-streamline-headings): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48118
diff
changeset
|
1027 (goto-char start) |
2c6154347319
(Info-streamline-headings): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48118
diff
changeset
|
1028 (while (re-search-forward "^* \\([^:\n]+:\\(:\\|[^.\n]+\\).\\)" |
2c6154347319
(Info-streamline-headings): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48118
diff
changeset
|
1029 limit 'move) |
2c6154347319
(Info-streamline-headings): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48118
diff
changeset
|
1030 (let ((x (match-string 1))) |
2c6154347319
(Info-streamline-headings): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48118
diff
changeset
|
1031 (if (member-ignore-case x seen) |
2c6154347319
(Info-streamline-headings): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48118
diff
changeset
|
1032 (delete-region (match-beginning 0) |
2c6154347319
(Info-streamline-headings): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48118
diff
changeset
|
1033 (progn (re-search-forward "^[^ \t]" nil t) |
48887
e846f8d1619c
(Info-dir-remove-duplicates): Avoid infloop when
John Paul Wallington <jpw@pobox.com>
parents:
48690
diff
changeset
|
1034 (match-beginning 0))) |
48135
2c6154347319
(Info-streamline-headings): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48118
diff
changeset
|
1035 (push x seen)))))))))) |
2c6154347319
(Info-streamline-headings): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48118
diff
changeset
|
1036 |
16981
643e0f90e153
Handle multiple Info buffers.
Richard M. Stallman <rms@gnu.org>
parents:
16790
diff
changeset
|
1037 ;; Note that on entry to this function the current-buffer must be the |
643e0f90e153
Handle multiple Info buffers.
Richard M. Stallman <rms@gnu.org>
parents:
16790
diff
changeset
|
1038 ;; *info* buffer; not the info tags buffer. |
325 | 1039 (defun Info-read-subfile (nodepos) |
16399
f73d53a1b448
(Info-read-subfile): Allow a file name as arg.
Richard M. Stallman <rms@gnu.org>
parents:
16202
diff
changeset
|
1040 ;; NODEPOS is either a position (in the Info file as a whole, |
f73d53a1b448
(Info-read-subfile): Allow a file name as arg.
Richard M. Stallman <rms@gnu.org>
parents:
16202
diff
changeset
|
1041 ;; not relative to a subfile) or the name of a subfile. |
325 | 1042 (let (lastfilepos |
1043 lastfilename) | |
16399
f73d53a1b448
(Info-read-subfile): Allow a file name as arg.
Richard M. Stallman <rms@gnu.org>
parents:
16202
diff
changeset
|
1044 (if (numberp nodepos) |
f73d53a1b448
(Info-read-subfile): Allow a file name as arg.
Richard M. Stallman <rms@gnu.org>
parents:
16202
diff
changeset
|
1045 (save-excursion |
f73d53a1b448
(Info-read-subfile): Allow a file name as arg.
Richard M. Stallman <rms@gnu.org>
parents:
16202
diff
changeset
|
1046 (set-buffer (marker-buffer Info-tag-table-marker)) |
f73d53a1b448
(Info-read-subfile): Allow a file name as arg.
Richard M. Stallman <rms@gnu.org>
parents:
16202
diff
changeset
|
1047 (goto-char (point-min)) |
23904
74c3c643e90c
(Info-find-node): Add 1 to the position read from the
Eli Zaretskii <eliz@gnu.org>
parents:
23819
diff
changeset
|
1048 (or (looking-at "\^_") |
74c3c643e90c
(Info-find-node): Add 1 to the position read from the
Eli Zaretskii <eliz@gnu.org>
parents:
23819
diff
changeset
|
1049 (search-forward "\n\^_")) |
16399
f73d53a1b448
(Info-read-subfile): Allow a file name as arg.
Richard M. Stallman <rms@gnu.org>
parents:
16202
diff
changeset
|
1050 (forward-line 2) |
f73d53a1b448
(Info-read-subfile): Allow a file name as arg.
Richard M. Stallman <rms@gnu.org>
parents:
16202
diff
changeset
|
1051 (catch 'foo |
f73d53a1b448
(Info-read-subfile): Allow a file name as arg.
Richard M. Stallman <rms@gnu.org>
parents:
16202
diff
changeset
|
1052 (while (not (looking-at "\^_")) |
f73d53a1b448
(Info-read-subfile): Allow a file name as arg.
Richard M. Stallman <rms@gnu.org>
parents:
16202
diff
changeset
|
1053 (if (not (eolp)) |
f73d53a1b448
(Info-read-subfile): Allow a file name as arg.
Richard M. Stallman <rms@gnu.org>
parents:
16202
diff
changeset
|
1054 (let ((beg (point)) |
f73d53a1b448
(Info-read-subfile): Allow a file name as arg.
Richard M. Stallman <rms@gnu.org>
parents:
16202
diff
changeset
|
1055 thisfilepos thisfilename) |
f73d53a1b448
(Info-read-subfile): Allow a file name as arg.
Richard M. Stallman <rms@gnu.org>
parents:
16202
diff
changeset
|
1056 (search-forward ": ") |
f73d53a1b448
(Info-read-subfile): Allow a file name as arg.
Richard M. Stallman <rms@gnu.org>
parents:
16202
diff
changeset
|
1057 (setq thisfilename (buffer-substring beg (- (point) 2))) |
45014
a590e8ab89d0
(Info-find-in-tag-table-1, Info-read-subfile): Use point-min.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44902
diff
changeset
|
1058 (setq thisfilepos (+ (point-min) (read (current-buffer)))) |
16399
f73d53a1b448
(Info-read-subfile): Allow a file name as arg.
Richard M. Stallman <rms@gnu.org>
parents:
16202
diff
changeset
|
1059 ;; read in version 19 stops at the end of number. |
f73d53a1b448
(Info-read-subfile): Allow a file name as arg.
Richard M. Stallman <rms@gnu.org>
parents:
16202
diff
changeset
|
1060 ;; Advance to the next line. |
f73d53a1b448
(Info-read-subfile): Allow a file name as arg.
Richard M. Stallman <rms@gnu.org>
parents:
16202
diff
changeset
|
1061 (forward-line 1) |
f73d53a1b448
(Info-read-subfile): Allow a file name as arg.
Richard M. Stallman <rms@gnu.org>
parents:
16202
diff
changeset
|
1062 (if (> thisfilepos nodepos) |
f73d53a1b448
(Info-read-subfile): Allow a file name as arg.
Richard M. Stallman <rms@gnu.org>
parents:
16202
diff
changeset
|
1063 (throw 'foo t)) |
f73d53a1b448
(Info-read-subfile): Allow a file name as arg.
Richard M. Stallman <rms@gnu.org>
parents:
16202
diff
changeset
|
1064 (setq lastfilename thisfilename) |
f73d53a1b448
(Info-read-subfile): Allow a file name as arg.
Richard M. Stallman <rms@gnu.org>
parents:
16202
diff
changeset
|
1065 (setq lastfilepos thisfilepos)) |
f73d53a1b448
(Info-read-subfile): Allow a file name as arg.
Richard M. Stallman <rms@gnu.org>
parents:
16202
diff
changeset
|
1066 (forward-line 1))))) |
f73d53a1b448
(Info-read-subfile): Allow a file name as arg.
Richard M. Stallman <rms@gnu.org>
parents:
16202
diff
changeset
|
1067 (setq lastfilename nodepos) |
f73d53a1b448
(Info-read-subfile): Allow a file name as arg.
Richard M. Stallman <rms@gnu.org>
parents:
16202
diff
changeset
|
1068 (setq lastfilepos 0)) |
16981
643e0f90e153
Handle multiple Info buffers.
Richard M. Stallman <rms@gnu.org>
parents:
16790
diff
changeset
|
1069 ;; Assume previous buffer is in Info-mode. |
643e0f90e153
Handle multiple Info buffers.
Richard M. Stallman <rms@gnu.org>
parents:
16790
diff
changeset
|
1070 ;; (set-buffer (get-buffer "*info*")) |
325 | 1071 (or (equal Info-current-subfile lastfilename) |
1072 (let ((buffer-read-only nil)) | |
1073 (setq buffer-file-name nil) | |
1074 (widen) | |
1075 (erase-buffer) | |
2561
1bd4cf98df68
(Info-find-node, Info-insert-subfile): Do the right thing if info files have
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2038
diff
changeset
|
1076 (info-insert-file-contents lastfilename) |
325 | 1077 (set-buffer-modified-p nil) |
1078 (setq Info-current-subfile lastfilename))) | |
37837
39e5892b1843
(Info-read-subfile): Widen before finding the
Richard M. Stallman <rms@gnu.org>
parents:
37473
diff
changeset
|
1079 ;; Widen in case we are in the same subfile as before. |
39e5892b1843
(Info-read-subfile): Widen before finding the
Richard M. Stallman <rms@gnu.org>
parents:
37473
diff
changeset
|
1080 (widen) |
325 | 1081 (goto-char (point-min)) |
23904
74c3c643e90c
(Info-find-node): Add 1 to the position read from the
Eli Zaretskii <eliz@gnu.org>
parents:
23819
diff
changeset
|
1082 (if (looking-at "\^_") |
74c3c643e90c
(Info-find-node): Add 1 to the position read from the
Eli Zaretskii <eliz@gnu.org>
parents:
23819
diff
changeset
|
1083 (forward-char 1) |
74c3c643e90c
(Info-find-node): Add 1 to the position read from the
Eli Zaretskii <eliz@gnu.org>
parents:
23819
diff
changeset
|
1084 (search-forward "\n\^_")) |
16399
f73d53a1b448
(Info-read-subfile): Allow a file name as arg.
Richard M. Stallman <rms@gnu.org>
parents:
16202
diff
changeset
|
1085 (if (numberp nodepos) |
f73d53a1b448
(Info-read-subfile): Allow a file name as arg.
Richard M. Stallman <rms@gnu.org>
parents:
16202
diff
changeset
|
1086 (+ (- nodepos lastfilepos) (point))))) |
325 | 1087 |
50707
692de9e94f6c
new image display support, from janneke
Karl Berry <karl@gnu.org>
parents:
50660
diff
changeset
|
1088 (defun Info-unescape-quotes (value) |
53246
c07db7df7073
(Info-unescape-quotes, Info-split-parameter-string)
John Paul Wallington <jpw@pobox.com>
parents:
52767
diff
changeset
|
1089 "Unescape double quotes and backslashes in VALUE." |
50707
692de9e94f6c
new image display support, from janneke
Karl Berry <karl@gnu.org>
parents:
50660
diff
changeset
|
1090 (let ((start 0) |
692de9e94f6c
new image display support, from janneke
Karl Berry <karl@gnu.org>
parents:
50660
diff
changeset
|
1091 (unquote value)) |
692de9e94f6c
new image display support, from janneke
Karl Berry <karl@gnu.org>
parents:
50660
diff
changeset
|
1092 (while (string-match "[^\\\"]*\\(\\\\\\)[\\\\\"]" unquote start) |
692de9e94f6c
new image display support, from janneke
Karl Berry <karl@gnu.org>
parents:
50660
diff
changeset
|
1093 (setq unquote (replace-match "" t t unquote 1)) |
692de9e94f6c
new image display support, from janneke
Karl Berry <karl@gnu.org>
parents:
50660
diff
changeset
|
1094 (setq start (- (match-end 0) 1))) |
692de9e94f6c
new image display support, from janneke
Karl Berry <karl@gnu.org>
parents:
50660
diff
changeset
|
1095 unquote)) |
692de9e94f6c
new image display support, from janneke
Karl Berry <karl@gnu.org>
parents:
50660
diff
changeset
|
1096 |
692de9e94f6c
new image display support, from janneke
Karl Berry <karl@gnu.org>
parents:
50660
diff
changeset
|
1097 ;; As of Texinfo 4.6, makeinfo writes constructs like |
692de9e94f6c
new image display support, from janneke
Karl Berry <karl@gnu.org>
parents:
50660
diff
changeset
|
1098 ;; \0\h[image param=value ...\h\0] |
692de9e94f6c
new image display support, from janneke
Karl Berry <karl@gnu.org>
parents:
50660
diff
changeset
|
1099 ;; into the Info file for handling images. |
692de9e94f6c
new image display support, from janneke
Karl Berry <karl@gnu.org>
parents:
50660
diff
changeset
|
1100 (defun Info-split-parameter-string (parameter-string) |
692de9e94f6c
new image display support, from janneke
Karl Berry <karl@gnu.org>
parents:
50660
diff
changeset
|
1101 "Return alist of (\"KEY\" . \"VALUE\") from PARAMETER-STRING; a |
53246
c07db7df7073
(Info-unescape-quotes, Info-split-parameter-string)
John Paul Wallington <jpw@pobox.com>
parents:
52767
diff
changeset
|
1102 whitespace separated list of KEY=VALUE pairs. If VALUE contains |
c07db7df7073
(Info-unescape-quotes, Info-split-parameter-string)
John Paul Wallington <jpw@pobox.com>
parents:
52767
diff
changeset
|
1103 whitespace or double quotes, it must be quoted in double quotes and |
c07db7df7073
(Info-unescape-quotes, Info-split-parameter-string)
John Paul Wallington <jpw@pobox.com>
parents:
52767
diff
changeset
|
1104 any double quotes or backslashes must be escaped (\\\",\\\\)." |
50707
692de9e94f6c
new image display support, from janneke
Karl Berry <karl@gnu.org>
parents:
50660
diff
changeset
|
1105 (let ((start 0) |
692de9e94f6c
new image display support, from janneke
Karl Berry <karl@gnu.org>
parents:
50660
diff
changeset
|
1106 (parameter-alist)) |
692de9e94f6c
new image display support, from janneke
Karl Berry <karl@gnu.org>
parents:
50660
diff
changeset
|
1107 (while (string-match |
692de9e94f6c
new image display support, from janneke
Karl Berry <karl@gnu.org>
parents:
50660
diff
changeset
|
1108 "\\s *\\([^=]+\\)=\\(?:\\([^\\s \"]+\\)\\|\\(?:\"\\(\\(?:[^\\\"]\\|\\\\[\\\\\"]\\)*\\)\"\\)\\)" |
692de9e94f6c
new image display support, from janneke
Karl Berry <karl@gnu.org>
parents:
50660
diff
changeset
|
1109 parameter-string start) |
692de9e94f6c
new image display support, from janneke
Karl Berry <karl@gnu.org>
parents:
50660
diff
changeset
|
1110 (setq start (match-end 0)) |
692de9e94f6c
new image display support, from janneke
Karl Berry <karl@gnu.org>
parents:
50660
diff
changeset
|
1111 (push (cons (match-string 1 parameter-string) |
692de9e94f6c
new image display support, from janneke
Karl Berry <karl@gnu.org>
parents:
50660
diff
changeset
|
1112 (or (match-string 2 parameter-string) |
692de9e94f6c
new image display support, from janneke
Karl Berry <karl@gnu.org>
parents:
50660
diff
changeset
|
1113 (Info-unescape-quotes |
692de9e94f6c
new image display support, from janneke
Karl Berry <karl@gnu.org>
parents:
50660
diff
changeset
|
1114 (match-string 3 parameter-string)))) |
692de9e94f6c
new image display support, from janneke
Karl Berry <karl@gnu.org>
parents:
50660
diff
changeset
|
1115 parameter-alist)) |
692de9e94f6c
new image display support, from janneke
Karl Berry <karl@gnu.org>
parents:
50660
diff
changeset
|
1116 parameter-alist)) |
692de9e94f6c
new image display support, from janneke
Karl Berry <karl@gnu.org>
parents:
50660
diff
changeset
|
1117 |
692de9e94f6c
new image display support, from janneke
Karl Berry <karl@gnu.org>
parents:
50660
diff
changeset
|
1118 (defun Info-display-images-node () |
692de9e94f6c
new image display support, from janneke
Karl Berry <karl@gnu.org>
parents:
50660
diff
changeset
|
1119 "Display images in current node." |
692de9e94f6c
new image display support, from janneke
Karl Berry <karl@gnu.org>
parents:
50660
diff
changeset
|
1120 (save-excursion |
692de9e94f6c
new image display support, from janneke
Karl Berry <karl@gnu.org>
parents:
50660
diff
changeset
|
1121 (let ((inhibit-read-only t) |
51434
4c85e6a5a9d2
(Info-mode-hook): Obey obsolete `Info-fontify'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51310
diff
changeset
|
1122 (case-fold-search t)) |
50707
692de9e94f6c
new image display support, from janneke
Karl Berry <karl@gnu.org>
parents:
50660
diff
changeset
|
1123 (goto-char (point-min)) |
692de9e94f6c
new image display support, from janneke
Karl Berry <karl@gnu.org>
parents:
50660
diff
changeset
|
1124 (while (re-search-forward |
692de9e94f6c
new image display support, from janneke
Karl Berry <karl@gnu.org>
parents:
50660
diff
changeset
|
1125 "\\(\0\b[[]image\\(\\(?:[^\b]\\|[^\0]+\b\\)*\\)\0\b[]]\\)" |
692de9e94f6c
new image display support, from janneke
Karl Berry <karl@gnu.org>
parents:
50660
diff
changeset
|
1126 nil t) |
692de9e94f6c
new image display support, from janneke
Karl Berry <karl@gnu.org>
parents:
50660
diff
changeset
|
1127 (let* ((start (match-beginning 1)) |
692de9e94f6c
new image display support, from janneke
Karl Berry <karl@gnu.org>
parents:
50660
diff
changeset
|
1128 (parameter-alist (Info-split-parameter-string (match-string 2))) |
692de9e94f6c
new image display support, from janneke
Karl Berry <karl@gnu.org>
parents:
50660
diff
changeset
|
1129 (src (cdr (assoc-string "src" parameter-alist))) |
692de9e94f6c
new image display support, from janneke
Karl Berry <karl@gnu.org>
parents:
50660
diff
changeset
|
1130 (image-file (if src (if (file-name-absolute-p src) src |
692de9e94f6c
new image display support, from janneke
Karl Berry <karl@gnu.org>
parents:
50660
diff
changeset
|
1131 (concat default-directory src)) |
692de9e94f6c
new image display support, from janneke
Karl Berry <karl@gnu.org>
parents:
50660
diff
changeset
|
1132 "")) |
692de9e94f6c
new image display support, from janneke
Karl Berry <karl@gnu.org>
parents:
50660
diff
changeset
|
1133 (image (if (file-exists-p image-file) |
692de9e94f6c
new image display support, from janneke
Karl Berry <karl@gnu.org>
parents:
50660
diff
changeset
|
1134 (create-image image-file) |
692de9e94f6c
new image display support, from janneke
Karl Berry <karl@gnu.org>
parents:
50660
diff
changeset
|
1135 "[broken image]"))) |
692de9e94f6c
new image display support, from janneke
Karl Berry <karl@gnu.org>
parents:
50660
diff
changeset
|
1136 (message "Found image: %S" image-file) |
692de9e94f6c
new image display support, from janneke
Karl Berry <karl@gnu.org>
parents:
50660
diff
changeset
|
1137 (if (not (get-text-property start 'display)) |
692de9e94f6c
new image display support, from janneke
Karl Berry <karl@gnu.org>
parents:
50660
diff
changeset
|
1138 (add-text-properties |
692de9e94f6c
new image display support, from janneke
Karl Berry <karl@gnu.org>
parents:
50660
diff
changeset
|
1139 start (point) `(display ,image rear-nonsticky (display))))))) |
692de9e94f6c
new image display support, from janneke
Karl Berry <karl@gnu.org>
parents:
50660
diff
changeset
|
1140 (set-buffer-modified-p nil))) |
692de9e94f6c
new image display support, from janneke
Karl Berry <karl@gnu.org>
parents:
50660
diff
changeset
|
1141 |
325 | 1142 (defun Info-select-node () |
51513
a1170353615d
(Info-select-node): Doc fix.
Andreas Schwab <schwab@suse.de>
parents:
51504
diff
changeset
|
1143 "Select the info node that point is in." |
a1170353615d
(Info-select-node): Doc fix.
Andreas Schwab <schwab@suse.de>
parents:
51504
diff
changeset
|
1144 ;; Bind this in case the user sets it to nil. |
22951
19b3899582b4
Bind case-fold-search to t in many functions.
Richard M. Stallman <rms@gnu.org>
parents:
22902
diff
changeset
|
1145 (let ((case-fold-search t)) |
19b3899582b4
Bind case-fold-search to t in many functions.
Richard M. Stallman <rms@gnu.org>
parents:
22902
diff
changeset
|
1146 (save-excursion |
29446
009f1caf830f
Bind case-fold-search to t when searching in case
Gerd Moellmann <gerd@gnu.org>
parents:
29410
diff
changeset
|
1147 ;; Find beginning of node. |
009f1caf830f
Bind case-fold-search to t when searching in case
Gerd Moellmann <gerd@gnu.org>
parents:
29410
diff
changeset
|
1148 (if (search-backward "\n\^_" nil 'move) |
009f1caf830f
Bind case-fold-search to t when searching in case
Gerd Moellmann <gerd@gnu.org>
parents:
29410
diff
changeset
|
1149 (forward-line 2) |
009f1caf830f
Bind case-fold-search to t when searching in case
Gerd Moellmann <gerd@gnu.org>
parents:
29410
diff
changeset
|
1150 (if (looking-at "\^_") |
009f1caf830f
Bind case-fold-search to t when searching in case
Gerd Moellmann <gerd@gnu.org>
parents:
29410
diff
changeset
|
1151 (forward-line 1) |
009f1caf830f
Bind case-fold-search to t when searching in case
Gerd Moellmann <gerd@gnu.org>
parents:
29410
diff
changeset
|
1152 (signal 'search-failed (list "\n\^_")))) |
009f1caf830f
Bind case-fold-search to t when searching in case
Gerd Moellmann <gerd@gnu.org>
parents:
29410
diff
changeset
|
1153 ;; Get nodename spelled as it is in the node. |
009f1caf830f
Bind case-fold-search to t when searching in case
Gerd Moellmann <gerd@gnu.org>
parents:
29410
diff
changeset
|
1154 (re-search-forward "Node:[ \t]*") |
009f1caf830f
Bind case-fold-search to t when searching in case
Gerd Moellmann <gerd@gnu.org>
parents:
29410
diff
changeset
|
1155 (setq Info-current-node |
009f1caf830f
Bind case-fold-search to t when searching in case
Gerd Moellmann <gerd@gnu.org>
parents:
29410
diff
changeset
|
1156 (buffer-substring-no-properties (point) |
009f1caf830f
Bind case-fold-search to t when searching in case
Gerd Moellmann <gerd@gnu.org>
parents:
29410
diff
changeset
|
1157 (progn |
009f1caf830f
Bind case-fold-search to t when searching in case
Gerd Moellmann <gerd@gnu.org>
parents:
29410
diff
changeset
|
1158 (skip-chars-forward "^,\t\n") |
009f1caf830f
Bind case-fold-search to t when searching in case
Gerd Moellmann <gerd@gnu.org>
parents:
29410
diff
changeset
|
1159 (point)))) |
009f1caf830f
Bind case-fold-search to t when searching in case
Gerd Moellmann <gerd@gnu.org>
parents:
29410
diff
changeset
|
1160 (Info-set-mode-line) |
009f1caf830f
Bind case-fold-search to t when searching in case
Gerd Moellmann <gerd@gnu.org>
parents:
29410
diff
changeset
|
1161 ;; Find the end of it, and narrow. |
009f1caf830f
Bind case-fold-search to t when searching in case
Gerd Moellmann <gerd@gnu.org>
parents:
29410
diff
changeset
|
1162 (beginning-of-line) |
009f1caf830f
Bind case-fold-search to t when searching in case
Gerd Moellmann <gerd@gnu.org>
parents:
29410
diff
changeset
|
1163 (let (active-expression) |
31660 | 1164 ;; Narrow to the node contents |
29446
009f1caf830f
Bind case-fold-search to t when searching in case
Gerd Moellmann <gerd@gnu.org>
parents:
29410
diff
changeset
|
1165 (narrow-to-region (point) |
009f1caf830f
Bind case-fold-search to t when searching in case
Gerd Moellmann <gerd@gnu.org>
parents:
29410
diff
changeset
|
1166 (if (re-search-forward "\n[\^_\f]" nil t) |
009f1caf830f
Bind case-fold-search to t when searching in case
Gerd Moellmann <gerd@gnu.org>
parents:
29410
diff
changeset
|
1167 (prog1 |
009f1caf830f
Bind case-fold-search to t when searching in case
Gerd Moellmann <gerd@gnu.org>
parents:
29410
diff
changeset
|
1168 (1- (point)) |
009f1caf830f
Bind case-fold-search to t when searching in case
Gerd Moellmann <gerd@gnu.org>
parents:
29410
diff
changeset
|
1169 (if (looking-at "[\n\^_\f]*execute: ") |
009f1caf830f
Bind case-fold-search to t when searching in case
Gerd Moellmann <gerd@gnu.org>
parents:
29410
diff
changeset
|
1170 (progn |
009f1caf830f
Bind case-fold-search to t when searching in case
Gerd Moellmann <gerd@gnu.org>
parents:
29410
diff
changeset
|
1171 (goto-char (match-end 0)) |
009f1caf830f
Bind case-fold-search to t when searching in case
Gerd Moellmann <gerd@gnu.org>
parents:
29410
diff
changeset
|
1172 (setq active-expression |
009f1caf830f
Bind case-fold-search to t when searching in case
Gerd Moellmann <gerd@gnu.org>
parents:
29410
diff
changeset
|
1173 (read (current-buffer)))))) |
009f1caf830f
Bind case-fold-search to t when searching in case
Gerd Moellmann <gerd@gnu.org>
parents:
29410
diff
changeset
|
1174 (point-max))) |
009f1caf830f
Bind case-fold-search to t when searching in case
Gerd Moellmann <gerd@gnu.org>
parents:
29410
diff
changeset
|
1175 (if Info-enable-active-nodes (eval active-expression)) |
45458 | 1176 (Info-fontify-node) |
50707
692de9e94f6c
new image display support, from janneke
Karl Berry <karl@gnu.org>
parents:
50660
diff
changeset
|
1177 (Info-display-images-node) |
29446
009f1caf830f
Bind case-fold-search to t when searching in case
Gerd Moellmann <gerd@gnu.org>
parents:
29410
diff
changeset
|
1178 (run-hooks 'Info-selection-hook))))) |
325 | 1179 |
1180 (defun Info-set-mode-line () | |
1181 (setq mode-line-buffer-identification | |
32538
69087927a683
(Info-set-mode-line): Tweak string.
Miles Bader <miles@gnu.org>
parents:
32533
diff
changeset
|
1182 (nconc (propertized-buffer-identification "%b") |
32533
ec12d23c8eea
(Info-set-mode-line): Use `%b' instead of hardwired string "*Info*".
Miles Bader <miles@gnu.org>
parents:
32500
diff
changeset
|
1183 (list |
ec12d23c8eea
(Info-set-mode-line): Use `%b' instead of hardwired string "*Info*".
Miles Bader <miles@gnu.org>
parents:
32500
diff
changeset
|
1184 (concat " (" |
ec12d23c8eea
(Info-set-mode-line): Use `%b' instead of hardwired string "*Info*".
Miles Bader <miles@gnu.org>
parents:
32500
diff
changeset
|
1185 (file-name-nondirectory |
ec12d23c8eea
(Info-set-mode-line): Use `%b' instead of hardwired string "*Info*".
Miles Bader <miles@gnu.org>
parents:
32500
diff
changeset
|
1186 (if (stringp Info-current-file) |
ec12d23c8eea
(Info-set-mode-line): Use `%b' instead of hardwired string "*Info*".
Miles Bader <miles@gnu.org>
parents:
32500
diff
changeset
|
1187 Info-current-file |
ec12d23c8eea
(Info-set-mode-line): Use `%b' instead of hardwired string "*Info*".
Miles Bader <miles@gnu.org>
parents:
32500
diff
changeset
|
1188 (or buffer-file-name ""))) |
ec12d23c8eea
(Info-set-mode-line): Use `%b' instead of hardwired string "*Info*".
Miles Bader <miles@gnu.org>
parents:
32500
diff
changeset
|
1189 ") " |
ec12d23c8eea
(Info-set-mode-line): Use `%b' instead of hardwired string "*Info*".
Miles Bader <miles@gnu.org>
parents:
32500
diff
changeset
|
1190 (or Info-current-node "")))))) |
325 | 1191 |
1192 ;; Go to an info node specified with a filename-and-nodename string | |
1193 ;; of the sort that is found in pointers in nodes. | |
1194 | |
26004
11f91800bec3
(Info-on-current-buffer): new entry point.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
25878
diff
changeset
|
1195 (defun Info-goto-node (nodename &optional fork) |
39213 | 1196 "Go to info node named NODENAME. Give just NODENAME or (FILENAME)NODENAME. |
39382
18515f20ccce
(Info-goto-node, Info-menu): Doc fix. Suggested by
Eli Zaretskii <eliz@gnu.org>
parents:
39364
diff
changeset
|
1197 If NODENAME is of the form (FILENAME)NODENAME, the node is in the Info file |
18515f20ccce
(Info-goto-node, Info-menu): Doc fix. Suggested by
Eli Zaretskii <eliz@gnu.org>
parents:
39364
diff
changeset
|
1198 FILENAME; otherwise, NODENAME should be in the current Info file (or one of |
18515f20ccce
(Info-goto-node, Info-menu): Doc fix. Suggested by
Eli Zaretskii <eliz@gnu.org>
parents:
39364
diff
changeset
|
1199 its sub-files). |
18515f20ccce
(Info-goto-node, Info-menu): Doc fix. Suggested by
Eli Zaretskii <eliz@gnu.org>
parents:
39364
diff
changeset
|
1200 Completion is available, but only for node names in the current Info file. |
32286
c0b19a2770ca
(Info-goto-node, Info-menu): Doc fix.
Dave Love <fx@gnu.org>
parents:
32007
diff
changeset
|
1201 If FORK is non-nil (interactively with a prefix arg), show the node in |
c0b19a2770ca
(Info-goto-node, Info-menu): Doc fix.
Dave Love <fx@gnu.org>
parents:
32007
diff
changeset
|
1202 a new info buffer. |
26004
11f91800bec3
(Info-on-current-buffer): new entry point.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
25878
diff
changeset
|
1203 If FORK is a string, it is the name to use for the new buffer." |
32500
5f2aedbe47b5
(Info-mouse-follow-nearest-node): Use mouse-set-point.
Dave Love <fx@gnu.org>
parents:
32391
diff
changeset
|
1204 (interactive (list (Info-read-node-name "Go to node: ") current-prefix-arg)) |
25172
5a57e11d78c9
(Info-find-node): Call info-initialize here.
Dave Love <fx@gnu.org>
parents:
25145
diff
changeset
|
1205 (info-initialize) |
26004
11f91800bec3
(Info-on-current-buffer): new entry point.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
25878
diff
changeset
|
1206 (if fork |
29446
009f1caf830f
Bind case-fold-search to t when searching in case
Gerd Moellmann <gerd@gnu.org>
parents:
29410
diff
changeset
|
1207 (set-buffer |
009f1caf830f
Bind case-fold-search to t when searching in case
Gerd Moellmann <gerd@gnu.org>
parents:
29410
diff
changeset
|
1208 (clone-buffer (concat "*info-" (if (stringp fork) fork nodename) "*") t))) |
325 | 1209 (let (filename) |
1210 (string-match "\\s *\\((\\s *\\([^\t)]*\\)\\s *)\\s *\\|\\)\\(.*\\)" | |
1211 nodename) | |
1212 (setq filename (if (= (match-beginning 1) (match-end 1)) | |
1213 "" | |
51735
204ae43066d1
(Info-following-node-name-re): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51731
diff
changeset
|
1214 (match-string 2 nodename)) |
204ae43066d1
(Info-following-node-name-re): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51731
diff
changeset
|
1215 nodename (match-string 3 nodename)) |
325 | 1216 (let ((trim (string-match "\\s *\\'" filename))) |
1217 (if trim (setq filename (substring filename 0 trim)))) | |
1218 (let ((trim (string-match "\\s *\\'" nodename))) | |
1219 (if trim (setq nodename (substring nodename 0 trim)))) | |
12433
17387b7fe5b8
(Info-goto-node, Info-search):
Richard M. Stallman <rms@gnu.org>
parents:
12294
diff
changeset
|
1220 (if transient-mark-mode (deactivate-mark)) |
325 | 1221 (Info-find-node (if (equal filename "") nil filename) |
1222 (if (equal nodename "") "Top" nodename)))) | |
4410
25fb71fc2643
(Info-fontify-node): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4261
diff
changeset
|
1223 |
22760
e080fa4636c7
(Info-read-node-name-1, Info-read-node-name):
Richard M. Stallman <rms@gnu.org>
parents:
22733
diff
changeset
|
1224 (defvar Info-read-node-completion-table) |
e080fa4636c7
(Info-read-node-name-1, Info-read-node-name):
Richard M. Stallman <rms@gnu.org>
parents:
22733
diff
changeset
|
1225 |
12779
5b3d83e51b91
(Info-read-node-name-1): New function.
Richard M. Stallman <rms@gnu.org>
parents:
12646
diff
changeset
|
1226 ;; This function is used as the "completion table" while reading a node name. |
22760
e080fa4636c7
(Info-read-node-name-1, Info-read-node-name):
Richard M. Stallman <rms@gnu.org>
parents:
22733
diff
changeset
|
1227 ;; It does completion using the alist in Info-read-node-completion-table |
12779
5b3d83e51b91
(Info-read-node-name-1): New function.
Richard M. Stallman <rms@gnu.org>
parents:
12646
diff
changeset
|
1228 ;; unless STRING starts with an open-paren. |
5b3d83e51b91
(Info-read-node-name-1): New function.
Richard M. Stallman <rms@gnu.org>
parents:
12646
diff
changeset
|
1229 (defun Info-read-node-name-1 (string predicate code) |
45014
a590e8ab89d0
(Info-find-in-tag-table-1, Info-read-subfile): Use point-min.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44902
diff
changeset
|
1230 (cond |
a590e8ab89d0
(Info-find-in-tag-table-1, Info-read-subfile): Use point-min.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44902
diff
changeset
|
1231 ;; First complete embedded file names. |
a590e8ab89d0
(Info-find-in-tag-table-1, Info-read-subfile): Use point-min.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44902
diff
changeset
|
1232 ((string-match "\\`([^)]*\\'" string) |
a590e8ab89d0
(Info-find-in-tag-table-1, Info-read-subfile): Use point-min.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44902
diff
changeset
|
1233 (let ((file (substring string 1))) |
a590e8ab89d0
(Info-find-in-tag-table-1, Info-read-subfile): Use point-min.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44902
diff
changeset
|
1234 (cond |
a590e8ab89d0
(Info-find-in-tag-table-1, Info-read-subfile): Use point-min.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44902
diff
changeset
|
1235 ((eq code nil) |
a590e8ab89d0
(Info-find-in-tag-table-1, Info-read-subfile): Use point-min.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44902
diff
changeset
|
1236 (let ((comp (try-completion file 'locate-file-completion |
a590e8ab89d0
(Info-find-in-tag-table-1, Info-read-subfile): Use point-min.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44902
diff
changeset
|
1237 (cons Info-directory-list |
a590e8ab89d0
(Info-find-in-tag-table-1, Info-read-subfile): Use point-min.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44902
diff
changeset
|
1238 (mapcar 'car Info-suffix-list))))) |
a590e8ab89d0
(Info-find-in-tag-table-1, Info-read-subfile): Use point-min.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44902
diff
changeset
|
1239 (cond |
a590e8ab89d0
(Info-find-in-tag-table-1, Info-read-subfile): Use point-min.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44902
diff
changeset
|
1240 ((eq comp t) (concat string ")")) |
a590e8ab89d0
(Info-find-in-tag-table-1, Info-read-subfile): Use point-min.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44902
diff
changeset
|
1241 (comp (concat "(" comp))))) |
a590e8ab89d0
(Info-find-in-tag-table-1, Info-read-subfile): Use point-min.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44902
diff
changeset
|
1242 ((eq code t) (all-completions file 'locate-file-completion |
a590e8ab89d0
(Info-find-in-tag-table-1, Info-read-subfile): Use point-min.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44902
diff
changeset
|
1243 (cons Info-directory-list |
a590e8ab89d0
(Info-find-in-tag-table-1, Info-read-subfile): Use point-min.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44902
diff
changeset
|
1244 (mapcar 'car Info-suffix-list)))) |
a590e8ab89d0
(Info-find-in-tag-table-1, Info-read-subfile): Use point-min.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44902
diff
changeset
|
1245 (t nil)))) |
a590e8ab89d0
(Info-find-in-tag-table-1, Info-read-subfile): Use point-min.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44902
diff
changeset
|
1246 ;; If a file name was given, then any node is fair game. |
a590e8ab89d0
(Info-find-in-tag-table-1, Info-read-subfile): Use point-min.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44902
diff
changeset
|
1247 ((string-match "\\`(" string) |
a590e8ab89d0
(Info-find-in-tag-table-1, Info-read-subfile): Use point-min.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44902
diff
changeset
|
1248 (cond |
a590e8ab89d0
(Info-find-in-tag-table-1, Info-read-subfile): Use point-min.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44902
diff
changeset
|
1249 ((eq code nil) string) |
a590e8ab89d0
(Info-find-in-tag-table-1, Info-read-subfile): Use point-min.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44902
diff
changeset
|
1250 ((eq code t) nil) |
a590e8ab89d0
(Info-find-in-tag-table-1, Info-read-subfile): Use point-min.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44902
diff
changeset
|
1251 (t t))) |
a590e8ab89d0
(Info-find-in-tag-table-1, Info-read-subfile): Use point-min.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44902
diff
changeset
|
1252 ;; Otherwise use Info-read-node-completion-table. |
a590e8ab89d0
(Info-find-in-tag-table-1, Info-read-subfile): Use point-min.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44902
diff
changeset
|
1253 ((eq code nil) |
a590e8ab89d0
(Info-find-in-tag-table-1, Info-read-subfile): Use point-min.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44902
diff
changeset
|
1254 (try-completion string Info-read-node-completion-table predicate)) |
a590e8ab89d0
(Info-find-in-tag-table-1, Info-read-subfile): Use point-min.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44902
diff
changeset
|
1255 ((eq code t) |
a590e8ab89d0
(Info-find-in-tag-table-1, Info-read-subfile): Use point-min.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44902
diff
changeset
|
1256 (all-completions string Info-read-node-completion-table predicate)) |
a590e8ab89d0
(Info-find-in-tag-table-1, Info-read-subfile): Use point-min.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44902
diff
changeset
|
1257 (t |
a590e8ab89d0
(Info-find-in-tag-table-1, Info-read-subfile): Use point-min.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44902
diff
changeset
|
1258 (test-completion string Info-read-node-completion-table predicate)))) |
12779
5b3d83e51b91
(Info-read-node-name-1): New function.
Richard M. Stallman <rms@gnu.org>
parents:
12646
diff
changeset
|
1259 |
4410
25fb71fc2643
(Info-fontify-node): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4261
diff
changeset
|
1260 (defun Info-read-node-name (prompt &optional default) |
25fb71fc2643
(Info-fontify-node): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4261
diff
changeset
|
1261 (let* ((completion-ignore-case t) |
22760
e080fa4636c7
(Info-read-node-name-1, Info-read-node-name):
Richard M. Stallman <rms@gnu.org>
parents:
22733
diff
changeset
|
1262 (Info-read-node-completion-table (Info-build-node-completions)) |
17140
a6f8fb00d93e
(Info-read-node-name): Caused completing-read to force
Karl Heuer <kwzh@gnu.org>
parents:
16981
diff
changeset
|
1263 (nodename (completing-read prompt 'Info-read-node-name-1 nil t))) |
4410
25fb71fc2643
(Info-fontify-node): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4261
diff
changeset
|
1264 (if (equal nodename "") |
25fb71fc2643
(Info-fontify-node): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4261
diff
changeset
|
1265 (or default |
25fb71fc2643
(Info-fontify-node): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4261
diff
changeset
|
1266 (Info-read-node-name prompt)) |
25fb71fc2643
(Info-fontify-node): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4261
diff
changeset
|
1267 nodename))) |
25fb71fc2643
(Info-fontify-node): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4261
diff
changeset
|
1268 |
25fb71fc2643
(Info-fontify-node): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4261
diff
changeset
|
1269 (defun Info-build-node-completions () |
25fb71fc2643
(Info-fontify-node): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4261
diff
changeset
|
1270 (or Info-current-file-completions |
22951
19b3899582b4
Bind case-fold-search to t in many functions.
Richard M. Stallman <rms@gnu.org>
parents:
22902
diff
changeset
|
1271 (let ((compl nil) |
19b3899582b4
Bind case-fold-search to t in many functions.
Richard M. Stallman <rms@gnu.org>
parents:
22902
diff
changeset
|
1272 ;; Bind this in case the user sets it to nil. |
23923
950f2c278c9a
(Info-node-at-bob-matching): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
23904
diff
changeset
|
1273 (case-fold-search t) |
950f2c278c9a
(Info-node-at-bob-matching): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
23904
diff
changeset
|
1274 (node-regexp "Node: *\\([^,\n]*\\) *[,\n\t]")) |
4410
25fb71fc2643
(Info-fontify-node): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4261
diff
changeset
|
1275 (save-excursion |
25fb71fc2643
(Info-fontify-node): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4261
diff
changeset
|
1276 (save-restriction |
25fb71fc2643
(Info-fontify-node): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4261
diff
changeset
|
1277 (if (marker-buffer Info-tag-table-marker) |
16981
643e0f90e153
Handle multiple Info buffers.
Richard M. Stallman <rms@gnu.org>
parents:
16790
diff
changeset
|
1278 (let ((marker Info-tag-table-marker)) |
643e0f90e153
Handle multiple Info buffers.
Richard M. Stallman <rms@gnu.org>
parents:
16790
diff
changeset
|
1279 (set-buffer (marker-buffer marker)) |
6049
32df2b4d67cf
(Info-build-node-completions): Add a call to widen.
Richard M. Stallman <rms@gnu.org>
parents:
5555
diff
changeset
|
1280 (widen) |
16981
643e0f90e153
Handle multiple Info buffers.
Richard M. Stallman <rms@gnu.org>
parents:
16790
diff
changeset
|
1281 (goto-char marker) |
29621 | 1282 (while (re-search-forward "\n\\(Node\\|Ref\\): \\(.*\\)\177" nil t) |
4410
25fb71fc2643
(Info-fontify-node): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4261
diff
changeset
|
1283 (setq compl |
29621 | 1284 (cons (list (match-string-no-properties 2)) |
4410
25fb71fc2643
(Info-fontify-node): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4261
diff
changeset
|
1285 compl)))) |
25fb71fc2643
(Info-fontify-node): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4261
diff
changeset
|
1286 (widen) |
25fb71fc2643
(Info-fontify-node): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4261
diff
changeset
|
1287 (goto-char (point-min)) |
23923
950f2c278c9a
(Info-node-at-bob-matching): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
23904
diff
changeset
|
1288 ;; If the buffer begins with a node header, process that first. |
950f2c278c9a
(Info-node-at-bob-matching): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
23904
diff
changeset
|
1289 (if (Info-node-at-bob-matching node-regexp) |
26580
d779cb4aa2ae
(Info-build-node-completions, Info-search, Info-follow-reference)
Dave Love <fx@gnu.org>
parents:
26172
diff
changeset
|
1290 (setq compl (list (match-string-no-properties 1)))) |
23923
950f2c278c9a
(Info-node-at-bob-matching): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
23904
diff
changeset
|
1291 ;; Now for the rest of the nodes. |
4410
25fb71fc2643
(Info-fontify-node): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4261
diff
changeset
|
1292 (while (search-forward "\n\^_" nil t) |
25fb71fc2643
(Info-fontify-node): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4261
diff
changeset
|
1293 (forward-line 1) |
25fb71fc2643
(Info-fontify-node): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4261
diff
changeset
|
1294 (let ((beg (point))) |
25fb71fc2643
(Info-fontify-node): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4261
diff
changeset
|
1295 (forward-line 1) |
23923
950f2c278c9a
(Info-node-at-bob-matching): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
23904
diff
changeset
|
1296 (if (re-search-backward node-regexp beg t) |
28943
36fd90774cf7
(debug-ignored-errors): more errors to ignore.
Sam Steingold <sds@gnu.org>
parents:
28559
diff
changeset
|
1297 (setq compl |
26580
d779cb4aa2ae
(Info-build-node-completions, Info-search, Info-follow-reference)
Dave Love <fx@gnu.org>
parents:
26172
diff
changeset
|
1298 (cons (list (match-string-no-properties 1)) |
4410
25fb71fc2643
(Info-fontify-node): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4261
diff
changeset
|
1299 compl)))))))) |
26172
ac446cf94d51
(Info-build-node-completions): Add '("*") to the
Gerd Moellmann <gerd@gnu.org>
parents:
26004
diff
changeset
|
1300 (setq compl (cons '("*") compl)) |
38407
4569042ee316
(Info-build-node-completions): Make Info-current-file-completions buffer local.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38262
diff
changeset
|
1301 (set (make-local-variable 'Info-current-file-completions) compl)))) |
325 | 1302 |
540 | 1303 (defun Info-restore-point (hl) |
1304 "If this node has been visited, restore the point value when we left." | |
6049
32df2b4d67cf
(Info-build-node-completions): Add a call to widen.
Richard M. Stallman <rms@gnu.org>
parents:
5555
diff
changeset
|
1305 (while hl |
32df2b4d67cf
(Info-build-node-completions): Add a call to widen.
Richard M. Stallman <rms@gnu.org>
parents:
5555
diff
changeset
|
1306 (if (and (equal (nth 0 (car hl)) Info-current-file) |
11527
7956811d4d9a
(info-insert-file-contents): Set default-directory
Richard M. Stallman <rms@gnu.org>
parents:
11064
diff
changeset
|
1307 ;; Use string-equal, not equal, to ignore text props. |
7956811d4d9a
(info-insert-file-contents): Set default-directory
Richard M. Stallman <rms@gnu.org>
parents:
11064
diff
changeset
|
1308 (string-equal (nth 1 (car hl)) Info-current-node)) |
6049
32df2b4d67cf
(Info-build-node-completions): Add a call to widen.
Richard M. Stallman <rms@gnu.org>
parents:
5555
diff
changeset
|
1309 (progn |
6121
a9caf92da1d3
(Info-restore-point): Don't wipe out hl before using it.
Karl Heuer <kwzh@gnu.org>
parents:
6049
diff
changeset
|
1310 (goto-char (nth 2 (car hl))) |
a9caf92da1d3
(Info-restore-point): Don't wipe out hl before using it.
Karl Heuer <kwzh@gnu.org>
parents:
6049
diff
changeset
|
1311 (setq hl nil)) ;terminate the while at next iter |
6049
32df2b4d67cf
(Info-build-node-completions): Add a call to widen.
Richard M. Stallman <rms@gnu.org>
parents:
5555
diff
changeset
|
1312 (setq hl (cdr hl))))) |
540 | 1313 |
30109
310914da7811
(Info-last-search): Variable removed.
Gerd Moellmann <gerd@gnu.org>
parents:
30020
diff
changeset
|
1314 (defvar Info-search-history nil |
310914da7811
(Info-last-search): Variable removed.
Gerd Moellmann <gerd@gnu.org>
parents:
30020
diff
changeset
|
1315 "The history list for `Info-search'.") |
325 | 1316 |
1317 (defun Info-search (regexp) | |
1318 "Search for REGEXP, starting from point, and select node it's found in." | |
35136
1eb26b81ece0
(Info-search): Print the default as part of the prompt.
Eli Zaretskii <eliz@gnu.org>
parents:
35112
diff
changeset
|
1319 (interactive (list (read-string |
1eb26b81ece0
(Info-search): Print the default as part of the prompt.
Eli Zaretskii <eliz@gnu.org>
parents:
35112
diff
changeset
|
1320 (if Info-search-history |
1eb26b81ece0
(Info-search): Print the default as part of the prompt.
Eli Zaretskii <eliz@gnu.org>
parents:
35112
diff
changeset
|
1321 (format "Regexp search (default `%s'): " |
1eb26b81ece0
(Info-search): Print the default as part of the prompt.
Eli Zaretskii <eliz@gnu.org>
parents:
35112
diff
changeset
|
1322 (car Info-search-history)) |
1eb26b81ece0
(Info-search): Print the default as part of the prompt.
Eli Zaretskii <eliz@gnu.org>
parents:
35112
diff
changeset
|
1323 "Regexp search: ") |
1eb26b81ece0
(Info-search): Print the default as part of the prompt.
Eli Zaretskii <eliz@gnu.org>
parents:
35112
diff
changeset
|
1324 nil 'Info-search-history))) |
30109
310914da7811
(Info-last-search): Variable removed.
Gerd Moellmann <gerd@gnu.org>
parents:
30020
diff
changeset
|
1325 (when transient-mark-mode |
310914da7811
(Info-last-search): Variable removed.
Gerd Moellmann <gerd@gnu.org>
parents:
30020
diff
changeset
|
1326 (deactivate-mark)) |
310914da7811
(Info-last-search): Variable removed.
Gerd Moellmann <gerd@gnu.org>
parents:
30020
diff
changeset
|
1327 (when (equal regexp "") |
310914da7811
(Info-last-search): Variable removed.
Gerd Moellmann <gerd@gnu.org>
parents:
30020
diff
changeset
|
1328 (setq regexp (car Info-search-history))) |
24963
a78f0c2654d6
(Info-search): Don't lose with empty regexp.
Dave Love <fx@gnu.org>
parents:
24632
diff
changeset
|
1329 (when regexp |
51805
7a3de98ae801
(Info-search): If find invisible text, search again.
Richard M. Stallman <rms@gnu.org>
parents:
51784
diff
changeset
|
1330 (let (found beg-found give-up |
24963
a78f0c2654d6
(Info-search): Don't lose with empty regexp.
Dave Love <fx@gnu.org>
parents:
24632
diff
changeset
|
1331 (onode Info-current-node) |
a78f0c2654d6
(Info-search): Don't lose with empty regexp.
Dave Love <fx@gnu.org>
parents:
24632
diff
changeset
|
1332 (ofile Info-current-file) |
a78f0c2654d6
(Info-search): Don't lose with empty regexp.
Dave Love <fx@gnu.org>
parents:
24632
diff
changeset
|
1333 (opoint (point)) |
a78f0c2654d6
(Info-search): Don't lose with empty regexp.
Dave Love <fx@gnu.org>
parents:
24632
diff
changeset
|
1334 (ostart (window-start)) |
a78f0c2654d6
(Info-search): Don't lose with empty regexp.
Dave Love <fx@gnu.org>
parents:
24632
diff
changeset
|
1335 (osubfile Info-current-subfile)) |
a78f0c2654d6
(Info-search): Don't lose with empty regexp.
Dave Love <fx@gnu.org>
parents:
24632
diff
changeset
|
1336 (save-excursion |
a78f0c2654d6
(Info-search): Don't lose with empty regexp.
Dave Love <fx@gnu.org>
parents:
24632
diff
changeset
|
1337 (save-restriction |
a78f0c2654d6
(Info-search): Don't lose with empty regexp.
Dave Love <fx@gnu.org>
parents:
24632
diff
changeset
|
1338 (widen) |
51805
7a3de98ae801
(Info-search): If find invisible text, search again.
Richard M. Stallman <rms@gnu.org>
parents:
51784
diff
changeset
|
1339 (while (and (not give-up) |
7a3de98ae801
(Info-search): If find invisible text, search again.
Richard M. Stallman <rms@gnu.org>
parents:
51784
diff
changeset
|
1340 (or (null found) |
7a3de98ae801
(Info-search): If find invisible text, search again.
Richard M. Stallman <rms@gnu.org>
parents:
51784
diff
changeset
|
1341 (isearch-range-invisible beg-found found))) |
7a3de98ae801
(Info-search): If find invisible text, search again.
Richard M. Stallman <rms@gnu.org>
parents:
51784
diff
changeset
|
1342 (if (re-search-forward regexp nil t) |
7a3de98ae801
(Info-search): If find invisible text, search again.
Richard M. Stallman <rms@gnu.org>
parents:
51784
diff
changeset
|
1343 (setq found (point) beg-found (match-beginning 0)) |
7a3de98ae801
(Info-search): If find invisible text, search again.
Richard M. Stallman <rms@gnu.org>
parents:
51784
diff
changeset
|
1344 (setq give-up t))))) |
7a3de98ae801
(Info-search): If find invisible text, search again.
Richard M. Stallman <rms@gnu.org>
parents:
51784
diff
changeset
|
1345 ;; If no subfiles, give error now. |
7a3de98ae801
(Info-search): If find invisible text, search again.
Richard M. Stallman <rms@gnu.org>
parents:
51784
diff
changeset
|
1346 (if give-up |
24963
a78f0c2654d6
(Info-search): Don't lose with empty regexp.
Dave Love <fx@gnu.org>
parents:
24632
diff
changeset
|
1347 (if (null Info-current-subfile) |
51805
7a3de98ae801
(Info-search): If find invisible text, search again.
Richard M. Stallman <rms@gnu.org>
parents:
51784
diff
changeset
|
1348 (re-search-forward regexp) |
7a3de98ae801
(Info-search): If find invisible text, search again.
Richard M. Stallman <rms@gnu.org>
parents:
51784
diff
changeset
|
1349 (setq found nil))) |
7a3de98ae801
(Info-search): If find invisible text, search again.
Richard M. Stallman <rms@gnu.org>
parents:
51784
diff
changeset
|
1350 |
7a3de98ae801
(Info-search): If find invisible text, search again.
Richard M. Stallman <rms@gnu.org>
parents:
51784
diff
changeset
|
1351 (unless found |
7a3de98ae801
(Info-search): If find invisible text, search again.
Richard M. Stallman <rms@gnu.org>
parents:
51784
diff
changeset
|
1352 (unwind-protect |
7a3de98ae801
(Info-search): If find invisible text, search again.
Richard M. Stallman <rms@gnu.org>
parents:
51784
diff
changeset
|
1353 ;; Try other subfiles. |
7a3de98ae801
(Info-search): If find invisible text, search again.
Richard M. Stallman <rms@gnu.org>
parents:
51784
diff
changeset
|
1354 (let ((list ())) |
7a3de98ae801
(Info-search): If find invisible text, search again.
Richard M. Stallman <rms@gnu.org>
parents:
51784
diff
changeset
|
1355 (save-excursion |
7a3de98ae801
(Info-search): If find invisible text, search again.
Richard M. Stallman <rms@gnu.org>
parents:
51784
diff
changeset
|
1356 (set-buffer (marker-buffer Info-tag-table-marker)) |
7a3de98ae801
(Info-search): If find invisible text, search again.
Richard M. Stallman <rms@gnu.org>
parents:
51784
diff
changeset
|
1357 (goto-char (point-min)) |
7a3de98ae801
(Info-search): If find invisible text, search again.
Richard M. Stallman <rms@gnu.org>
parents:
51784
diff
changeset
|
1358 (search-forward "\n\^_\nIndirect:") |
7a3de98ae801
(Info-search): If find invisible text, search again.
Richard M. Stallman <rms@gnu.org>
parents:
51784
diff
changeset
|
1359 (save-restriction |
7a3de98ae801
(Info-search): If find invisible text, search again.
Richard M. Stallman <rms@gnu.org>
parents:
51784
diff
changeset
|
1360 (narrow-to-region (point) |
7a3de98ae801
(Info-search): If find invisible text, search again.
Richard M. Stallman <rms@gnu.org>
parents:
51784
diff
changeset
|
1361 (progn (search-forward "\n\^_") |
7a3de98ae801
(Info-search): If find invisible text, search again.
Richard M. Stallman <rms@gnu.org>
parents:
51784
diff
changeset
|
1362 (1- (point)))) |
16981
643e0f90e153
Handle multiple Info buffers.
Richard M. Stallman <rms@gnu.org>
parents:
16790
diff
changeset
|
1363 (goto-char (point-min)) |
51805
7a3de98ae801
(Info-search): If find invisible text, search again.
Richard M. Stallman <rms@gnu.org>
parents:
51784
diff
changeset
|
1364 ;; Find the subfile we just searched. |
7a3de98ae801
(Info-search): If find invisible text, search again.
Richard M. Stallman <rms@gnu.org>
parents:
51784
diff
changeset
|
1365 (search-forward (concat "\n" osubfile ": ")) |
7a3de98ae801
(Info-search): If find invisible text, search again.
Richard M. Stallman <rms@gnu.org>
parents:
51784
diff
changeset
|
1366 ;; Skip that one. |
7a3de98ae801
(Info-search): If find invisible text, search again.
Richard M. Stallman <rms@gnu.org>
parents:
51784
diff
changeset
|
1367 (forward-line 1) |
7a3de98ae801
(Info-search): If find invisible text, search again.
Richard M. Stallman <rms@gnu.org>
parents:
51784
diff
changeset
|
1368 ;; Make a list of all following subfiles. |
7a3de98ae801
(Info-search): If find invisible text, search again.
Richard M. Stallman <rms@gnu.org>
parents:
51784
diff
changeset
|
1369 ;; Each elt has the form (VIRT-POSITION . SUBFILENAME). |
7a3de98ae801
(Info-search): If find invisible text, search again.
Richard M. Stallman <rms@gnu.org>
parents:
51784
diff
changeset
|
1370 (while (not (eobp)) |
7a3de98ae801
(Info-search): If find invisible text, search again.
Richard M. Stallman <rms@gnu.org>
parents:
51784
diff
changeset
|
1371 (re-search-forward "\\(^.*\\): [0-9]+$") |
7a3de98ae801
(Info-search): If find invisible text, search again.
Richard M. Stallman <rms@gnu.org>
parents:
51784
diff
changeset
|
1372 (goto-char (+ (match-end 1) 2)) |
7a3de98ae801
(Info-search): If find invisible text, search again.
Richard M. Stallman <rms@gnu.org>
parents:
51784
diff
changeset
|
1373 (setq list (cons (cons (+ (point-min) |
7a3de98ae801
(Info-search): If find invisible text, search again.
Richard M. Stallman <rms@gnu.org>
parents:
51784
diff
changeset
|
1374 (read (current-buffer))) |
7a3de98ae801
(Info-search): If find invisible text, search again.
Richard M. Stallman <rms@gnu.org>
parents:
51784
diff
changeset
|
1375 (match-string-no-properties 1)) |
7a3de98ae801
(Info-search): If find invisible text, search again.
Richard M. Stallman <rms@gnu.org>
parents:
51784
diff
changeset
|
1376 list)) |
7a3de98ae801
(Info-search): If find invisible text, search again.
Richard M. Stallman <rms@gnu.org>
parents:
51784
diff
changeset
|
1377 (goto-char (1+ (match-end 0)))) |
7a3de98ae801
(Info-search): If find invisible text, search again.
Richard M. Stallman <rms@gnu.org>
parents:
51784
diff
changeset
|
1378 ;; Put in forward order |
7a3de98ae801
(Info-search): If find invisible text, search again.
Richard M. Stallman <rms@gnu.org>
parents:
51784
diff
changeset
|
1379 (setq list (nreverse list)))) |
7a3de98ae801
(Info-search): If find invisible text, search again.
Richard M. Stallman <rms@gnu.org>
parents:
51784
diff
changeset
|
1380 (while list |
7a3de98ae801
(Info-search): If find invisible text, search again.
Richard M. Stallman <rms@gnu.org>
parents:
51784
diff
changeset
|
1381 (message "Searching subfile %s..." (cdr (car list))) |
7a3de98ae801
(Info-search): If find invisible text, search again.
Richard M. Stallman <rms@gnu.org>
parents:
51784
diff
changeset
|
1382 (Info-read-subfile (car (car list))) |
7a3de98ae801
(Info-search): If find invisible text, search again.
Richard M. Stallman <rms@gnu.org>
parents:
51784
diff
changeset
|
1383 (setq list (cdr list)) |
7a3de98ae801
(Info-search): If find invisible text, search again.
Richard M. Stallman <rms@gnu.org>
parents:
51784
diff
changeset
|
1384 (setq give-up nil found nil) |
7a3de98ae801
(Info-search): If find invisible text, search again.
Richard M. Stallman <rms@gnu.org>
parents:
51784
diff
changeset
|
1385 (while (and (not give-up) |
7a3de98ae801
(Info-search): If find invisible text, search again.
Richard M. Stallman <rms@gnu.org>
parents:
51784
diff
changeset
|
1386 (or (null found) |
7a3de98ae801
(Info-search): If find invisible text, search again.
Richard M. Stallman <rms@gnu.org>
parents:
51784
diff
changeset
|
1387 (isearch-range-invisible beg-found found))) |
24963
a78f0c2654d6
(Info-search): Don't lose with empty regexp.
Dave Love <fx@gnu.org>
parents:
24632
diff
changeset
|
1388 (if (re-search-forward regexp nil t) |
51805
7a3de98ae801
(Info-search): If find invisible text, search again.
Richard M. Stallman <rms@gnu.org>
parents:
51784
diff
changeset
|
1389 (setq found (point) beg-found (match-beginning 0)) |
7a3de98ae801
(Info-search): If find invisible text, search again.
Richard M. Stallman <rms@gnu.org>
parents:
51784
diff
changeset
|
1390 (setq give-up t))) |
7a3de98ae801
(Info-search): If find invisible text, search again.
Richard M. Stallman <rms@gnu.org>
parents:
51784
diff
changeset
|
1391 (if give-up |
7a3de98ae801
(Info-search): If find invisible text, search again.
Richard M. Stallman <rms@gnu.org>
parents:
51784
diff
changeset
|
1392 (setq found nil)) |
24963
a78f0c2654d6
(Info-search): Don't lose with empty regexp.
Dave Love <fx@gnu.org>
parents:
24632
diff
changeset
|
1393 (if found |
51805
7a3de98ae801
(Info-search): If find invisible text, search again.
Richard M. Stallman <rms@gnu.org>
parents:
51784
diff
changeset
|
1394 (setq list nil))) |
7a3de98ae801
(Info-search): If find invisible text, search again.
Richard M. Stallman <rms@gnu.org>
parents:
51784
diff
changeset
|
1395 (if found |
7a3de98ae801
(Info-search): If find invisible text, search again.
Richard M. Stallman <rms@gnu.org>
parents:
51784
diff
changeset
|
1396 (message "") |
7a3de98ae801
(Info-search): If find invisible text, search again.
Richard M. Stallman <rms@gnu.org>
parents:
51784
diff
changeset
|
1397 (signal 'search-failed (list regexp)))) |
7a3de98ae801
(Info-search): If find invisible text, search again.
Richard M. Stallman <rms@gnu.org>
parents:
51784
diff
changeset
|
1398 (if (not found) |
7a3de98ae801
(Info-search): If find invisible text, search again.
Richard M. Stallman <rms@gnu.org>
parents:
51784
diff
changeset
|
1399 (progn (Info-read-subfile osubfile) |
7a3de98ae801
(Info-search): If find invisible text, search again.
Richard M. Stallman <rms@gnu.org>
parents:
51784
diff
changeset
|
1400 (goto-char opoint) |
7a3de98ae801
(Info-search): If find invisible text, search again.
Richard M. Stallman <rms@gnu.org>
parents:
51784
diff
changeset
|
1401 (Info-select-node) |
7a3de98ae801
(Info-search): If find invisible text, search again.
Richard M. Stallman <rms@gnu.org>
parents:
51784
diff
changeset
|
1402 (set-window-start (selected-window) ostart))))) |
29446
009f1caf830f
Bind case-fold-search to t when searching in case
Gerd Moellmann <gerd@gnu.org>
parents:
29410
diff
changeset
|
1403 (widen) |
009f1caf830f
Bind case-fold-search to t when searching in case
Gerd Moellmann <gerd@gnu.org>
parents:
29410
diff
changeset
|
1404 (goto-char found) |
009f1caf830f
Bind case-fold-search to t when searching in case
Gerd Moellmann <gerd@gnu.org>
parents:
29410
diff
changeset
|
1405 (Info-select-node) |
009f1caf830f
Bind case-fold-search to t when searching in case
Gerd Moellmann <gerd@gnu.org>
parents:
29410
diff
changeset
|
1406 ;; Use string-equal, not equal, to ignore text props. |
009f1caf830f
Bind case-fold-search to t when searching in case
Gerd Moellmann <gerd@gnu.org>
parents:
29410
diff
changeset
|
1407 (or (and (string-equal onode Info-current-node) |
009f1caf830f
Bind case-fold-search to t when searching in case
Gerd Moellmann <gerd@gnu.org>
parents:
29410
diff
changeset
|
1408 (equal ofile Info-current-file)) |
009f1caf830f
Bind case-fold-search to t when searching in case
Gerd Moellmann <gerd@gnu.org>
parents:
29410
diff
changeset
|
1409 (setq Info-history (cons (list ofile onode opoint) |
009f1caf830f
Bind case-fold-search to t when searching in case
Gerd Moellmann <gerd@gnu.org>
parents:
29410
diff
changeset
|
1410 Info-history)))))) |
325 | 1411 |
1412 (defun Info-extract-pointer (name &optional errorname) | |
29621 | 1413 "Extract the value of the node-pointer named NAME. |
1414 If there is none, use ERRORNAME in the error message; | |
51735
204ae43066d1
(Info-following-node-name-re): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51731
diff
changeset
|
1415 if ERRORNAME is nil, just return nil." |
204ae43066d1
(Info-following-node-name-re): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51731
diff
changeset
|
1416 ;; Bind this in case the user sets it to nil. |
22951
19b3899582b4
Bind case-fold-search to t in many functions.
Richard M. Stallman <rms@gnu.org>
parents:
22902
diff
changeset
|
1417 (let ((case-fold-search t)) |
19b3899582b4
Bind case-fold-search to t in many functions.
Richard M. Stallman <rms@gnu.org>
parents:
22902
diff
changeset
|
1418 (save-excursion |
51735
204ae43066d1
(Info-following-node-name-re): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51731
diff
changeset
|
1419 (goto-char (point-min)) |
204ae43066d1
(Info-following-node-name-re): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51731
diff
changeset
|
1420 (let ((bound (point))) |
204ae43066d1
(Info-following-node-name-re): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51731
diff
changeset
|
1421 (forward-line 1) |
204ae43066d1
(Info-following-node-name-re): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51731
diff
changeset
|
1422 (cond ((re-search-backward |
204ae43066d1
(Info-following-node-name-re): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51731
diff
changeset
|
1423 (concat name ":" (Info-following-node-name-re)) bound t) |
204ae43066d1
(Info-following-node-name-re): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51731
diff
changeset
|
1424 (match-string 1)) |
204ae43066d1
(Info-following-node-name-re): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51731
diff
changeset
|
1425 ((not (eq errorname t)) |
204ae43066d1
(Info-following-node-name-re): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51731
diff
changeset
|
1426 (error "Node has no %s" |
204ae43066d1
(Info-following-node-name-re): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51731
diff
changeset
|
1427 (capitalize (or errorname name))))))))) |
325 | 1428 |
51735
204ae43066d1
(Info-following-node-name-re): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51731
diff
changeset
|
1429 (defun Info-following-node-name-re (&optional allowedchars) |
204ae43066d1
(Info-following-node-name-re): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51731
diff
changeset
|
1430 "Return a regexp matching a node name. |
29621 | 1431 ALLOWEDCHARS, if non-nil, goes within [...] to make a regexp |
51735
204ae43066d1
(Info-following-node-name-re): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51731
diff
changeset
|
1432 saying which chars may appear in the node name. |
204ae43066d1
(Info-following-node-name-re): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51731
diff
changeset
|
1433 Submatch 1 is the complete node name. |
204ae43066d1
(Info-following-node-name-re): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51731
diff
changeset
|
1434 Submatch 2 if non-nil is the parenthesized file name part of the node name. |
204ae43066d1
(Info-following-node-name-re): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51731
diff
changeset
|
1435 Submatch 3 is the local part of the node name. |
204ae43066d1
(Info-following-node-name-re): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51731
diff
changeset
|
1436 End of submatch 0, 1, and 3 are the same, so you can safely concat." |
204ae43066d1
(Info-following-node-name-re): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51731
diff
changeset
|
1437 (concat "[ \t]*" ;Skip leading space. |
204ae43066d1
(Info-following-node-name-re): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51731
diff
changeset
|
1438 "\\(\\(([^)]+)\\)?" ;Node name can start with a file name. |
204ae43066d1
(Info-following-node-name-re): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51731
diff
changeset
|
1439 "\\([" (or allowedchars "^,\t\n") "]*" ;Any number of allowed chars. |
204ae43066d1
(Info-following-node-name-re): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51731
diff
changeset
|
1440 "[" (or allowedchars "^,\t\n") " ]" ;The last char can't be a space. |
204ae43066d1
(Info-following-node-name-re): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51731
diff
changeset
|
1441 "\\|\\)\\)")) ;Allow empty node names. |
325 | 1442 |
52756
371ac8b3328e
(Info-following-node-name): New function.
Richard M. Stallman <rms@gnu.org>
parents:
52688
diff
changeset
|
1443 ;;; For compatibility; other files have used this name. |
371ac8b3328e
(Info-following-node-name): New function.
Richard M. Stallman <rms@gnu.org>
parents:
52688
diff
changeset
|
1444 (defun Info-following-node-name () |
371ac8b3328e
(Info-following-node-name): New function.
Richard M. Stallman <rms@gnu.org>
parents:
52688
diff
changeset
|
1445 (and (looking-at (Info-following-node-name-re)) |
371ac8b3328e
(Info-following-node-name): New function.
Richard M. Stallman <rms@gnu.org>
parents:
52688
diff
changeset
|
1446 (match-string 1))) |
371ac8b3328e
(Info-following-node-name): New function.
Richard M. Stallman <rms@gnu.org>
parents:
52688
diff
changeset
|
1447 |
325 | 1448 (defun Info-next () |
1449 "Go to the next node of this node." | |
1450 (interactive) | |
1451 (Info-goto-node (Info-extract-pointer "next"))) | |
1452 | |
1453 (defun Info-prev () | |
1454 "Go to the previous node of this node." | |
1455 (interactive) | |
1456 (Info-goto-node (Info-extract-pointer "prev[ious]*" "previous"))) | |
1457 | |
21910
702383d93b75
(Info-up): New arg SAME-FILE: don't move to different file.
Richard M. Stallman <rms@gnu.org>
parents:
21806
diff
changeset
|
1458 (defun Info-up (&optional same-file) |
702383d93b75
(Info-up): New arg SAME-FILE: don't move to different file.
Richard M. Stallman <rms@gnu.org>
parents:
21806
diff
changeset
|
1459 "Go to the superior node of this node. |
702383d93b75
(Info-up): New arg SAME-FILE: don't move to different file.
Richard M. Stallman <rms@gnu.org>
parents:
21806
diff
changeset
|
1460 If SAME-FILE is non-nil, do not move to a different Info file." |
325 | 1461 (interactive) |
21910
702383d93b75
(Info-up): New arg SAME-FILE: don't move to different file.
Richard M. Stallman <rms@gnu.org>
parents:
21806
diff
changeset
|
1462 (let ((node (Info-extract-pointer "up"))) |
26004
11f91800bec3
(Info-on-current-buffer): new entry point.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
25878
diff
changeset
|
1463 (and (or same-file (not (stringp Info-current-file))) |
21910
702383d93b75
(Info-up): New arg SAME-FILE: don't move to different file.
Richard M. Stallman <rms@gnu.org>
parents:
21806
diff
changeset
|
1464 (string-match "^(" node) |
702383d93b75
(Info-up): New arg SAME-FILE: don't move to different file.
Richard M. Stallman <rms@gnu.org>
parents:
21806
diff
changeset
|
1465 (error "Up node is in another Info file")) |
702383d93b75
(Info-up): New arg SAME-FILE: don't move to different file.
Richard M. Stallman <rms@gnu.org>
parents:
21806
diff
changeset
|
1466 (Info-goto-node node)) |
540 | 1467 (Info-restore-point Info-history)) |
325 | 1468 |
1469 (defun Info-last () | |
1470 "Go back to the last node visited." | |
1471 (interactive) | |
1472 (or Info-history | |
1473 (error "This is the first Info node you looked at")) | |
1474 (let (filename nodename opoint) | |
1475 (setq filename (car (car Info-history))) | |
1476 (setq nodename (car (cdr (car Info-history)))) | |
1477 (setq opoint (car (cdr (cdr (car Info-history))))) | |
1478 (setq Info-history (cdr Info-history)) | |
1479 (Info-find-node filename nodename) | |
1480 (setq Info-history (cdr Info-history)) | |
1481 (goto-char opoint))) | |
1482 | |
28558 | 1483 ;;;###autoload |
325 | 1484 (defun Info-directory () |
1485 "Go to the Info directory node." | |
1486 (interactive) | |
1487 (Info-find-node "dir" "top")) | |
1488 | |
1489 (defun Info-follow-reference (footnotename) | |
29621 | 1490 "Follow cross reference named FOOTNOTENAME to the node it refers to. |
1491 FOOTNOTENAME may be an abbreviation of the reference name." | |
325 | 1492 (interactive |
1493 (let ((completion-ignore-case t) | |
22951
19b3899582b4
Bind case-fold-search to t in many functions.
Richard M. Stallman <rms@gnu.org>
parents:
22902
diff
changeset
|
1494 (case-fold-search t) |
5555
38f8bfd91cca
(Info-follow-reference): If point is not in middle of a
Richard M. Stallman <rms@gnu.org>
parents:
5482
diff
changeset
|
1495 completions default alt-default (start-point (point)) str i bol eol) |
325 | 1496 (save-excursion |
5555
38f8bfd91cca
(Info-follow-reference): If point is not in middle of a
Richard M. Stallman <rms@gnu.org>
parents:
5482
diff
changeset
|
1497 ;; Store end and beginning of line. |
38f8bfd91cca
(Info-follow-reference): If point is not in middle of a
Richard M. Stallman <rms@gnu.org>
parents:
5482
diff
changeset
|
1498 (end-of-line) |
38f8bfd91cca
(Info-follow-reference): If point is not in middle of a
Richard M. Stallman <rms@gnu.org>
parents:
5482
diff
changeset
|
1499 (setq eol (point)) |
38f8bfd91cca
(Info-follow-reference): If point is not in middle of a
Richard M. Stallman <rms@gnu.org>
parents:
5482
diff
changeset
|
1500 (beginning-of-line) |
38f8bfd91cca
(Info-follow-reference): If point is not in middle of a
Richard M. Stallman <rms@gnu.org>
parents:
5482
diff
changeset
|
1501 (setq bol (point)) |
38f8bfd91cca
(Info-follow-reference): If point is not in middle of a
Richard M. Stallman <rms@gnu.org>
parents:
5482
diff
changeset
|
1502 |
325 | 1503 (goto-char (point-min)) |
1504 (while (re-search-forward "\\*note[ \n\t]*\\([^:]*\\):" nil t) | |
51735
204ae43066d1
(Info-following-node-name-re): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51731
diff
changeset
|
1505 (setq str (match-string-no-properties 1)) |
325 | 1506 ;; See if this one should be the default. |
1507 (and (null default) | |
5146
aa2236a14893
(Info-follow-reference): Correct one-off error in comparing start-point.
Richard M. Stallman <rms@gnu.org>
parents:
5091
diff
changeset
|
1508 (<= (match-beginning 0) start-point) |
325 | 1509 (<= start-point (point)) |
1510 (setq default t)) | |
5555
38f8bfd91cca
(Info-follow-reference): If point is not in middle of a
Richard M. Stallman <rms@gnu.org>
parents:
5482
diff
changeset
|
1511 ;; See if this one should be the alternate default. |
38f8bfd91cca
(Info-follow-reference): If point is not in middle of a
Richard M. Stallman <rms@gnu.org>
parents:
5482
diff
changeset
|
1512 (and (null alt-default) |
38f8bfd91cca
(Info-follow-reference): If point is not in middle of a
Richard M. Stallman <rms@gnu.org>
parents:
5482
diff
changeset
|
1513 (and (<= bol (match-beginning 0)) |
38f8bfd91cca
(Info-follow-reference): If point is not in middle of a
Richard M. Stallman <rms@gnu.org>
parents:
5482
diff
changeset
|
1514 (<= (point) eol)) |
38f8bfd91cca
(Info-follow-reference): If point is not in middle of a
Richard M. Stallman <rms@gnu.org>
parents:
5482
diff
changeset
|
1515 (setq alt-default t)) |
325 | 1516 (setq i 0) |
1517 (while (setq i (string-match "[ \n\t]+" str i)) | |
1518 (setq str (concat (substring str 0 i) " " | |
1519 (substring str (match-end 0)))) | |
1520 (setq i (1+ i))) | |
1521 ;; Record as a completion and perhaps as default. | |
1522 (if (eq default t) (setq default str)) | |
5555
38f8bfd91cca
(Info-follow-reference): If point is not in middle of a
Richard M. Stallman <rms@gnu.org>
parents:
5482
diff
changeset
|
1523 (if (eq alt-default t) (setq alt-default str)) |
16609
21c4e4e580a9
(Info-follow-reference): Add each cross-reference to
Karl Heuer <kwzh@gnu.org>
parents:
16590
diff
changeset
|
1524 ;; Don't add this string if it's a duplicate. |
51735
204ae43066d1
(Info-following-node-name-re): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51731
diff
changeset
|
1525 (or (assoc-string str completions t) |
204ae43066d1
(Info-following-node-name-re): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51731
diff
changeset
|
1526 (push str completions)))) |
5555
38f8bfd91cca
(Info-follow-reference): If point is not in middle of a
Richard M. Stallman <rms@gnu.org>
parents:
5482
diff
changeset
|
1527 ;; If no good default was found, try an alternate. |
38f8bfd91cca
(Info-follow-reference): If point is not in middle of a
Richard M. Stallman <rms@gnu.org>
parents:
5482
diff
changeset
|
1528 (or default |
38f8bfd91cca
(Info-follow-reference): If point is not in middle of a
Richard M. Stallman <rms@gnu.org>
parents:
5482
diff
changeset
|
1529 (setq default alt-default)) |
38f8bfd91cca
(Info-follow-reference): If point is not in middle of a
Richard M. Stallman <rms@gnu.org>
parents:
5482
diff
changeset
|
1530 ;; If only one cross-reference found, then make it default. |
38f8bfd91cca
(Info-follow-reference): If point is not in middle of a
Richard M. Stallman <rms@gnu.org>
parents:
5482
diff
changeset
|
1531 (if (eq (length completions) 1) |
51735
204ae43066d1
(Info-following-node-name-re): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51731
diff
changeset
|
1532 (setq default (car completions))) |
325 | 1533 (if completions |
3565
bd87ecca04f6
(Info-follow-reference): Fix completion defaulting.
Richard M. Stallman <rms@gnu.org>
parents:
3451
diff
changeset
|
1534 (let ((input (completing-read (if default |
39757
0597a7bc10a2
(Info-follow-reference): Display default values in prompts as
Miles Bader <miles@gnu.org>
parents:
39746
diff
changeset
|
1535 (concat |
0597a7bc10a2
(Info-follow-reference): Display default values in prompts as
Miles Bader <miles@gnu.org>
parents:
39746
diff
changeset
|
1536 "Follow reference named: (default " |
0597a7bc10a2
(Info-follow-reference): Display default values in prompts as
Miles Bader <miles@gnu.org>
parents:
39746
diff
changeset
|
1537 default ") ") |
3565
bd87ecca04f6
(Info-follow-reference): Fix completion defaulting.
Richard M. Stallman <rms@gnu.org>
parents:
3451
diff
changeset
|
1538 "Follow reference named: ") |
bd87ecca04f6
(Info-follow-reference): Fix completion defaulting.
Richard M. Stallman <rms@gnu.org>
parents:
3451
diff
changeset
|
1539 completions nil t))) |
bd87ecca04f6
(Info-follow-reference): Fix completion defaulting.
Richard M. Stallman <rms@gnu.org>
parents:
3451
diff
changeset
|
1540 (list (if (equal input "") |
bd87ecca04f6
(Info-follow-reference): Fix completion defaulting.
Richard M. Stallman <rms@gnu.org>
parents:
3451
diff
changeset
|
1541 default input))) |
325 | 1542 (error "No cross-references in this node")))) |
23038
10ad03c5d326
(Info-follow-reference): Nice error msg if there was no arg.
Richard M. Stallman <rms@gnu.org>
parents:
23019
diff
changeset
|
1543 |
10ad03c5d326
(Info-follow-reference): Nice error msg if there was no arg.
Richard M. Stallman <rms@gnu.org>
parents:
23019
diff
changeset
|
1544 (unless footnotename |
10ad03c5d326
(Info-follow-reference): Nice error msg if there was no arg.
Richard M. Stallman <rms@gnu.org>
parents:
23019
diff
changeset
|
1545 (error "No reference was specified")) |
10ad03c5d326
(Info-follow-reference): Nice error msg if there was no arg.
Richard M. Stallman <rms@gnu.org>
parents:
23019
diff
changeset
|
1546 |
51434
4c85e6a5a9d2
(Info-mode-hook): Obey obsolete `Info-fontify'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51310
diff
changeset
|
1547 (let (target i (str (concat "\\*note " (regexp-quote footnotename))) |
22951
19b3899582b4
Bind case-fold-search to t in many functions.
Richard M. Stallman <rms@gnu.org>
parents:
22902
diff
changeset
|
1548 (case-fold-search t)) |
325 | 1549 (while (setq i (string-match " " str i)) |
1550 (setq str (concat (substring str 0 i) "[ \t\n]+" (substring str (1+ i)))) | |
1551 (setq i (+ i 6))) | |
1552 (save-excursion | |
1553 (goto-char (point-min)) | |
1554 (or (re-search-forward str nil t) | |
1555 (error "No cross-reference named %s" footnotename)) | |
1556 (goto-char (+ (match-beginning 0) 5)) | |
1557 (setq target | |
51437
63b62b12e01c
(Info-extract-menu-node-name): Remove unused arg `errmessage'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51436
diff
changeset
|
1558 (Info-extract-menu-node-name t))) |
325 | 1559 (while (setq i (string-match "[ \t\n]+" target i)) |
1560 (setq target (concat (substring target 0 i) " " | |
1561 (substring target (match-end 0)))) | |
1562 (setq i (+ i 1))) | |
1563 (Info-goto-node target))) | |
1564 | |
51943
4ab63324776e
(Info-menu-entry-name-re): Allow newlines in menu entry names.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51805
diff
changeset
|
1565 (defconst Info-menu-entry-name-re "\\(?:[^:]\\|:[^:,.;() \t\n]\\)*" |
4ab63324776e
(Info-menu-entry-name-re): Allow newlines in menu entry names.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51805
diff
changeset
|
1566 ;; We allow newline because this is also used in Info-follow-reference, |
4ab63324776e
(Info-menu-entry-name-re): Allow newlines in menu entry names.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51805
diff
changeset
|
1567 ;; where the xref name might be wrapped over two lines. |
51735
204ae43066d1
(Info-following-node-name-re): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51731
diff
changeset
|
1568 "Regexp that matches a menu entry name upto but not including the colon. |
204ae43066d1
(Info-following-node-name-re): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51731
diff
changeset
|
1569 Because of ambiguities, this should be concatenated with something like |
204ae43066d1
(Info-following-node-name-re): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51731
diff
changeset
|
1570 `:' and `Info-following-node-name-re'.") |
204ae43066d1
(Info-following-node-name-re): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51731
diff
changeset
|
1571 |
51437
63b62b12e01c
(Info-extract-menu-node-name): Remove unused arg `errmessage'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51436
diff
changeset
|
1572 (defun Info-extract-menu-node-name (&optional multi-line) |
325 | 1573 (skip-chars-forward " \t\n") |
51735
204ae43066d1
(Info-following-node-name-re): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51731
diff
changeset
|
1574 (when (looking-at (concat Info-menu-entry-name-re ":\\(:\\|" |
204ae43066d1
(Info-following-node-name-re): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51731
diff
changeset
|
1575 (Info-following-node-name-re |
204ae43066d1
(Info-following-node-name-re): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51731
diff
changeset
|
1576 (if multi-line "^.,\t" "^.,\t\n")) "\\)")) |
204ae43066d1
(Info-following-node-name-re): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51731
diff
changeset
|
1577 (replace-regexp-in-string |
204ae43066d1
(Info-following-node-name-re): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51731
diff
changeset
|
1578 "[ \n]+" " " |
204ae43066d1
(Info-following-node-name-re): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51731
diff
changeset
|
1579 (or (match-string 2) |
204ae43066d1
(Info-following-node-name-re): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51731
diff
changeset
|
1580 ;; If the node name is the menu entry name (using `entry::'). |
204ae43066d1
(Info-following-node-name-re): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51731
diff
changeset
|
1581 (buffer-substring (match-beginning 0) (1- (match-beginning 1))))))) |
325 | 1582 |
7837
bad6366d4f16
(Info-complete-menu-item): New function.
Richard M. Stallman <rms@gnu.org>
parents:
7789
diff
changeset
|
1583 ;; No one calls this. |
1484
6c2a714566d3
Rename buffer-flush-undo to buffer-disable-undo.
Richard M. Stallman <rms@gnu.org>
parents:
1477
diff
changeset
|
1584 ;;(defun Info-menu-item-sequence (list) |
6c2a714566d3
Rename buffer-flush-undo to buffer-disable-undo.
Richard M. Stallman <rms@gnu.org>
parents:
1477
diff
changeset
|
1585 ;; (while list |
7837
bad6366d4f16
(Info-complete-menu-item): New function.
Richard M. Stallman <rms@gnu.org>
parents:
7789
diff
changeset
|
1586 ;; (Info-menu (car list)) |
1484
6c2a714566d3
Rename buffer-flush-undo to buffer-disable-undo.
Richard M. Stallman <rms@gnu.org>
parents:
1477
diff
changeset
|
1587 ;; (setq list (cdr list)))) |
325 | 1588 |
22761
ad14990a5efc
(Info-complete-menu-buffer): Add defvar.
Richard M. Stallman <rms@gnu.org>
parents:
22760
diff
changeset
|
1589 (defvar Info-complete-menu-buffer) |
41690
c9c839b993b9
(Info-complete-next-re, Info-complete-cache): New vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40967
diff
changeset
|
1590 (defvar Info-complete-next-re nil) |
c9c839b993b9
(Info-complete-next-re, Info-complete-cache): New vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40967
diff
changeset
|
1591 (defvar Info-complete-cache nil) |
22761
ad14990a5efc
(Info-complete-menu-buffer): Add defvar.
Richard M. Stallman <rms@gnu.org>
parents:
22760
diff
changeset
|
1592 |
51735
204ae43066d1
(Info-following-node-name-re): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51731
diff
changeset
|
1593 (defconst Info-node-spec-re |
204ae43066d1
(Info-following-node-name-re): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51731
diff
changeset
|
1594 (concat (Info-following-node-name-re "^.,:") "[,:.]") |
51437
63b62b12e01c
(Info-extract-menu-node-name): Remove unused arg `errmessage'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51436
diff
changeset
|
1595 "Regexp to match the text after a : until the terminating `.'.") |
63b62b12e01c
(Info-extract-menu-node-name): Remove unused arg `errmessage'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51436
diff
changeset
|
1596 |
7837
bad6366d4f16
(Info-complete-menu-item): New function.
Richard M. Stallman <rms@gnu.org>
parents:
7789
diff
changeset
|
1597 (defun Info-complete-menu-item (string predicate action) |
41798
b04cfaf9585d
Add explanatory comment.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41713
diff
changeset
|
1598 ;; This uses two dynamically bound variables: |
b04cfaf9585d
Add explanatory comment.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41713
diff
changeset
|
1599 ;; - `Info-complete-menu-buffer' which contains the buffer in which |
b04cfaf9585d
Add explanatory comment.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41713
diff
changeset
|
1600 ;; is the menu of items we're trying to complete. |
b04cfaf9585d
Add explanatory comment.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41713
diff
changeset
|
1601 ;; - `Info-complete-next-re' which, if non-nil, indicates that we should |
b04cfaf9585d
Add explanatory comment.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41713
diff
changeset
|
1602 ;; also look for menu items in subsequent nodes as long as those |
b04cfaf9585d
Add explanatory comment.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41713
diff
changeset
|
1603 ;; nodes' names match `Info-complete-next-re'. This feature is currently |
b04cfaf9585d
Add explanatory comment.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41713
diff
changeset
|
1604 ;; only used for completion in Info-index. |
51517
46101da952e7
(Info-complete-menu-item): Revert change of 2003-06-03.
Lute Kamstra <lute@gnu.org>
parents:
51513
diff
changeset
|
1605 |
46101da952e7
(Info-complete-menu-item): Revert change of 2003-06-03.
Lute Kamstra <lute@gnu.org>
parents:
51513
diff
changeset
|
1606 ;; Note that `Info-complete-menu-buffer' could be current already, |
46101da952e7
(Info-complete-menu-item): Revert change of 2003-06-03.
Lute Kamstra <lute@gnu.org>
parents:
51513
diff
changeset
|
1607 ;; so we want to save point. |
46101da952e7
(Info-complete-menu-item): Revert change of 2003-06-03.
Lute Kamstra <lute@gnu.org>
parents:
51513
diff
changeset
|
1608 (save-excursion |
46101da952e7
(Info-complete-menu-item): Revert change of 2003-06-03.
Lute Kamstra <lute@gnu.org>
parents:
51513
diff
changeset
|
1609 (set-buffer Info-complete-menu-buffer) |
41690
c9c839b993b9
(Info-complete-next-re, Info-complete-cache): New vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40967
diff
changeset
|
1610 (let ((completion-ignore-case t) |
c9c839b993b9
(Info-complete-next-re, Info-complete-cache): New vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40967
diff
changeset
|
1611 (case-fold-search t) |
c9c839b993b9
(Info-complete-next-re, Info-complete-cache): New vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40967
diff
changeset
|
1612 (orignode Info-current-node) |
c9c839b993b9
(Info-complete-next-re, Info-complete-cache): New vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40967
diff
changeset
|
1613 nextnode) |
c9c839b993b9
(Info-complete-next-re, Info-complete-cache): New vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40967
diff
changeset
|
1614 (goto-char (point-min)) |
c9c839b993b9
(Info-complete-next-re, Info-complete-cache): New vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40967
diff
changeset
|
1615 (search-forward "\n* Menu:") |
c9c839b993b9
(Info-complete-next-re, Info-complete-cache): New vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40967
diff
changeset
|
1616 (if (not (memq action '(nil t))) |
c9c839b993b9
(Info-complete-next-re, Info-complete-cache): New vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40967
diff
changeset
|
1617 (re-search-forward |
c9c839b993b9
(Info-complete-next-re, Info-complete-cache): New vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40967
diff
changeset
|
1618 (concat "\n\\* +" (regexp-quote string) ":") nil t) |
c9c839b993b9
(Info-complete-next-re, Info-complete-cache): New vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40967
diff
changeset
|
1619 (let ((pattern (concat "\n\\* +\\(" |
c9c839b993b9
(Info-complete-next-re, Info-complete-cache): New vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40967
diff
changeset
|
1620 (regexp-quote string) |
51735
204ae43066d1
(Info-following-node-name-re): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51731
diff
changeset
|
1621 Info-menu-entry-name-re "\\):" Info-node-spec-re)) |
41690
c9c839b993b9
(Info-complete-next-re, Info-complete-cache): New vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40967
diff
changeset
|
1622 completions) |
c9c839b993b9
(Info-complete-next-re, Info-complete-cache): New vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40967
diff
changeset
|
1623 ;; Check the cache. |
c9c839b993b9
(Info-complete-next-re, Info-complete-cache): New vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40967
diff
changeset
|
1624 (if (and (equal (nth 0 Info-complete-cache) Info-current-file) |
c9c839b993b9
(Info-complete-next-re, Info-complete-cache): New vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40967
diff
changeset
|
1625 (equal (nth 1 Info-complete-cache) Info-current-node) |
c9c839b993b9
(Info-complete-next-re, Info-complete-cache): New vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40967
diff
changeset
|
1626 (equal (nth 2 Info-complete-cache) Info-complete-next-re) |
c9c839b993b9
(Info-complete-next-re, Info-complete-cache): New vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40967
diff
changeset
|
1627 (let ((prev (nth 3 Info-complete-cache))) |
c9c839b993b9
(Info-complete-next-re, Info-complete-cache): New vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40967
diff
changeset
|
1628 (eq t (compare-strings string 0 (length prev) |
c9c839b993b9
(Info-complete-next-re, Info-complete-cache): New vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40967
diff
changeset
|
1629 prev 0 nil t)))) |
c9c839b993b9
(Info-complete-next-re, Info-complete-cache): New vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40967
diff
changeset
|
1630 ;; We can reuse the previous list. |
c9c839b993b9
(Info-complete-next-re, Info-complete-cache): New vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40967
diff
changeset
|
1631 (setq completions (nth 4 Info-complete-cache)) |
c9c839b993b9
(Info-complete-next-re, Info-complete-cache): New vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40967
diff
changeset
|
1632 ;; The cache can't be used. |
c9c839b993b9
(Info-complete-next-re, Info-complete-cache): New vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40967
diff
changeset
|
1633 (while |
c9c839b993b9
(Info-complete-next-re, Info-complete-cache): New vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40967
diff
changeset
|
1634 (progn |
c9c839b993b9
(Info-complete-next-re, Info-complete-cache): New vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40967
diff
changeset
|
1635 (while (re-search-forward pattern nil t) |
45014
a590e8ab89d0
(Info-find-in-tag-table-1, Info-read-subfile): Use point-min.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44902
diff
changeset
|
1636 (push (match-string-no-properties 1) |
41690
c9c839b993b9
(Info-complete-next-re, Info-complete-cache): New vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40967
diff
changeset
|
1637 completions)) |
c9c839b993b9
(Info-complete-next-re, Info-complete-cache): New vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40967
diff
changeset
|
1638 ;; Check subsequent nodes if applicable. |
c9c839b993b9
(Info-complete-next-re, Info-complete-cache): New vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40967
diff
changeset
|
1639 (and Info-complete-next-re |
c9c839b993b9
(Info-complete-next-re, Info-complete-cache): New vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40967
diff
changeset
|
1640 (setq nextnode (Info-extract-pointer "next" t)) |
c9c839b993b9
(Info-complete-next-re, Info-complete-cache): New vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40967
diff
changeset
|
1641 (string-match Info-complete-next-re nextnode))) |
c9c839b993b9
(Info-complete-next-re, Info-complete-cache): New vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40967
diff
changeset
|
1642 (Info-goto-node nextnode)) |
c9c839b993b9
(Info-complete-next-re, Info-complete-cache): New vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40967
diff
changeset
|
1643 ;; Go back to the start node (for the next completion). |
c9c839b993b9
(Info-complete-next-re, Info-complete-cache): New vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40967
diff
changeset
|
1644 (unless (equal Info-current-node orignode) |
c9c839b993b9
(Info-complete-next-re, Info-complete-cache): New vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40967
diff
changeset
|
1645 (Info-goto-node orignode)) |
c9c839b993b9
(Info-complete-next-re, Info-complete-cache): New vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40967
diff
changeset
|
1646 ;; Update the cache. |
48977
ef739be93187
(Info-complete-menu-item): Make `Info-complete-cache' a buffer-local variable.
Miles Bader <miles@gnu.org>
parents:
48933
diff
changeset
|
1647 (set (make-local-variable 'Info-complete-cache) |
ef739be93187
(Info-complete-menu-item): Make `Info-complete-cache' a buffer-local variable.
Miles Bader <miles@gnu.org>
parents:
48933
diff
changeset
|
1648 (list Info-current-file Info-current-node |
ef739be93187
(Info-complete-menu-item): Make `Info-complete-cache' a buffer-local variable.
Miles Bader <miles@gnu.org>
parents:
48933
diff
changeset
|
1649 Info-complete-next-re string completions))) |
41690
c9c839b993b9
(Info-complete-next-re, Info-complete-cache): New vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40967
diff
changeset
|
1650 (if action |
c9c839b993b9
(Info-complete-next-re, Info-complete-cache): New vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40967
diff
changeset
|
1651 (all-completions string completions predicate) |
c9c839b993b9
(Info-complete-next-re, Info-complete-cache): New vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40967
diff
changeset
|
1652 (try-completion string completions predicate))))))) |
7837
bad6366d4f16
(Info-complete-menu-item): New function.
Richard M. Stallman <rms@gnu.org>
parents:
7789
diff
changeset
|
1653 |
bad6366d4f16
(Info-complete-menu-item): New function.
Richard M. Stallman <rms@gnu.org>
parents:
7789
diff
changeset
|
1654 |
26004
11f91800bec3
(Info-on-current-buffer): new entry point.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
25878
diff
changeset
|
1655 (defun Info-menu (menu-item &optional fork) |
39382
18515f20ccce
(Info-goto-node, Info-menu): Doc fix. Suggested by
Eli Zaretskii <eliz@gnu.org>
parents:
39364
diff
changeset
|
1656 "Go to the node pointed to by the menu item named (or abbreviated) MENU-ITEM. |
18515f20ccce
(Info-goto-node, Info-menu): Doc fix. Suggested by
Eli Zaretskii <eliz@gnu.org>
parents:
39364
diff
changeset
|
1657 The menu item should one of those listed in the current node's menu. |
18515f20ccce
(Info-goto-node, Info-menu): Doc fix. Suggested by
Eli Zaretskii <eliz@gnu.org>
parents:
39364
diff
changeset
|
1658 Completion is allowed, and the default menu item is the one point is on. |
32286
c0b19a2770ca
(Info-goto-node, Info-menu): Doc fix.
Dave Love <fx@gnu.org>
parents:
32007
diff
changeset
|
1659 If FORK is non-nil (interactively with a prefix arg), show the node in |
c0b19a2770ca
(Info-goto-node, Info-menu): Doc fix.
Dave Love <fx@gnu.org>
parents:
32007
diff
changeset
|
1660 a new info buffer. If FORK is a string, it is the name to use for the |
c0b19a2770ca
(Info-goto-node, Info-menu): Doc fix.
Dave Love <fx@gnu.org>
parents:
32007
diff
changeset
|
1661 new buffer." |
325 | 1662 (interactive |
1663 (let ((completions '()) | |
1664 ;; If point is within a menu item, use that item as the default | |
1665 (default nil) | |
1666 (p (point)) | |
10957
6d3568e33019
(Info-menu): Bind beg with let.
Richard M. Stallman <rms@gnu.org>
parents:
10918
diff
changeset
|
1667 beg |
29446
009f1caf830f
Bind case-fold-search to t when searching in case
Gerd Moellmann <gerd@gnu.org>
parents:
29410
diff
changeset
|
1668 (last nil) |
009f1caf830f
Bind case-fold-search to t when searching in case
Gerd Moellmann <gerd@gnu.org>
parents:
29410
diff
changeset
|
1669 (case-fold-search t)) |
325 | 1670 (save-excursion |
1671 (goto-char (point-min)) | |
1672 (if (not (search-forward "\n* menu:" nil t)) | |
1673 (error "No menu in this node")) | |
7837
bad6366d4f16
(Info-complete-menu-item): New function.
Richard M. Stallman <rms@gnu.org>
parents:
7789
diff
changeset
|
1674 (setq beg (point)) |
bad6366d4f16
(Info-complete-menu-item): New function.
Richard M. Stallman <rms@gnu.org>
parents:
7789
diff
changeset
|
1675 (and (< (point) p) |
bad6366d4f16
(Info-complete-menu-item): New function.
Richard M. Stallman <rms@gnu.org>
parents:
7789
diff
changeset
|
1676 (save-excursion |
bad6366d4f16
(Info-complete-menu-item): New function.
Richard M. Stallman <rms@gnu.org>
parents:
7789
diff
changeset
|
1677 (goto-char p) |
bad6366d4f16
(Info-complete-menu-item): New function.
Richard M. Stallman <rms@gnu.org>
parents:
7789
diff
changeset
|
1678 (end-of-line) |
51784
abcb358beb61
(Info-menu): Use Info-menu-entry-name-re.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51760
diff
changeset
|
1679 (if (re-search-backward (concat "\n\\* +\\(" |
abcb358beb61
(Info-menu): Use Info-menu-entry-name-re.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51760
diff
changeset
|
1680 Info-menu-entry-name-re |
abcb358beb61
(Info-menu): Use Info-menu-entry-name-re.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51760
diff
changeset
|
1681 "\\):") beg t) |
26580
d779cb4aa2ae
(Info-build-node-completions, Info-search, Info-follow-reference)
Dave Love <fx@gnu.org>
parents:
26172
diff
changeset
|
1682 (setq default (match-string-no-properties 1)))))) |
325 | 1683 (let ((item nil)) |
1684 (while (null item) | |
7837
bad6366d4f16
(Info-complete-menu-item): New function.
Richard M. Stallman <rms@gnu.org>
parents:
7789
diff
changeset
|
1685 (setq item (let ((completion-ignore-case t) |
bad6366d4f16
(Info-complete-menu-item): New function.
Richard M. Stallman <rms@gnu.org>
parents:
7789
diff
changeset
|
1686 (Info-complete-menu-buffer (current-buffer))) |
325 | 1687 (completing-read (if default |
1688 (format "Menu item (default %s): " | |
1689 default) | |
29446
009f1caf830f
Bind case-fold-search to t when searching in case
Gerd Moellmann <gerd@gnu.org>
parents:
29410
diff
changeset
|
1690 "Menu item: ") |
7837
bad6366d4f16
(Info-complete-menu-item): New function.
Richard M. Stallman <rms@gnu.org>
parents:
7789
diff
changeset
|
1691 'Info-complete-menu-item nil t))) |
540 | 1692 ;; we rely on the fact that completing-read accepts an input |
1693 ;; of "" even when the require-match argument is true and "" | |
1694 ;; is not a valid possibility | |
325 | 1695 (if (string= item "") |
1696 (if default | |
1697 (setq item default) | |
29446
009f1caf830f
Bind case-fold-search to t when searching in case
Gerd Moellmann <gerd@gnu.org>
parents:
29410
diff
changeset
|
1698 ;; ask again |
009f1caf830f
Bind case-fold-search to t when searching in case
Gerd Moellmann <gerd@gnu.org>
parents:
29410
diff
changeset
|
1699 (setq item nil)))) |
26004
11f91800bec3
(Info-on-current-buffer): new entry point.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
25878
diff
changeset
|
1700 (list item current-prefix-arg)))) |
325 | 1701 ;; there is a problem here in that if several menu items have the same |
1702 ;; name you can only go to the node of the first with this command. | |
26004
11f91800bec3
(Info-on-current-buffer): new entry point.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
25878
diff
changeset
|
1703 (Info-goto-node (Info-extract-menu-item menu-item) (if fork menu-item))) |
28943
36fd90774cf7
(debug-ignored-errors): more errors to ignore.
Sam Steingold <sds@gnu.org>
parents:
28559
diff
changeset
|
1704 |
325 | 1705 (defun Info-extract-menu-item (menu-item) |
1706 (setq menu-item (regexp-quote menu-item)) | |
22951
19b3899582b4
Bind case-fold-search to t in many functions.
Richard M. Stallman <rms@gnu.org>
parents:
22902
diff
changeset
|
1707 (let ((case-fold-search t)) |
19b3899582b4
Bind case-fold-search to t in many functions.
Richard M. Stallman <rms@gnu.org>
parents:
22902
diff
changeset
|
1708 (save-excursion |
29446
009f1caf830f
Bind case-fold-search to t when searching in case
Gerd Moellmann <gerd@gnu.org>
parents:
29410
diff
changeset
|
1709 (let ((case-fold-search t)) |
009f1caf830f
Bind case-fold-search to t when searching in case
Gerd Moellmann <gerd@gnu.org>
parents:
29410
diff
changeset
|
1710 (goto-char (point-min)) |
009f1caf830f
Bind case-fold-search to t when searching in case
Gerd Moellmann <gerd@gnu.org>
parents:
29410
diff
changeset
|
1711 (or (search-forward "\n* menu:" nil t) |
009f1caf830f
Bind case-fold-search to t when searching in case
Gerd Moellmann <gerd@gnu.org>
parents:
29410
diff
changeset
|
1712 (error "No menu in this node")) |
009f1caf830f
Bind case-fold-search to t when searching in case
Gerd Moellmann <gerd@gnu.org>
parents:
29410
diff
changeset
|
1713 (or (re-search-forward (concat "\n\\* +" menu-item ":") nil t) |
009f1caf830f
Bind case-fold-search to t when searching in case
Gerd Moellmann <gerd@gnu.org>
parents:
29410
diff
changeset
|
1714 (re-search-forward (concat "\n\\* +" menu-item) nil t) |
009f1caf830f
Bind case-fold-search to t when searching in case
Gerd Moellmann <gerd@gnu.org>
parents:
29410
diff
changeset
|
1715 (error "No such item in menu")) |
009f1caf830f
Bind case-fold-search to t when searching in case
Gerd Moellmann <gerd@gnu.org>
parents:
29410
diff
changeset
|
1716 (beginning-of-line) |
009f1caf830f
Bind case-fold-search to t when searching in case
Gerd Moellmann <gerd@gnu.org>
parents:
29410
diff
changeset
|
1717 (forward-char 2) |
009f1caf830f
Bind case-fold-search to t when searching in case
Gerd Moellmann <gerd@gnu.org>
parents:
29410
diff
changeset
|
1718 (Info-extract-menu-node-name))))) |
325 | 1719 |
1720 ;; If COUNT is nil, use the last item in the menu. | |
1721 (defun Info-extract-menu-counting (count) | |
22951
19b3899582b4
Bind case-fold-search to t in many functions.
Richard M. Stallman <rms@gnu.org>
parents:
22902
diff
changeset
|
1722 (let ((case-fold-search t)) |
19b3899582b4
Bind case-fold-search to t in many functions.
Richard M. Stallman <rms@gnu.org>
parents:
22902
diff
changeset
|
1723 (save-excursion |
29446
009f1caf830f
Bind case-fold-search to t when searching in case
Gerd Moellmann <gerd@gnu.org>
parents:
29410
diff
changeset
|
1724 (let ((case-fold-search t)) |
009f1caf830f
Bind case-fold-search to t when searching in case
Gerd Moellmann <gerd@gnu.org>
parents:
29410
diff
changeset
|
1725 (goto-char (point-min)) |
009f1caf830f
Bind case-fold-search to t when searching in case
Gerd Moellmann <gerd@gnu.org>
parents:
29410
diff
changeset
|
1726 (or (search-forward "\n* menu:" nil t) |
009f1caf830f
Bind case-fold-search to t when searching in case
Gerd Moellmann <gerd@gnu.org>
parents:
29410
diff
changeset
|
1727 (error "No menu in this node")) |
009f1caf830f
Bind case-fold-search to t when searching in case
Gerd Moellmann <gerd@gnu.org>
parents:
29410
diff
changeset
|
1728 (if count |
009f1caf830f
Bind case-fold-search to t when searching in case
Gerd Moellmann <gerd@gnu.org>
parents:
29410
diff
changeset
|
1729 (or (search-forward "\n* " nil t count) |
009f1caf830f
Bind case-fold-search to t when searching in case
Gerd Moellmann <gerd@gnu.org>
parents:
29410
diff
changeset
|
1730 (error "Too few items in menu")) |
009f1caf830f
Bind case-fold-search to t when searching in case
Gerd Moellmann <gerd@gnu.org>
parents:
29410
diff
changeset
|
1731 (while (search-forward "\n* " nil t) |
009f1caf830f
Bind case-fold-search to t when searching in case
Gerd Moellmann <gerd@gnu.org>
parents:
29410
diff
changeset
|
1732 nil)) |
009f1caf830f
Bind case-fold-search to t when searching in case
Gerd Moellmann <gerd@gnu.org>
parents:
29410
diff
changeset
|
1733 (Info-extract-menu-node-name))))) |
325 | 1734 |
1666
c12fbca81b63
(Info-{first,second,third,fourth,fifth}-menu-item): Removed.
Roland McGrath <roland@gnu.org>
parents:
1613
diff
changeset
|
1735 (defun Info-nth-menu-item () |
c12fbca81b63
(Info-{first,second,third,fourth,fifth}-menu-item): Removed.
Roland McGrath <roland@gnu.org>
parents:
1613
diff
changeset
|
1736 "Go to the node of the Nth menu item. |
c12fbca81b63
(Info-{first,second,third,fourth,fifth}-menu-item): Removed.
Roland McGrath <roland@gnu.org>
parents:
1613
diff
changeset
|
1737 N is the digit argument used to invoke this command." |
325 | 1738 (interactive) |
1666
c12fbca81b63
(Info-{first,second,third,fourth,fifth}-menu-item): Removed.
Roland McGrath <roland@gnu.org>
parents:
1613
diff
changeset
|
1739 (Info-goto-node |
c12fbca81b63
(Info-{first,second,third,fourth,fifth}-menu-item): Removed.
Roland McGrath <roland@gnu.org>
parents:
1613
diff
changeset
|
1740 (Info-extract-menu-counting |
c12fbca81b63
(Info-{first,second,third,fourth,fifth}-menu-item): Removed.
Roland McGrath <roland@gnu.org>
parents:
1613
diff
changeset
|
1741 (- (aref (this-command-keys) (1- (length (this-command-keys)))) ?0)))) |
325 | 1742 |
1743 (defun Info-top-node () | |
1744 "Go to the Top node of this file." | |
1745 (interactive) | |
1746 (Info-goto-node "Top")) | |
1747 | |
1748 (defun Info-final-node () | |
1749 "Go to the final node in this file." | |
1750 (interactive) | |
1751 (Info-goto-node "Top") | |
29446
009f1caf830f
Bind case-fold-search to t when searching in case
Gerd Moellmann <gerd@gnu.org>
parents:
29410
diff
changeset
|
1752 (let ((Info-history nil) |
009f1caf830f
Bind case-fold-search to t when searching in case
Gerd Moellmann <gerd@gnu.org>
parents:
29410
diff
changeset
|
1753 (case-fold-search t)) |
325 | 1754 ;; Go to the last node in the menu of Top. |
1755 (Info-goto-node (Info-extract-menu-counting nil)) | |
1756 ;; If the last node in the menu is not last in pointer structure, | |
28943
36fd90774cf7
(debug-ignored-errors): more errors to ignore.
Sam Steingold <sds@gnu.org>
parents:
28559
diff
changeset
|
1757 ;; move forward until we can't go any farther. |
325 | 1758 (while (Info-forward-node t t) nil) |
1759 ;; Then keep moving down to last subnode, unless we reach an index. | |
1760 (while (and (not (string-match "\\<index\\>" Info-current-node)) | |
1761 (save-excursion (search-forward "\n* Menu:" nil t))) | |
1762 (Info-goto-node (Info-extract-menu-counting nil))))) | |
1763 | |
1764 (defun Info-forward-node (&optional not-down no-error) | |
1765 "Go forward one node, considering all nodes as forming one sequence." | |
1766 (interactive) | |
1767 (goto-char (point-min)) | |
1768 (forward-line 1) | |
29446
009f1caf830f
Bind case-fold-search to t when searching in case
Gerd Moellmann <gerd@gnu.org>
parents:
29410
diff
changeset
|
1769 (let ((case-fold-search t)) |
009f1caf830f
Bind case-fold-search to t when searching in case
Gerd Moellmann <gerd@gnu.org>
parents:
29410
diff
changeset
|
1770 ;; three possibilities, in order of priority: |
009f1caf830f
Bind case-fold-search to t when searching in case
Gerd Moellmann <gerd@gnu.org>
parents:
29410
diff
changeset
|
1771 ;; 1. next node is in a menu in this node (but not in an index) |
009f1caf830f
Bind case-fold-search to t when searching in case
Gerd Moellmann <gerd@gnu.org>
parents:
29410
diff
changeset
|
1772 ;; 2. next node is next at same level |
009f1caf830f
Bind case-fold-search to t when searching in case
Gerd Moellmann <gerd@gnu.org>
parents:
29410
diff
changeset
|
1773 ;; 3. next node is up and next |
009f1caf830f
Bind case-fold-search to t when searching in case
Gerd Moellmann <gerd@gnu.org>
parents:
29410
diff
changeset
|
1774 (cond ((and (not not-down) |
009f1caf830f
Bind case-fold-search to t when searching in case
Gerd Moellmann <gerd@gnu.org>
parents:
29410
diff
changeset
|
1775 (save-excursion (search-forward "\n* menu:" nil t)) |
009f1caf830f
Bind case-fold-search to t when searching in case
Gerd Moellmann <gerd@gnu.org>
parents:
29410
diff
changeset
|
1776 (not (string-match "\\<index\\>" Info-current-node))) |
009f1caf830f
Bind case-fold-search to t when searching in case
Gerd Moellmann <gerd@gnu.org>
parents:
29410
diff
changeset
|
1777 (Info-goto-node (Info-extract-menu-counting 1)) |
009f1caf830f
Bind case-fold-search to t when searching in case
Gerd Moellmann <gerd@gnu.org>
parents:
29410
diff
changeset
|
1778 t) |
48135
2c6154347319
(Info-streamline-headings): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48118
diff
changeset
|
1779 ((save-excursion (search-backward "next:" nil t)) |
29446
009f1caf830f
Bind case-fold-search to t when searching in case
Gerd Moellmann <gerd@gnu.org>
parents:
29410
diff
changeset
|
1780 (Info-next) |
009f1caf830f
Bind case-fold-search to t when searching in case
Gerd Moellmann <gerd@gnu.org>
parents:
29410
diff
changeset
|
1781 t) |
48135
2c6154347319
(Info-streamline-headings): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48118
diff
changeset
|
1782 ((and (save-excursion (search-backward "up:" nil t)) |
29446
009f1caf830f
Bind case-fold-search to t when searching in case
Gerd Moellmann <gerd@gnu.org>
parents:
29410
diff
changeset
|
1783 ;; Use string-equal, not equal, to ignore text props. |
009f1caf830f
Bind case-fold-search to t when searching in case
Gerd Moellmann <gerd@gnu.org>
parents:
29410
diff
changeset
|
1784 (not (string-equal (downcase (Info-extract-pointer "up")) |
009f1caf830f
Bind case-fold-search to t when searching in case
Gerd Moellmann <gerd@gnu.org>
parents:
29410
diff
changeset
|
1785 "top"))) |
009f1caf830f
Bind case-fold-search to t when searching in case
Gerd Moellmann <gerd@gnu.org>
parents:
29410
diff
changeset
|
1786 (let ((old-node Info-current-node)) |
009f1caf830f
Bind case-fold-search to t when searching in case
Gerd Moellmann <gerd@gnu.org>
parents:
29410
diff
changeset
|
1787 (Info-up) |
009f1caf830f
Bind case-fold-search to t when searching in case
Gerd Moellmann <gerd@gnu.org>
parents:
29410
diff
changeset
|
1788 (let (Info-history success) |
009f1caf830f
Bind case-fold-search to t when searching in case
Gerd Moellmann <gerd@gnu.org>
parents:
29410
diff
changeset
|
1789 (unwind-protect |
009f1caf830f
Bind case-fold-search to t when searching in case
Gerd Moellmann <gerd@gnu.org>
parents:
29410
diff
changeset
|
1790 (setq success (Info-forward-node t no-error)) |
009f1caf830f
Bind case-fold-search to t when searching in case
Gerd Moellmann <gerd@gnu.org>
parents:
29410
diff
changeset
|
1791 (or success (Info-goto-node old-node)))))) |
009f1caf830f
Bind case-fold-search to t when searching in case
Gerd Moellmann <gerd@gnu.org>
parents:
29410
diff
changeset
|
1792 (no-error nil) |
009f1caf830f
Bind case-fold-search to t when searching in case
Gerd Moellmann <gerd@gnu.org>
parents:
29410
diff
changeset
|
1793 (t (error "No pointer forward from this node"))))) |
325 | 1794 |
1795 (defun Info-backward-node () | |
1796 "Go backward one node, considering all nodes as forming one sequence." | |
1797 (interactive) | |
1798 (let ((prevnode (Info-extract-pointer "prev[ious]*" t)) | |
29446
009f1caf830f
Bind case-fold-search to t when searching in case
Gerd Moellmann <gerd@gnu.org>
parents:
29410
diff
changeset
|
1799 (upnode (Info-extract-pointer "up" t)) |
009f1caf830f
Bind case-fold-search to t when searching in case
Gerd Moellmann <gerd@gnu.org>
parents:
29410
diff
changeset
|
1800 (case-fold-search t)) |
325 | 1801 (cond ((and upnode (string-match "(" upnode)) |
1802 (error "First node in file")) | |
1803 ((and upnode (or (null prevnode) | |
11527
7956811d4d9a
(info-insert-file-contents): Set default-directory
Richard M. Stallman <rms@gnu.org>
parents:
11064
diff
changeset
|
1804 ;; Use string-equal, not equal, |
7956811d4d9a
(info-insert-file-contents): Set default-directory
Richard M. Stallman <rms@gnu.org>
parents:
11064
diff
changeset
|
1805 ;; to ignore text properties. |
7956811d4d9a
(info-insert-file-contents): Set default-directory
Richard M. Stallman <rms@gnu.org>
parents:
11064
diff
changeset
|
1806 (string-equal (downcase prevnode) |
7956811d4d9a
(info-insert-file-contents): Set default-directory
Richard M. Stallman <rms@gnu.org>
parents:
11064
diff
changeset
|
1807 (downcase upnode)))) |
325 | 1808 (Info-up)) |
1809 (prevnode | |
1810 ;; If we move back at the same level, | |
1811 ;; go down to find the last subnode*. | |
1812 (Info-prev) | |
1813 (let (Info-history) | |
1814 (while (and (not (string-match "\\<index\\>" Info-current-node)) | |
1815 (save-excursion (search-forward "\n* Menu:" nil t))) | |
1816 (Info-goto-node (Info-extract-menu-counting nil))))) | |
1817 (t | |
1818 (error "No pointer backward from this node"))))) | |
1819 | |
1820 (defun Info-exit () | |
1821 "Exit Info by selecting some other buffer." | |
1822 (interactive) | |
4410
25fb71fc2643
(Info-fontify-node): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4261
diff
changeset
|
1823 (if Info-standalone |
25fb71fc2643
(Info-fontify-node): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4261
diff
changeset
|
1824 (save-buffers-kill-emacs) |
22331 | 1825 (quit-window))) |
325 | 1826 |
929
27262a6c632a
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
846
diff
changeset
|
1827 (defun Info-next-menu-item () |
47794
c460856d1bfd
(Info-next-menu-item, Info-last-menu-item)
John Paul Wallington <jpw@pobox.com>
parents:
47376
diff
changeset
|
1828 "Go to the node of the next menu item." |
929
27262a6c632a
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
846
diff
changeset
|
1829 (interactive) |
29621 | 1830 ;; Bind this in case the user sets it to nil. |
29446
009f1caf830f
Bind case-fold-search to t when searching in case
Gerd Moellmann <gerd@gnu.org>
parents:
29410
diff
changeset
|
1831 (let* ((case-fold-search t) |
009f1caf830f
Bind case-fold-search to t when searching in case
Gerd Moellmann <gerd@gnu.org>
parents:
29410
diff
changeset
|
1832 (node |
009f1caf830f
Bind case-fold-search to t when searching in case
Gerd Moellmann <gerd@gnu.org>
parents:
29410
diff
changeset
|
1833 (save-excursion |
009f1caf830f
Bind case-fold-search to t when searching in case
Gerd Moellmann <gerd@gnu.org>
parents:
29410
diff
changeset
|
1834 (forward-line -1) |
009f1caf830f
Bind case-fold-search to t when searching in case
Gerd Moellmann <gerd@gnu.org>
parents:
29410
diff
changeset
|
1835 (search-forward "\n* menu:" nil t) |
009f1caf830f
Bind case-fold-search to t when searching in case
Gerd Moellmann <gerd@gnu.org>
parents:
29410
diff
changeset
|
1836 (and (search-forward "\n* " nil t) |
009f1caf830f
Bind case-fold-search to t when searching in case
Gerd Moellmann <gerd@gnu.org>
parents:
29410
diff
changeset
|
1837 (Info-extract-menu-node-name))))) |
23533
10a3478e3432
(Info-next-menu-item): Stay on top of node.
Richard M. Stallman <rms@gnu.org>
parents:
23416
diff
changeset
|
1838 (if node (Info-goto-node node) |
10a3478e3432
(Info-next-menu-item): Stay on top of node.
Richard M. Stallman <rms@gnu.org>
parents:
23416
diff
changeset
|
1839 (error "No more items in menu")))) |
929
27262a6c632a
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
846
diff
changeset
|
1840 |
27262a6c632a
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
846
diff
changeset
|
1841 (defun Info-last-menu-item () |
47794
c460856d1bfd
(Info-next-menu-item, Info-last-menu-item)
John Paul Wallington <jpw@pobox.com>
parents:
47376
diff
changeset
|
1842 "Go to the node of the previous menu item." |
929
27262a6c632a
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
846
diff
changeset
|
1843 (interactive) |
27262a6c632a
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
846
diff
changeset
|
1844 (save-excursion |
27262a6c632a
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
846
diff
changeset
|
1845 (forward-line 1) |
29621 | 1846 ;; Bind this in case the user sets it to nil. |
29446
009f1caf830f
Bind case-fold-search to t when searching in case
Gerd Moellmann <gerd@gnu.org>
parents:
29410
diff
changeset
|
1847 (let* ((case-fold-search t) |
009f1caf830f
Bind case-fold-search to t when searching in case
Gerd Moellmann <gerd@gnu.org>
parents:
29410
diff
changeset
|
1848 (beg (save-excursion |
009f1caf830f
Bind case-fold-search to t when searching in case
Gerd Moellmann <gerd@gnu.org>
parents:
29410
diff
changeset
|
1849 (and (search-backward "\n* menu:" nil t) |
009f1caf830f
Bind case-fold-search to t when searching in case
Gerd Moellmann <gerd@gnu.org>
parents:
29410
diff
changeset
|
1850 (point))))) |
8489
c6088e3005cf
(Info-last-menu-item): Fix gross logic errors.
Richard M. Stallman <rms@gnu.org>
parents:
8480
diff
changeset
|
1851 (or (and beg (search-backward "\n* " beg t)) |
c6088e3005cf
(Info-last-menu-item): Fix gross logic errors.
Richard M. Stallman <rms@gnu.org>
parents:
8480
diff
changeset
|
1852 (error "No previous items in menu"))) |
c6088e3005cf
(Info-last-menu-item): Fix gross logic errors.
Richard M. Stallman <rms@gnu.org>
parents:
8480
diff
changeset
|
1853 (Info-goto-node (save-excursion |
c6088e3005cf
(Info-last-menu-item): Fix gross logic errors.
Richard M. Stallman <rms@gnu.org>
parents:
8480
diff
changeset
|
1854 (goto-char (match-end 0)) |
c6088e3005cf
(Info-last-menu-item): Fix gross logic errors.
Richard M. Stallman <rms@gnu.org>
parents:
8480
diff
changeset
|
1855 (Info-extract-menu-node-name))))) |
929
27262a6c632a
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
846
diff
changeset
|
1856 |
4410
25fb71fc2643
(Info-fontify-node): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4261
diff
changeset
|
1857 (defmacro Info-no-error (&rest body) |
929
27262a6c632a
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
846
diff
changeset
|
1858 (list 'condition-case nil (cons 'progn (append body '(t))) '(error nil))) |
27262a6c632a
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
846
diff
changeset
|
1859 |
27262a6c632a
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
846
diff
changeset
|
1860 (defun Info-next-preorder () |
8018
518971c497f5
(Info-next-preorder-1): New function.
Richard M. Stallman <rms@gnu.org>
parents:
7990
diff
changeset
|
1861 "Go to the next subnode or the next node, or go up a level." |
518971c497f5
(Info-next-preorder-1): New function.
Richard M. Stallman <rms@gnu.org>
parents:
7990
diff
changeset
|
1862 (interactive) |
518971c497f5
(Info-next-preorder-1): New function.
Richard M. Stallman <rms@gnu.org>
parents:
7990
diff
changeset
|
1863 (cond ((Info-no-error (Info-next-menu-item))) |
518971c497f5
(Info-next-preorder-1): New function.
Richard M. Stallman <rms@gnu.org>
parents:
7990
diff
changeset
|
1864 ((Info-no-error (Info-next))) |
21910
702383d93b75
(Info-up): New arg SAME-FILE: don't move to different file.
Richard M. Stallman <rms@gnu.org>
parents:
21806
diff
changeset
|
1865 ((Info-no-error (Info-up t)) |
12156 | 1866 ;; Since we have already gone thru all the items in this menu, |
1867 ;; go up to the end of this node. | |
15575
6beab08ee094
(Info-next-preorder): After we move up, move forward again.
Richard M. Stallman <rms@gnu.org>
parents:
15304
diff
changeset
|
1868 (goto-char (point-max)) |
6beab08ee094
(Info-next-preorder): After we move up, move forward again.
Richard M. Stallman <rms@gnu.org>
parents:
15304
diff
changeset
|
1869 ;; Since logically we are done with the node with that menu, |
6beab08ee094
(Info-next-preorder): After we move up, move forward again.
Richard M. Stallman <rms@gnu.org>
parents:
15304
diff
changeset
|
1870 ;; move on from it. |
6beab08ee094
(Info-next-preorder): After we move up, move forward again.
Richard M. Stallman <rms@gnu.org>
parents:
15304
diff
changeset
|
1871 (Info-next-preorder)) |
8018
518971c497f5
(Info-next-preorder-1): New function.
Richard M. Stallman <rms@gnu.org>
parents:
7990
diff
changeset
|
1872 (t |
518971c497f5
(Info-next-preorder-1): New function.
Richard M. Stallman <rms@gnu.org>
parents:
7990
diff
changeset
|
1873 (error "No more nodes")))) |
929
27262a6c632a
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
846
diff
changeset
|
1874 |
27262a6c632a
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
846
diff
changeset
|
1875 (defun Info-last-preorder () |
27262a6c632a
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
846
diff
changeset
|
1876 "Go to the last node, popping up a level if there is none." |
27262a6c632a
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
846
diff
changeset
|
1877 (interactive) |
8489
c6088e3005cf
(Info-last-menu-item): Fix gross logic errors.
Richard M. Stallman <rms@gnu.org>
parents:
8480
diff
changeset
|
1878 (cond ((Info-no-error |
c6088e3005cf
(Info-last-menu-item): Fix gross logic errors.
Richard M. Stallman <rms@gnu.org>
parents:
8480
diff
changeset
|
1879 (Info-last-menu-item) |
c6088e3005cf
(Info-last-menu-item): Fix gross logic errors.
Richard M. Stallman <rms@gnu.org>
parents:
8480
diff
changeset
|
1880 ;; If we go down a menu item, go to the end of the node |
c6088e3005cf
(Info-last-menu-item): Fix gross logic errors.
Richard M. Stallman <rms@gnu.org>
parents:
8480
diff
changeset
|
1881 ;; so we can scroll back through it. |
12156 | 1882 (goto-char (point-max))) |
15575
6beab08ee094
(Info-next-preorder): After we move up, move forward again.
Richard M. Stallman <rms@gnu.org>
parents:
15304
diff
changeset
|
1883 ;; Keep going down, as long as there are nested menu nodes. |
6beab08ee094
(Info-next-preorder): After we move up, move forward again.
Richard M. Stallman <rms@gnu.org>
parents:
15304
diff
changeset
|
1884 (while (Info-no-error |
6beab08ee094
(Info-next-preorder): After we move up, move forward again.
Richard M. Stallman <rms@gnu.org>
parents:
15304
diff
changeset
|
1885 (Info-last-menu-item) |
6beab08ee094
(Info-next-preorder): After we move up, move forward again.
Richard M. Stallman <rms@gnu.org>
parents:
15304
diff
changeset
|
1886 ;; If we go down a menu item, go to the end of the node |
6beab08ee094
(Info-next-preorder): After we move up, move forward again.
Richard M. Stallman <rms@gnu.org>
parents:
15304
diff
changeset
|
1887 ;; so we can scroll back through it. |
6beab08ee094
(Info-next-preorder): After we move up, move forward again.
Richard M. Stallman <rms@gnu.org>
parents:
15304
diff
changeset
|
1888 (goto-char (point-max)))) |
12156 | 1889 (recenter -1)) |
34468
7ae9e37868e6
(Info-last-preorder): Don't barf on nodes without a prev.
Miles Bader <miles@gnu.org>
parents:
34182
diff
changeset
|
1890 ((and (Info-no-error (Info-extract-pointer "prev")) |
7ae9e37868e6
(Info-last-preorder): Don't barf on nodes without a prev.
Miles Bader <miles@gnu.org>
parents:
34182
diff
changeset
|
1891 (not (equal (Info-extract-pointer "up") |
21910
702383d93b75
(Info-up): New arg SAME-FILE: don't move to different file.
Richard M. Stallman <rms@gnu.org>
parents:
21806
diff
changeset
|
1892 (Info-extract-pointer "prev")))) |
702383d93b75
(Info-up): New arg SAME-FILE: don't move to different file.
Richard M. Stallman <rms@gnu.org>
parents:
21806
diff
changeset
|
1893 (Info-no-error (Info-prev)) |
12156 | 1894 (goto-char (point-max)) |
15575
6beab08ee094
(Info-next-preorder): After we move up, move forward again.
Richard M. Stallman <rms@gnu.org>
parents:
15304
diff
changeset
|
1895 (while (Info-no-error |
6beab08ee094
(Info-next-preorder): After we move up, move forward again.
Richard M. Stallman <rms@gnu.org>
parents:
15304
diff
changeset
|
1896 (Info-last-menu-item) |
6beab08ee094
(Info-next-preorder): After we move up, move forward again.
Richard M. Stallman <rms@gnu.org>
parents:
15304
diff
changeset
|
1897 ;; If we go down a menu item, go to the end of the node |
6beab08ee094
(Info-next-preorder): After we move up, move forward again.
Richard M. Stallman <rms@gnu.org>
parents:
15304
diff
changeset
|
1898 ;; so we can scroll back through it. |
6beab08ee094
(Info-next-preorder): After we move up, move forward again.
Richard M. Stallman <rms@gnu.org>
parents:
15304
diff
changeset
|
1899 (goto-char (point-max)))) |
12156 | 1900 (recenter -1)) |
21910
702383d93b75
(Info-up): New arg SAME-FILE: don't move to different file.
Richard M. Stallman <rms@gnu.org>
parents:
21806
diff
changeset
|
1901 ((Info-no-error (Info-up t)) |
12156 | 1902 (goto-char (point-min)) |
29446
009f1caf830f
Bind case-fold-search to t when searching in case
Gerd Moellmann <gerd@gnu.org>
parents:
29410
diff
changeset
|
1903 (let ((case-fold-search t)) |
009f1caf830f
Bind case-fold-search to t when searching in case
Gerd Moellmann <gerd@gnu.org>
parents:
29410
diff
changeset
|
1904 (or (search-forward "\n* Menu:" nil t) |
009f1caf830f
Bind case-fold-search to t when searching in case
Gerd Moellmann <gerd@gnu.org>
parents:
29410
diff
changeset
|
1905 (goto-char (point-max))))) |
12156 | 1906 (t (error "No previous nodes")))) |
929
27262a6c632a
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
846
diff
changeset
|
1907 |
27262a6c632a
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
846
diff
changeset
|
1908 (defun Info-scroll-up () |
9222
b18f51df31b3
(Info-scroll-down, Info-scroll-up): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
8913
diff
changeset
|
1909 "Scroll one screenful forward in Info, considering all nodes as one sequence. |
16498
791b96e8f25e
(Info-scroll-up): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
16462
diff
changeset
|
1910 Once you scroll far enough in a node that its menu appears on the screen |
34182
3f2ee9f3d8bf
(Info-scroll-prefer-subnodes): New defcustom.
Eli Zaretskii <eliz@gnu.org>
parents:
33621
diff
changeset
|
1911 but after point, the next scroll moves into its first subnode, unless |
3f2ee9f3d8bf
(Info-scroll-prefer-subnodes): New defcustom.
Eli Zaretskii <eliz@gnu.org>
parents:
33621
diff
changeset
|
1912 `Info-scroll-prefer-subnodes' is nil. |
16498
791b96e8f25e
(Info-scroll-up): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
16462
diff
changeset
|
1913 |
34182
3f2ee9f3d8bf
(Info-scroll-prefer-subnodes): New defcustom.
Eli Zaretskii <eliz@gnu.org>
parents:
33621
diff
changeset
|
1914 When you scroll past the end of a node, that goes to the next node if |
3f2ee9f3d8bf
(Info-scroll-prefer-subnodes): New defcustom.
Eli Zaretskii <eliz@gnu.org>
parents:
33621
diff
changeset
|
1915 `Info-scroll-prefer-subnodes' is non-nil and to the first subnode otherwise; |
3f2ee9f3d8bf
(Info-scroll-prefer-subnodes): New defcustom.
Eli Zaretskii <eliz@gnu.org>
parents:
33621
diff
changeset
|
1916 if this node has no successor, it moves to the parent node's successor, |
3f2ee9f3d8bf
(Info-scroll-prefer-subnodes): New defcustom.
Eli Zaretskii <eliz@gnu.org>
parents:
33621
diff
changeset
|
1917 and so on. If `Info-scroll-prefer-subnodes' is non-nil and point is inside |
3f2ee9f3d8bf
(Info-scroll-prefer-subnodes): New defcustom.
Eli Zaretskii <eliz@gnu.org>
parents:
33621
diff
changeset
|
1918 the menu of a node, it moves to subnode indicated by the following menu |
3f2ee9f3d8bf
(Info-scroll-prefer-subnodes): New defcustom.
Eli Zaretskii <eliz@gnu.org>
parents:
33621
diff
changeset
|
1919 item. (That case won't normally result from this command, but can happen |
3f2ee9f3d8bf
(Info-scroll-prefer-subnodes): New defcustom.
Eli Zaretskii <eliz@gnu.org>
parents:
33621
diff
changeset
|
1920 in other ways.)" |
16498
791b96e8f25e
(Info-scroll-up): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
16462
diff
changeset
|
1921 |
929
27262a6c632a
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
846
diff
changeset
|
1922 (interactive) |
8489
c6088e3005cf
(Info-last-menu-item): Fix gross logic errors.
Richard M. Stallman <rms@gnu.org>
parents:
8480
diff
changeset
|
1923 (if (or (< (window-start) (point-min)) |
c6088e3005cf
(Info-last-menu-item): Fix gross logic errors.
Richard M. Stallman <rms@gnu.org>
parents:
8480
diff
changeset
|
1924 (> (window-start) (point-max))) |
c6088e3005cf
(Info-last-menu-item): Fix gross logic errors.
Richard M. Stallman <rms@gnu.org>
parents:
8480
diff
changeset
|
1925 (set-window-start (selected-window) (point))) |
29446
009f1caf830f
Bind case-fold-search to t when searching in case
Gerd Moellmann <gerd@gnu.org>
parents:
29410
diff
changeset
|
1926 (let* ((case-fold-search t) |
009f1caf830f
Bind case-fold-search to t when searching in case
Gerd Moellmann <gerd@gnu.org>
parents:
29410
diff
changeset
|
1927 (virtual-end (save-excursion |
009f1caf830f
Bind case-fold-search to t when searching in case
Gerd Moellmann <gerd@gnu.org>
parents:
29410
diff
changeset
|
1928 (goto-char (point-min)) |
34182
3f2ee9f3d8bf
(Info-scroll-prefer-subnodes): New defcustom.
Eli Zaretskii <eliz@gnu.org>
parents:
33621
diff
changeset
|
1929 (if (and Info-scroll-prefer-subnodes |
3f2ee9f3d8bf
(Info-scroll-prefer-subnodes): New defcustom.
Eli Zaretskii <eliz@gnu.org>
parents:
33621
diff
changeset
|
1930 (search-forward "\n* Menu:" nil t)) |
29446
009f1caf830f
Bind case-fold-search to t when searching in case
Gerd Moellmann <gerd@gnu.org>
parents:
29410
diff
changeset
|
1931 (point) |
009f1caf830f
Bind case-fold-search to t when searching in case
Gerd Moellmann <gerd@gnu.org>
parents:
29410
diff
changeset
|
1932 (point-max))))) |
8489
c6088e3005cf
(Info-last-menu-item): Fix gross logic errors.
Richard M. Stallman <rms@gnu.org>
parents:
8480
diff
changeset
|
1933 (if (or (< virtual-end (window-start)) |
c6088e3005cf
(Info-last-menu-item): Fix gross logic errors.
Richard M. Stallman <rms@gnu.org>
parents:
8480
diff
changeset
|
1934 (pos-visible-in-window-p virtual-end)) |
34182
3f2ee9f3d8bf
(Info-scroll-prefer-subnodes): New defcustom.
Eli Zaretskii <eliz@gnu.org>
parents:
33621
diff
changeset
|
1935 (cond |
3f2ee9f3d8bf
(Info-scroll-prefer-subnodes): New defcustom.
Eli Zaretskii <eliz@gnu.org>
parents:
33621
diff
changeset
|
1936 (Info-scroll-prefer-subnodes (Info-next-preorder)) |
3f2ee9f3d8bf
(Info-scroll-prefer-subnodes): New defcustom.
Eli Zaretskii <eliz@gnu.org>
parents:
33621
diff
changeset
|
1937 ((Info-no-error (Info-goto-node (Info-extract-menu-counting 1)))) |
3f2ee9f3d8bf
(Info-scroll-prefer-subnodes): New defcustom.
Eli Zaretskii <eliz@gnu.org>
parents:
33621
diff
changeset
|
1938 (t (Info-next-preorder))) |
8489
c6088e3005cf
(Info-last-menu-item): Fix gross logic errors.
Richard M. Stallman <rms@gnu.org>
parents:
8480
diff
changeset
|
1939 (scroll-up)))) |
929
27262a6c632a
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
846
diff
changeset
|
1940 |
27262a6c632a
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
846
diff
changeset
|
1941 (defun Info-scroll-down () |
9222
b18f51df31b3
(Info-scroll-down, Info-scroll-up): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
8913
diff
changeset
|
1942 "Scroll one screenful back in Info, considering all nodes as one sequence. |
34468
7ae9e37868e6
(Info-last-preorder): Don't barf on nodes without a prev.
Miles Bader <miles@gnu.org>
parents:
34182
diff
changeset
|
1943 If point is within the menu of a node, and `Info-scroll-prefer-subnodes' |
7ae9e37868e6
(Info-last-preorder): Don't barf on nodes without a prev.
Miles Bader <miles@gnu.org>
parents:
34182
diff
changeset
|
1944 is non-nil, this goes to its last subnode. When you scroll past the |
7ae9e37868e6
(Info-last-preorder): Don't barf on nodes without a prev.
Miles Bader <miles@gnu.org>
parents:
34182
diff
changeset
|
1945 beginning of a node, that goes to the previous node or back up to the |
7ae9e37868e6
(Info-last-preorder): Don't barf on nodes without a prev.
Miles Bader <miles@gnu.org>
parents:
34182
diff
changeset
|
1946 parent node." |
929
27262a6c632a
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
846
diff
changeset
|
1947 (interactive) |
8489
c6088e3005cf
(Info-last-menu-item): Fix gross logic errors.
Richard M. Stallman <rms@gnu.org>
parents:
8480
diff
changeset
|
1948 (if (or (< (window-start) (point-min)) |
c6088e3005cf
(Info-last-menu-item): Fix gross logic errors.
Richard M. Stallman <rms@gnu.org>
parents:
8480
diff
changeset
|
1949 (> (window-start) (point-max))) |
c6088e3005cf
(Info-last-menu-item): Fix gross logic errors.
Richard M. Stallman <rms@gnu.org>
parents:
8480
diff
changeset
|
1950 (set-window-start (selected-window) (point))) |
29446
009f1caf830f
Bind case-fold-search to t when searching in case
Gerd Moellmann <gerd@gnu.org>
parents:
29410
diff
changeset
|
1951 (let* ((case-fold-search t) |
009f1caf830f
Bind case-fold-search to t when searching in case
Gerd Moellmann <gerd@gnu.org>
parents:
29410
diff
changeset
|
1952 (current-point (point)) |
34468
7ae9e37868e6
(Info-last-preorder): Don't barf on nodes without a prev.
Miles Bader <miles@gnu.org>
parents:
34182
diff
changeset
|
1953 (virtual-end |
7ae9e37868e6
(Info-last-preorder): Don't barf on nodes without a prev.
Miles Bader <miles@gnu.org>
parents:
34182
diff
changeset
|
1954 (and Info-scroll-prefer-subnodes |
7ae9e37868e6
(Info-last-preorder): Don't barf on nodes without a prev.
Miles Bader <miles@gnu.org>
parents:
34182
diff
changeset
|
1955 (save-excursion |
7ae9e37868e6
(Info-last-preorder): Don't barf on nodes without a prev.
Miles Bader <miles@gnu.org>
parents:
34182
diff
changeset
|
1956 (beginning-of-line) |
7ae9e37868e6
(Info-last-preorder): Don't barf on nodes without a prev.
Miles Bader <miles@gnu.org>
parents:
34182
diff
changeset
|
1957 (setq current-point (point)) |
7ae9e37868e6
(Info-last-preorder): Don't barf on nodes without a prev.
Miles Bader <miles@gnu.org>
parents:
34182
diff
changeset
|
1958 (goto-char (point-min)) |
7ae9e37868e6
(Info-last-preorder): Don't barf on nodes without a prev.
Miles Bader <miles@gnu.org>
parents:
34182
diff
changeset
|
1959 (search-forward "\n* Menu:" |
7ae9e37868e6
(Info-last-preorder): Don't barf on nodes without a prev.
Miles Bader <miles@gnu.org>
parents:
34182
diff
changeset
|
1960 current-point |
7ae9e37868e6
(Info-last-preorder): Don't barf on nodes without a prev.
Miles Bader <miles@gnu.org>
parents:
34182
diff
changeset
|
1961 t))))) |
47794
c460856d1bfd
(Info-next-menu-item, Info-last-menu-item)
John Paul Wallington <jpw@pobox.com>
parents:
47376
diff
changeset
|
1962 (if (or virtual-end |
36894
b63c94fafcde
(Info-scroll-down): Add missing WINDOW arg for
Gerd Moellmann <gerd@gnu.org>
parents:
36644
diff
changeset
|
1963 (pos-visible-in-window-p (point-min) nil t)) |
8489
c6088e3005cf
(Info-last-menu-item): Fix gross logic errors.
Richard M. Stallman <rms@gnu.org>
parents:
8480
diff
changeset
|
1964 (Info-last-preorder) |
c6088e3005cf
(Info-last-menu-item): Fix gross logic errors.
Richard M. Stallman <rms@gnu.org>
parents:
8480
diff
changeset
|
1965 (scroll-down)))) |
929
27262a6c632a
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
846
diff
changeset
|
1966 |
15055
60ff6e57ddbd
(Info-next-reference, Info-prev-reference): Add optional
Richard M. Stallman <rms@gnu.org>
parents:
14664
diff
changeset
|
1967 (defun Info-next-reference (&optional recur) |
4410
25fb71fc2643
(Info-fontify-node): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4261
diff
changeset
|
1968 "Move cursor to the next cross-reference or menu item in the node." |
25fb71fc2643
(Info-fontify-node): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4261
diff
changeset
|
1969 (interactive) |
25fb71fc2643
(Info-fontify-node): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4261
diff
changeset
|
1970 (let ((pat "\\*note[ \n\t]*\\([^:]*\\):\\|^\\* .*:") |
22951
19b3899582b4
Bind case-fold-search to t in many functions.
Richard M. Stallman <rms@gnu.org>
parents:
22902
diff
changeset
|
1971 (old-pt (point)) |
19b3899582b4
Bind case-fold-search to t in many functions.
Richard M. Stallman <rms@gnu.org>
parents:
22902
diff
changeset
|
1972 (case-fold-search t)) |
4410
25fb71fc2643
(Info-fontify-node): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4261
diff
changeset
|
1973 (or (eobp) (forward-char 1)) |
25fb71fc2643
(Info-fontify-node): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4261
diff
changeset
|
1974 (or (re-search-forward pat nil t) |
25fb71fc2643
(Info-fontify-node): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4261
diff
changeset
|
1975 (progn |
25fb71fc2643
(Info-fontify-node): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4261
diff
changeset
|
1976 (goto-char (point-min)) |
25fb71fc2643
(Info-fontify-node): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4261
diff
changeset
|
1977 (or (re-search-forward pat nil t) |
25fb71fc2643
(Info-fontify-node): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4261
diff
changeset
|
1978 (progn |
25fb71fc2643
(Info-fontify-node): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4261
diff
changeset
|
1979 (goto-char old-pt) |
25fb71fc2643
(Info-fontify-node): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4261
diff
changeset
|
1980 (error "No cross references in this node"))))) |
25fb71fc2643
(Info-fontify-node): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4261
diff
changeset
|
1981 (goto-char (match-beginning 0)) |
25fb71fc2643
(Info-fontify-node): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4261
diff
changeset
|
1982 (if (looking-at "\\* Menu:") |
15055
60ff6e57ddbd
(Info-next-reference, Info-prev-reference): Add optional
Richard M. Stallman <rms@gnu.org>
parents:
14664
diff
changeset
|
1983 (if recur |
60ff6e57ddbd
(Info-next-reference, Info-prev-reference): Add optional
Richard M. Stallman <rms@gnu.org>
parents:
14664
diff
changeset
|
1984 (error "No cross references in this node") |
60ff6e57ddbd
(Info-next-reference, Info-prev-reference): Add optional
Richard M. Stallman <rms@gnu.org>
parents:
14664
diff
changeset
|
1985 (Info-next-reference t))))) |
4410
25fb71fc2643
(Info-fontify-node): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4261
diff
changeset
|
1986 |
15055
60ff6e57ddbd
(Info-next-reference, Info-prev-reference): Add optional
Richard M. Stallman <rms@gnu.org>
parents:
14664
diff
changeset
|
1987 (defun Info-prev-reference (&optional recur) |
4410
25fb71fc2643
(Info-fontify-node): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4261
diff
changeset
|
1988 "Move cursor to the previous cross-reference or menu item in the node." |
25fb71fc2643
(Info-fontify-node): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4261
diff
changeset
|
1989 (interactive) |
25fb71fc2643
(Info-fontify-node): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4261
diff
changeset
|
1990 (let ((pat "\\*note[ \n\t]*\\([^:]*\\):\\|^\\* .*:") |
22951
19b3899582b4
Bind case-fold-search to t in many functions.
Richard M. Stallman <rms@gnu.org>
parents:
22902
diff
changeset
|
1991 (old-pt (point)) |
19b3899582b4
Bind case-fold-search to t in many functions.
Richard M. Stallman <rms@gnu.org>
parents:
22902
diff
changeset
|
1992 (case-fold-search t)) |
4410
25fb71fc2643
(Info-fontify-node): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4261
diff
changeset
|
1993 (or (re-search-backward pat nil t) |
25fb71fc2643
(Info-fontify-node): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4261
diff
changeset
|
1994 (progn |
25fb71fc2643
(Info-fontify-node): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4261
diff
changeset
|
1995 (goto-char (point-max)) |
25fb71fc2643
(Info-fontify-node): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4261
diff
changeset
|
1996 (or (re-search-backward pat nil t) |
25fb71fc2643
(Info-fontify-node): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4261
diff
changeset
|
1997 (progn |
25fb71fc2643
(Info-fontify-node): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4261
diff
changeset
|
1998 (goto-char old-pt) |
25fb71fc2643
(Info-fontify-node): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4261
diff
changeset
|
1999 (error "No cross references in this node"))))) |
25fb71fc2643
(Info-fontify-node): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4261
diff
changeset
|
2000 (goto-char (match-beginning 0)) |
25fb71fc2643
(Info-fontify-node): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4261
diff
changeset
|
2001 (if (looking-at "\\* Menu:") |
15055
60ff6e57ddbd
(Info-next-reference, Info-prev-reference): Add optional
Richard M. Stallman <rms@gnu.org>
parents:
14664
diff
changeset
|
2002 (if recur |
60ff6e57ddbd
(Info-next-reference, Info-prev-reference): Add optional
Richard M. Stallman <rms@gnu.org>
parents:
14664
diff
changeset
|
2003 (error "No cross references in this node") |
60ff6e57ddbd
(Info-next-reference, Info-prev-reference): Add optional
Richard M. Stallman <rms@gnu.org>
parents:
14664
diff
changeset
|
2004 (Info-prev-reference t))))) |
4410
25fb71fc2643
(Info-fontify-node): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4261
diff
changeset
|
2005 |
41690
c9c839b993b9
(Info-complete-next-re, Info-complete-cache): New vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40967
diff
changeset
|
2006 (defun Info-goto-index () |
c9c839b993b9
(Info-complete-next-re, Info-complete-cache): New vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40967
diff
changeset
|
2007 (Info-goto-node "Top") |
c9c839b993b9
(Info-complete-next-re, Info-complete-cache): New vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40967
diff
changeset
|
2008 (or (search-forward "\n* menu:" nil t) |
c9c839b993b9
(Info-complete-next-re, Info-complete-cache): New vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40967
diff
changeset
|
2009 (error "No index")) |
c9c839b993b9
(Info-complete-next-re, Info-complete-cache): New vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40967
diff
changeset
|
2010 (or (re-search-forward "\n\\* \\(.*\\<Index\\>\\)" nil t) |
c9c839b993b9
(Info-complete-next-re, Info-complete-cache): New vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40967
diff
changeset
|
2011 (error "No index")) |
c9c839b993b9
(Info-complete-next-re, Info-complete-cache): New vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40967
diff
changeset
|
2012 (goto-char (match-beginning 1)) |
41691
3317b62de647
(Info-goto-index): One register one step in the history.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41690
diff
changeset
|
2013 ;; Protect Info-history so that the current node (Top) is not added to it. |
3317b62de647
(Info-goto-index): One register one step in the history.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41690
diff
changeset
|
2014 (let ((Info-history nil)) |
3317b62de647
(Info-goto-index): One register one step in the history.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41690
diff
changeset
|
2015 (Info-goto-node (Info-extract-menu-node-name)))) |
41690
c9c839b993b9
(Info-complete-next-re, Info-complete-cache): New vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40967
diff
changeset
|
2016 |
51283
956ab3f2a864
(Info-index): Add autoload cookie.
Richard M. Stallman <rms@gnu.org>
parents:
50707
diff
changeset
|
2017 ;;;###autoload |
2561
1bd4cf98df68
(Info-find-node, Info-insert-subfile): Do the right thing if info files have
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2038
diff
changeset
|
2018 (defun Info-index (topic) |
29621 | 2019 "Look up a string TOPIC in the index for this file. |
41690
c9c839b993b9
(Info-complete-next-re, Info-complete-cache): New vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40967
diff
changeset
|
2020 The index is defined as the first node in the top level menu whose |
2561
1bd4cf98df68
(Info-find-node, Info-insert-subfile): Do the right thing if info files have
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2038
diff
changeset
|
2021 name contains the word \"Index\", plus any immediately following |
1bd4cf98df68
(Info-find-node, Info-insert-subfile): Do the right thing if info files have
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2038
diff
changeset
|
2022 nodes whose names also contain the word \"Index\". |
1bd4cf98df68
(Info-find-node, Info-insert-subfile): Do the right thing if info files have
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2038
diff
changeset
|
2023 If there are no exact matches to the specified topic, this chooses |
1bd4cf98df68
(Info-find-node, Info-insert-subfile): Do the right thing if info files have
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2038
diff
changeset
|
2024 the first match which is a case-insensitive substring of a topic. |
1bd4cf98df68
(Info-find-node, Info-insert-subfile): Do the right thing if info files have
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2038
diff
changeset
|
2025 Use the `,' command to see the other matches. |
1bd4cf98df68
(Info-find-node, Info-insert-subfile): Do the right thing if info files have
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2038
diff
changeset
|
2026 Give a blank topic name to go to the Index node itself." |
41690
c9c839b993b9
(Info-complete-next-re, Info-complete-cache): New vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40967
diff
changeset
|
2027 (interactive |
c9c839b993b9
(Info-complete-next-re, Info-complete-cache): New vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40967
diff
changeset
|
2028 (list |
c9c839b993b9
(Info-complete-next-re, Info-complete-cache): New vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40967
diff
changeset
|
2029 (let ((Info-complete-menu-buffer (clone-buffer)) |
c9c839b993b9
(Info-complete-next-re, Info-complete-cache): New vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40967
diff
changeset
|
2030 (Info-complete-next-re "\\<Index\\>")) |
46104
ee6975afddef
(Info-index): Get immediate error if used in `dir'.
Richard M. Stallman <rms@gnu.org>
parents:
46029
diff
changeset
|
2031 (if (equal Info-current-file "dir") |
ee6975afddef
(Info-index): Get immediate error if used in `dir'.
Richard M. Stallman <rms@gnu.org>
parents:
46029
diff
changeset
|
2032 (error "The Info directory node has no index; use m to select a manual")) |
41690
c9c839b993b9
(Info-complete-next-re, Info-complete-cache): New vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40967
diff
changeset
|
2033 (unwind-protect |
c9c839b993b9
(Info-complete-next-re, Info-complete-cache): New vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40967
diff
changeset
|
2034 (with-current-buffer Info-complete-menu-buffer |
c9c839b993b9
(Info-complete-next-re, Info-complete-cache): New vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40967
diff
changeset
|
2035 (Info-goto-index) |
c9c839b993b9
(Info-complete-next-re, Info-complete-cache): New vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40967
diff
changeset
|
2036 (completing-read "Index topic: " 'Info-complete-menu-item)) |
c9c839b993b9
(Info-complete-next-re, Info-complete-cache): New vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40967
diff
changeset
|
2037 (kill-buffer Info-complete-menu-buffer))))) |
46104
ee6975afddef
(Info-index): Get immediate error if used in `dir'.
Richard M. Stallman <rms@gnu.org>
parents:
46029
diff
changeset
|
2038 (if (equal Info-current-file "dir") |
ee6975afddef
(Info-index): Get immediate error if used in `dir'.
Richard M. Stallman <rms@gnu.org>
parents:
46029
diff
changeset
|
2039 (error "The Info directory node has no index; use m to select a manual")) |
2561
1bd4cf98df68
(Info-find-node, Info-insert-subfile): Do the right thing if info files have
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2038
diff
changeset
|
2040 (let ((orignode Info-current-node) |
49390
1ab93adb0017
(Info-index): change pattern so that index entries
Karl Berry <karl@gnu.org>
parents:
49380
diff
changeset
|
2041 (pattern (format "\n\\* +\\([^\n]*%s[^\n]*\\):[ \t]+\\([^.\n]*\\)\\.[ \t]*\\([0-9]*\\)" |
2561
1bd4cf98df68
(Info-find-node, Info-insert-subfile): Do the right thing if info files have
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2038
diff
changeset
|
2042 (regexp-quote topic))) |
22951
19b3899582b4
Bind case-fold-search to t in many functions.
Richard M. Stallman <rms@gnu.org>
parents:
22902
diff
changeset
|
2043 node |
19b3899582b4
Bind case-fold-search to t in many functions.
Richard M. Stallman <rms@gnu.org>
parents:
22902
diff
changeset
|
2044 (case-fold-search t)) |
41691
3317b62de647
(Info-goto-index): One register one step in the history.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41690
diff
changeset
|
2045 (Info-goto-index) |
2561
1bd4cf98df68
(Info-find-node, Info-insert-subfile): Do the right thing if info files have
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2038
diff
changeset
|
2046 (or (equal topic "") |
1bd4cf98df68
(Info-find-node, Info-insert-subfile): Do the right thing if info files have
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2038
diff
changeset
|
2047 (let ((matches nil) |
1bd4cf98df68
(Info-find-node, Info-insert-subfile): Do the right thing if info files have
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2038
diff
changeset
|
2048 (exact nil) |
41691
3317b62de647
(Info-goto-index): One register one step in the history.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41690
diff
changeset
|
2049 ;; We bind Info-history to nil for internal node-switches so |
3317b62de647
(Info-goto-index): One register one step in the history.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41690
diff
changeset
|
2050 ;; that we don't put junk in the history. In the first |
3317b62de647
(Info-goto-index): One register one step in the history.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41690
diff
changeset
|
2051 ;; Info-goto-index call, above, we do update the history |
3317b62de647
(Info-goto-index): One register one step in the history.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41690
diff
changeset
|
2052 ;; because that is what the user's previous node choice into it. |
10758
a66a29e6efc9
(Info-index): Bind Info-history, not Info-keep-history.
Richard M. Stallman <rms@gnu.org>
parents:
10061
diff
changeset
|
2053 (Info-history nil) |
2561
1bd4cf98df68
(Info-find-node, Info-insert-subfile): Do the right thing if info files have
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2038
diff
changeset
|
2054 found) |
1bd4cf98df68
(Info-find-node, Info-insert-subfile): Do the right thing if info files have
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2038
diff
changeset
|
2055 (while |
1bd4cf98df68
(Info-find-node, Info-insert-subfile): Do the right thing if info files have
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2038
diff
changeset
|
2056 (progn |
1bd4cf98df68
(Info-find-node, Info-insert-subfile): Do the right thing if info files have
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2038
diff
changeset
|
2057 (goto-char (point-min)) |
1bd4cf98df68
(Info-find-node, Info-insert-subfile): Do the right thing if info files have
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2038
diff
changeset
|
2058 (while (re-search-forward pattern nil t) |
31942
55dd93c0d728
(Info-extract-pointer):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
31798
diff
changeset
|
2059 (push (list (match-string-no-properties 1) |
55dd93c0d728
(Info-extract-pointer):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
31798
diff
changeset
|
2060 (match-string-no-properties 2) |
55dd93c0d728
(Info-extract-pointer):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
31798
diff
changeset
|
2061 Info-current-node |
47794
c460856d1bfd
(Info-next-menu-item, Info-last-menu-item)
John Paul Wallington <jpw@pobox.com>
parents:
47376
diff
changeset
|
2062 (string-to-number (concat "0" |
c460856d1bfd
(Info-next-menu-item, Info-last-menu-item)
John Paul Wallington <jpw@pobox.com>
parents:
47376
diff
changeset
|
2063 (match-string 3)))) |
31942
55dd93c0d728
(Info-extract-pointer):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
31798
diff
changeset
|
2064 matches)) |
2561
1bd4cf98df68
(Info-find-node, Info-insert-subfile): Do the right thing if info files have
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2038
diff
changeset
|
2065 (and (setq node (Info-extract-pointer "next" t)) |
1bd4cf98df68
(Info-find-node, Info-insert-subfile): Do the right thing if info files have
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2038
diff
changeset
|
2066 (string-match "\\<Index\\>" node))) |
1bd4cf98df68
(Info-find-node, Info-insert-subfile): Do the right thing if info files have
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2038
diff
changeset
|
2067 (Info-goto-node node)) |
1bd4cf98df68
(Info-find-node, Info-insert-subfile): Do the right thing if info files have
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2038
diff
changeset
|
2068 (or matches |
1bd4cf98df68
(Info-find-node, Info-insert-subfile): Do the right thing if info files have
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2038
diff
changeset
|
2069 (progn |
14664
f77b58df548c
(Info-index): If fail, go back to original node.
Richard M. Stallman <rms@gnu.org>
parents:
14577
diff
changeset
|
2070 (Info-goto-node orignode) |
14560
b0df80fef82c
(Info-find-index-name): New subroutine, from Info-index-next.
Richard M. Stallman <rms@gnu.org>
parents:
14529
diff
changeset
|
2071 (error "No `%s' in index" topic))) |
2561
1bd4cf98df68
(Info-find-node, Info-insert-subfile): Do the right thing if info files have
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2038
diff
changeset
|
2072 ;; Here it is a feature that assoc is case-sensitive. |
1bd4cf98df68
(Info-find-node, Info-insert-subfile): Do the right thing if info files have
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2038
diff
changeset
|
2073 (while (setq found (assoc topic matches)) |
1bd4cf98df68
(Info-find-node, Info-insert-subfile): Do the right thing if info files have
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2038
diff
changeset
|
2074 (setq exact (cons found exact) |
1bd4cf98df68
(Info-find-node, Info-insert-subfile): Do the right thing if info files have
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2038
diff
changeset
|
2075 matches (delq found matches))) |
1bd4cf98df68
(Info-find-node, Info-insert-subfile): Do the right thing if info files have
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2038
diff
changeset
|
2076 (setq Info-index-alternatives (nconc exact (nreverse matches))) |
1bd4cf98df68
(Info-find-node, Info-insert-subfile): Do the right thing if info files have
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2038
diff
changeset
|
2077 (Info-index-next 0))))) |
1bd4cf98df68
(Info-find-node, Info-insert-subfile): Do the right thing if info files have
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2038
diff
changeset
|
2078 |
1bd4cf98df68
(Info-find-node, Info-insert-subfile): Do the right thing if info files have
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2038
diff
changeset
|
2079 (defun Info-index-next (num) |
1bd4cf98df68
(Info-find-node, Info-insert-subfile): Do the right thing if info files have
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2038
diff
changeset
|
2080 "Go to the next matching index item from the last `i' command." |
1bd4cf98df68
(Info-find-node, Info-insert-subfile): Do the right thing if info files have
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2038
diff
changeset
|
2081 (interactive "p") |
1bd4cf98df68
(Info-find-node, Info-insert-subfile): Do the right thing if info files have
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2038
diff
changeset
|
2082 (or Info-index-alternatives |
16790
3663fc0c2036
(Info-find-node): Don't clear Info-index-alternatives.
Richard M. Stallman <rms@gnu.org>
parents:
16672
diff
changeset
|
2083 (error "No previous `i' command")) |
2561
1bd4cf98df68
(Info-find-node, Info-insert-subfile): Do the right thing if info files have
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2038
diff
changeset
|
2084 (while (< num 0) |
1bd4cf98df68
(Info-find-node, Info-insert-subfile): Do the right thing if info files have
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2038
diff
changeset
|
2085 (setq num (+ num (length Info-index-alternatives)))) |
1bd4cf98df68
(Info-find-node, Info-insert-subfile): Do the right thing if info files have
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2038
diff
changeset
|
2086 (while (> num 0) |
1bd4cf98df68
(Info-find-node, Info-insert-subfile): Do the right thing if info files have
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2038
diff
changeset
|
2087 (setq Info-index-alternatives |
1bd4cf98df68
(Info-find-node, Info-insert-subfile): Do the right thing if info files have
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2038
diff
changeset
|
2088 (nconc (cdr Info-index-alternatives) |
1bd4cf98df68
(Info-find-node, Info-insert-subfile): Do the right thing if info files have
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2038
diff
changeset
|
2089 (list (car Info-index-alternatives))) |
1bd4cf98df68
(Info-find-node, Info-insert-subfile): Do the right thing if info files have
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2038
diff
changeset
|
2090 num (1- num))) |
1bd4cf98df68
(Info-find-node, Info-insert-subfile): Do the right thing if info files have
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2038
diff
changeset
|
2091 (Info-goto-node (nth 1 (car Info-index-alternatives))) |
1bd4cf98df68
(Info-find-node, Info-insert-subfile): Do the right thing if info files have
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2038
diff
changeset
|
2092 (if (> (nth 3 (car Info-index-alternatives)) 0) |
1bd4cf98df68
(Info-find-node, Info-insert-subfile): Do the right thing if info files have
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2038
diff
changeset
|
2093 (forward-line (nth 3 (car Info-index-alternatives))) |
29446
009f1caf830f
Bind case-fold-search to t when searching in case
Gerd Moellmann <gerd@gnu.org>
parents:
29410
diff
changeset
|
2094 (forward-line 3) ; don't search in headers |
2561
1bd4cf98df68
(Info-find-node, Info-insert-subfile): Do the right thing if info files have
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2038
diff
changeset
|
2095 (let ((name (car (car Info-index-alternatives)))) |
14560
b0df80fef82c
(Info-find-index-name): New subroutine, from Info-index-next.
Richard M. Stallman <rms@gnu.org>
parents:
14529
diff
changeset
|
2096 (Info-find-index-name name))) |
b0df80fef82c
(Info-find-index-name): New subroutine, from Info-index-next.
Richard M. Stallman <rms@gnu.org>
parents:
14529
diff
changeset
|
2097 (message "Found `%s' in %s. %s" |
2561
1bd4cf98df68
(Info-find-node, Info-insert-subfile): Do the right thing if info files have
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2038
diff
changeset
|
2098 (car (car Info-index-alternatives)) |
1bd4cf98df68
(Info-find-node, Info-insert-subfile): Do the right thing if info files have
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2038
diff
changeset
|
2099 (nth 2 (car Info-index-alternatives)) |
1bd4cf98df68
(Info-find-node, Info-insert-subfile): Do the right thing if info files have
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2038
diff
changeset
|
2100 (if (cdr Info-index-alternatives) |
49380
d2e3b9b256df
(Info-index-next): Use "(`,' tries to find next)" for
Kai Großjohann <kgrossjo@eu.uu.net>
parents:
48977
diff
changeset
|
2101 "(`,' tries to find next)" |
2561
1bd4cf98df68
(Info-find-node, Info-insert-subfile): Do the right thing if info files have
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2038
diff
changeset
|
2102 "(Only match)"))) |
1bd4cf98df68
(Info-find-node, Info-insert-subfile): Do the right thing if info files have
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2038
diff
changeset
|
2103 |
14560
b0df80fef82c
(Info-find-index-name): New subroutine, from Info-index-next.
Richard M. Stallman <rms@gnu.org>
parents:
14529
diff
changeset
|
2104 (defun Info-find-index-name (name) |
b0df80fef82c
(Info-find-index-name): New subroutine, from Info-index-next.
Richard M. Stallman <rms@gnu.org>
parents:
14529
diff
changeset
|
2105 "Move point to the place within the current node where NAME is defined." |
22951
19b3899582b4
Bind case-fold-search to t in many functions.
Richard M. Stallman <rms@gnu.org>
parents:
22902
diff
changeset
|
2106 (let ((case-fold-search t)) |
19b3899582b4
Bind case-fold-search to t in many functions.
Richard M. Stallman <rms@gnu.org>
parents:
22902
diff
changeset
|
2107 (if (or (re-search-forward (format |
19b3899582b4
Bind case-fold-search to t in many functions.
Richard M. Stallman <rms@gnu.org>
parents:
22902
diff
changeset
|
2108 "[a-zA-Z]+: %s\\( \\|$\\)" |
19b3899582b4
Bind case-fold-search to t in many functions.
Richard M. Stallman <rms@gnu.org>
parents:
22902
diff
changeset
|
2109 (regexp-quote name)) nil t) |
46691
ac544e207278
(Info-find-index-name): Search for a function definition with a return type.
Richard M. Stallman <rms@gnu.org>
parents:
46326
diff
changeset
|
2110 ;; Find a function definition with a return type. |
ac544e207278
(Info-find-index-name): Search for a function definition with a return type.
Richard M. Stallman <rms@gnu.org>
parents:
46326
diff
changeset
|
2111 (re-search-forward (format |
46714
bebf069404ac
(Info-find-index-name): Improve last change.
Richard M. Stallman <rms@gnu.org>
parents:
46691
diff
changeset
|
2112 "[a-zA-Z]+: [a-zA-Z0-9_ *&]+ %s\\( \\|$\\)" |
46691
ac544e207278
(Info-find-index-name): Search for a function definition with a return type.
Richard M. Stallman <rms@gnu.org>
parents:
46326
diff
changeset
|
2113 (regexp-quote name)) nil t) |
22951
19b3899582b4
Bind case-fold-search to t in many functions.
Richard M. Stallman <rms@gnu.org>
parents:
22902
diff
changeset
|
2114 (search-forward (format "`%s'" name) nil t) |
19b3899582b4
Bind case-fold-search to t in many functions.
Richard M. Stallman <rms@gnu.org>
parents:
22902
diff
changeset
|
2115 (and (string-match "\\`.*\\( (.*)\\)\\'" name) |
19b3899582b4
Bind case-fold-search to t in many functions.
Richard M. Stallman <rms@gnu.org>
parents:
22902
diff
changeset
|
2116 (search-forward |
19b3899582b4
Bind case-fold-search to t in many functions.
Richard M. Stallman <rms@gnu.org>
parents:
22902
diff
changeset
|
2117 (format "`%s'" (substring name 0 (match-beginning 1))) |
19b3899582b4
Bind case-fold-search to t in many functions.
Richard M. Stallman <rms@gnu.org>
parents:
22902
diff
changeset
|
2118 nil t)) |
52648
928f0fb38bfa
(Info-find-index-name): Search both with and without the " <1>" etc.
Eli Zaretskii <eliz@gnu.org>
parents:
52401
diff
changeset
|
2119 (search-forward name nil t) |
928f0fb38bfa
(Info-find-index-name): Search both with and without the " <1>" etc.
Eli Zaretskii <eliz@gnu.org>
parents:
52401
diff
changeset
|
2120 ;; Try again without the " <1>" makeinfo can append |
928f0fb38bfa
(Info-find-index-name): Search both with and without the " <1>" etc.
Eli Zaretskii <eliz@gnu.org>
parents:
52401
diff
changeset
|
2121 (and (string-match "\\`\\(.*\\) <[0-9]+>\\'" name) |
928f0fb38bfa
(Info-find-index-name): Search both with and without the " <1>" etc.
Eli Zaretskii <eliz@gnu.org>
parents:
52401
diff
changeset
|
2122 (Info-find-index-name (match-string 1 name)))) |
928f0fb38bfa
(Info-find-index-name): Search both with and without the " <1>" etc.
Eli Zaretskii <eliz@gnu.org>
parents:
52401
diff
changeset
|
2123 (progn (beginning-of-line) t) ;; non-nil for recursive call |
22951
19b3899582b4
Bind case-fold-search to t in many functions.
Richard M. Stallman <rms@gnu.org>
parents:
22902
diff
changeset
|
2124 (goto-char (point-min))))) |
14560
b0df80fef82c
(Info-find-index-name): New subroutine, from Info-index-next.
Richard M. Stallman <rms@gnu.org>
parents:
14529
diff
changeset
|
2125 |
325 | 2126 (defun Info-undefined () |
2127 "Make command be undefined in Info." | |
2128 (interactive) | |
2129 (ding)) | |
2130 | |
2131 (defun Info-help () | |
2132 "Enter the Info tutorial." | |
2133 (interactive) | |
2134 (delete-other-windows) | |
2135 (Info-find-node "info" | |
2136 (if (< (window-height) 23) | |
2137 "Help-Small-Screen" | |
2138 "Help"))) | |
2139 | |
2140 (defun Info-summary () | |
2141 "Display a brief summary of all Info commands." | |
2142 (interactive) | |
2143 (save-window-excursion | |
2144 (switch-to-buffer "*Help*") | |
20910
e46446e4af2d
(Info-summary): Clear buffer-read-only.
Richard M. Stallman <rms@gnu.org>
parents:
20755
diff
changeset
|
2145 (setq buffer-read-only nil) |
325 | 2146 (erase-buffer) |
2147 (insert (documentation 'Info-mode)) | |
9852
b3a6fdcd63df
(Info-summary): Set help-mode in *Help* buffer.
Karl Heuer <kwzh@gnu.org>
parents:
9782
diff
changeset
|
2148 (help-mode) |
325 | 2149 (goto-char (point-min)) |
2150 (let (ch flag) | |
2151 (while (progn (setq flag (not (pos-visible-in-window-p (point-max)))) | |
2152 (message (if flag "Type Space to see more" | |
2153 "Type Space to return to Info")) | |
2032
20cc6c34421c
(Info-summary): Handle any event when flushing the display.
Richard M. Stallman <rms@gnu.org>
parents:
1979
diff
changeset
|
2154 (if (not (eq ?\ (setq ch (read-event)))) |
1821
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1667
diff
changeset
|
2155 (progn (setq unread-command-events (list ch)) nil) |
325 | 2156 flag)) |
4410
25fb71fc2643
(Info-fontify-node): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4261
diff
changeset
|
2157 (scroll-up))) |
25fb71fc2643
(Info-fontify-node): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4261
diff
changeset
|
2158 (bury-buffer "*Help*"))) |
325 | 2159 |
2160 (defun Info-get-token (pos start all &optional errorstring) | |
29621 | 2161 "Return the token around POS. |
325 | 2162 POS must be somewhere inside the token |
2163 START is a regular expression which will match the | |
2164 beginning of the tokens delimited string | |
2165 ALL is a regular expression with a single | |
13990 | 2166 parenthesized subpattern which is the token to be |
29621 | 2167 returned. E.g. '{\(.*\)}' would return any string |
325 | 2168 enclosed in braces around POS. |
29621 | 2169 ERRORSTRING optional fourth argument, controls action on no match |
325 | 2170 nil: return nil |
2171 t: beep | |
2172 a string: signal an error, using that string." | |
22951
19b3899582b4
Bind case-fold-search to t in many functions.
Richard M. Stallman <rms@gnu.org>
parents:
22902
diff
changeset
|
2173 (let ((case-fold-search t)) |
19b3899582b4
Bind case-fold-search to t in many functions.
Richard M. Stallman <rms@gnu.org>
parents:
22902
diff
changeset
|
2174 (save-excursion |
19b3899582b4
Bind case-fold-search to t in many functions.
Richard M. Stallman <rms@gnu.org>
parents:
22902
diff
changeset
|
2175 (goto-char pos) |
19b3899582b4
Bind case-fold-search to t in many functions.
Richard M. Stallman <rms@gnu.org>
parents:
22902
diff
changeset
|
2176 ;; First look for a match for START that goes across POS. |
19b3899582b4
Bind case-fold-search to t in many functions.
Richard M. Stallman <rms@gnu.org>
parents:
22902
diff
changeset
|
2177 (while (and (not (bobp)) (> (point) (- pos (length start))) |
19b3899582b4
Bind case-fold-search to t in many functions.
Richard M. Stallman <rms@gnu.org>
parents:
22902
diff
changeset
|
2178 (not (looking-at start))) |
19b3899582b4
Bind case-fold-search to t in many functions.
Richard M. Stallman <rms@gnu.org>
parents:
22902
diff
changeset
|
2179 (forward-char -1)) |
19b3899582b4
Bind case-fold-search to t in many functions.
Richard M. Stallman <rms@gnu.org>
parents:
22902
diff
changeset
|
2180 ;; If we did not find one, search back for START |
19b3899582b4
Bind case-fold-search to t in many functions.
Richard M. Stallman <rms@gnu.org>
parents:
22902
diff
changeset
|
2181 ;; (this finds only matches that end at or before POS). |
19b3899582b4
Bind case-fold-search to t in many functions.
Richard M. Stallman <rms@gnu.org>
parents:
22902
diff
changeset
|
2182 (or (looking-at start) |
19b3899582b4
Bind case-fold-search to t in many functions.
Richard M. Stallman <rms@gnu.org>
parents:
22902
diff
changeset
|
2183 (progn |
19b3899582b4
Bind case-fold-search to t in many functions.
Richard M. Stallman <rms@gnu.org>
parents:
22902
diff
changeset
|
2184 (goto-char pos) |
19b3899582b4
Bind case-fold-search to t in many functions.
Richard M. Stallman <rms@gnu.org>
parents:
22902
diff
changeset
|
2185 (re-search-backward start (max (point-min) (- pos 200)) 'yes))) |
19b3899582b4
Bind case-fold-search to t in many functions.
Richard M. Stallman <rms@gnu.org>
parents:
22902
diff
changeset
|
2186 (let (found) |
19b3899582b4
Bind case-fold-search to t in many functions.
Richard M. Stallman <rms@gnu.org>
parents:
22902
diff
changeset
|
2187 (while (and (re-search-forward all (min (point-max) (+ pos 200)) 'yes) |
19b3899582b4
Bind case-fold-search to t in many functions.
Richard M. Stallman <rms@gnu.org>
parents:
22902
diff
changeset
|
2188 (not (setq found (and (<= (match-beginning 0) pos) |
19b3899582b4
Bind case-fold-search to t in many functions.
Richard M. Stallman <rms@gnu.org>
parents:
22902
diff
changeset
|
2189 (> (match-end 0) pos)))))) |
19b3899582b4
Bind case-fold-search to t in many functions.
Richard M. Stallman <rms@gnu.org>
parents:
22902
diff
changeset
|
2190 (if (and found (<= (match-beginning 0) pos) |
19b3899582b4
Bind case-fold-search to t in many functions.
Richard M. Stallman <rms@gnu.org>
parents:
22902
diff
changeset
|
2191 (> (match-end 0) pos)) |
26580
d779cb4aa2ae
(Info-build-node-completions, Info-search, Info-follow-reference)
Dave Love <fx@gnu.org>
parents:
26172
diff
changeset
|
2192 (match-string-no-properties 1) |
22951
19b3899582b4
Bind case-fold-search to t in many functions.
Richard M. Stallman <rms@gnu.org>
parents:
22902
diff
changeset
|
2193 (cond ((null errorstring) |
19b3899582b4
Bind case-fold-search to t in many functions.
Richard M. Stallman <rms@gnu.org>
parents:
22902
diff
changeset
|
2194 nil) |
19b3899582b4
Bind case-fold-search to t in many functions.
Richard M. Stallman <rms@gnu.org>
parents:
22902
diff
changeset
|
2195 ((eq errorstring t) |
19b3899582b4
Bind case-fold-search to t in many functions.
Richard M. Stallman <rms@gnu.org>
parents:
22902
diff
changeset
|
2196 (beep) |
19b3899582b4
Bind case-fold-search to t in many functions.
Richard M. Stallman <rms@gnu.org>
parents:
22902
diff
changeset
|
2197 nil) |
19b3899582b4
Bind case-fold-search to t in many functions.
Richard M. Stallman <rms@gnu.org>
parents:
22902
diff
changeset
|
2198 (t |
19b3899582b4
Bind case-fold-search to t in many functions.
Richard M. Stallman <rms@gnu.org>
parents:
22902
diff
changeset
|
2199 (error "No %s around position %d" errorstring pos)))))))) |
325 | 2200 |
7007
52b0ebfd3191
(Info-next-preorder): Don't follow footnotes here.
Karl Heuer <kwzh@gnu.org>
parents:
6716
diff
changeset
|
2201 (defun Info-mouse-follow-nearest-node (click) |
1309
aa286e6e7bec
(Info-follow-nearest-node): Handle line breaks after *note.
Richard M. Stallman <rms@gnu.org>
parents:
998
diff
changeset
|
2202 "\\<Info-mode-map>Follow a node reference near point. |
aa286e6e7bec
(Info-follow-nearest-node): Handle line breaks after *note.
Richard M. Stallman <rms@gnu.org>
parents:
998
diff
changeset
|
2203 Like \\[Info-menu], \\[Info-follow-reference], \\[Info-next], \\[Info-prev] or \\[Info-up] command, depending on where you click. |
7007
52b0ebfd3191
(Info-next-preorder): Don't follow footnotes here.
Karl Heuer <kwzh@gnu.org>
parents:
6716
diff
changeset
|
2204 At end of the node's text, moves to the next node, or up if none." |
1309
aa286e6e7bec
(Info-follow-nearest-node): Handle line breaks after *note.
Richard M. Stallman <rms@gnu.org>
parents:
998
diff
changeset
|
2205 (interactive "e") |
32500
5f2aedbe47b5
(Info-mouse-follow-nearest-node): Use mouse-set-point.
Dave Love <fx@gnu.org>
parents:
32391
diff
changeset
|
2206 (mouse-set-point click) |
7007
52b0ebfd3191
(Info-next-preorder): Don't follow footnotes here.
Karl Heuer <kwzh@gnu.org>
parents:
6716
diff
changeset
|
2207 (and (not (Info-try-follow-nearest-node)) |
52b0ebfd3191
(Info-next-preorder): Don't follow footnotes here.
Karl Heuer <kwzh@gnu.org>
parents:
6716
diff
changeset
|
2208 (save-excursion (forward-line 1) (eobp)) |
12156 | 2209 (Info-next-preorder))) |
7007
52b0ebfd3191
(Info-next-preorder): Don't follow footnotes here.
Karl Heuer <kwzh@gnu.org>
parents:
6716
diff
changeset
|
2210 |
52b0ebfd3191
(Info-next-preorder): Don't follow footnotes here.
Karl Heuer <kwzh@gnu.org>
parents:
6716
diff
changeset
|
2211 (defun Info-follow-nearest-node () |
49678
0ae2b48491f7
(Info-follow-nearest-node): Implement new behavior.
Juanma Barranquero <lekktu@gmail.com>
parents:
49502
diff
changeset
|
2212 "Follow a node reference near point. |
0ae2b48491f7
(Info-follow-nearest-node): Implement new behavior.
Juanma Barranquero <lekktu@gmail.com>
parents:
49502
diff
changeset
|
2213 If point is on a reference, follow that reference. Otherwise, |
0ae2b48491f7
(Info-follow-nearest-node): Implement new behavior.
Juanma Barranquero <lekktu@gmail.com>
parents:
49502
diff
changeset
|
2214 if point is in a menu item description, follow that menu item." |
7007
52b0ebfd3191
(Info-next-preorder): Don't follow footnotes here.
Karl Heuer <kwzh@gnu.org>
parents:
6716
diff
changeset
|
2215 (interactive) |
52b0ebfd3191
(Info-next-preorder): Don't follow footnotes here.
Karl Heuer <kwzh@gnu.org>
parents:
6716
diff
changeset
|
2216 (or (Info-try-follow-nearest-node) |
49678
0ae2b48491f7
(Info-follow-nearest-node): Implement new behavior.
Juanma Barranquero <lekktu@gmail.com>
parents:
49502
diff
changeset
|
2217 (when (save-excursion |
0ae2b48491f7
(Info-follow-nearest-node): Implement new behavior.
Juanma Barranquero <lekktu@gmail.com>
parents:
49502
diff
changeset
|
2218 (search-backward "\n* menu:" nil t)) |
0ae2b48491f7
(Info-follow-nearest-node): Implement new behavior.
Juanma Barranquero <lekktu@gmail.com>
parents:
49502
diff
changeset
|
2219 (save-excursion |
0ae2b48491f7
(Info-follow-nearest-node): Implement new behavior.
Juanma Barranquero <lekktu@gmail.com>
parents:
49502
diff
changeset
|
2220 (beginning-of-line) |
0ae2b48491f7
(Info-follow-nearest-node): Implement new behavior.
Juanma Barranquero <lekktu@gmail.com>
parents:
49502
diff
changeset
|
2221 (while (not (or (bobp) (looking-at "[^ \t]\\|[ \t]*$"))) |
0ae2b48491f7
(Info-follow-nearest-node): Implement new behavior.
Juanma Barranquero <lekktu@gmail.com>
parents:
49502
diff
changeset
|
2222 (beginning-of-line 0)) |
0ae2b48491f7
(Info-follow-nearest-node): Implement new behavior.
Juanma Barranquero <lekktu@gmail.com>
parents:
49502
diff
changeset
|
2223 (when (looking-at "\\* +\\([^\t\n]*\\):") |
0ae2b48491f7
(Info-follow-nearest-node): Implement new behavior.
Juanma Barranquero <lekktu@gmail.com>
parents:
49502
diff
changeset
|
2224 (Info-goto-node |
0ae2b48491f7
(Info-follow-nearest-node): Implement new behavior.
Juanma Barranquero <lekktu@gmail.com>
parents:
49502
diff
changeset
|
2225 (Info-extract-menu-item (match-string-no-properties 1))) |
0ae2b48491f7
(Info-follow-nearest-node): Implement new behavior.
Juanma Barranquero <lekktu@gmail.com>
parents:
49502
diff
changeset
|
2226 t))) |
0ae2b48491f7
(Info-follow-nearest-node): Implement new behavior.
Juanma Barranquero <lekktu@gmail.com>
parents:
49502
diff
changeset
|
2227 (error "Point neither on reference nor in menu item description"))) |
7007
52b0ebfd3191
(Info-next-preorder): Don't follow footnotes here.
Karl Heuer <kwzh@gnu.org>
parents:
6716
diff
changeset
|
2228 |
52b0ebfd3191
(Info-next-preorder): Don't follow footnotes here.
Karl Heuer <kwzh@gnu.org>
parents:
6716
diff
changeset
|
2229 ;; Common subroutine. |
52b0ebfd3191
(Info-next-preorder): Don't follow footnotes here.
Karl Heuer <kwzh@gnu.org>
parents:
6716
diff
changeset
|
2230 (defun Info-try-follow-nearest-node () |
52b0ebfd3191
(Info-next-preorder): Don't follow footnotes here.
Karl Heuer <kwzh@gnu.org>
parents:
6716
diff
changeset
|
2231 "Follow a node reference near point. Return non-nil if successful." |
48135
2c6154347319
(Info-streamline-headings): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48118
diff
changeset
|
2232 (let (node) |
325 | 2233 (cond |
7007
52b0ebfd3191
(Info-next-preorder): Don't follow footnotes here.
Karl Heuer <kwzh@gnu.org>
parents:
6716
diff
changeset
|
2234 ((setq node (Info-get-token (point) "\\*note[ \n]" |
52b0ebfd3191
(Info-next-preorder): Don't follow footnotes here.
Karl Heuer <kwzh@gnu.org>
parents:
6716
diff
changeset
|
2235 "\\*note[ \n]\\([^:]*\\):")) |
325 | 2236 (Info-follow-reference node)) |
49426
7ac32aa920b9
(Info-extract-menu-node-name): When looking for end of
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
49424
diff
changeset
|
2237 ;; menu item: node name |
21641
1174b1d6cbf6
(Info-menu): Allow extra spaces at start of menu item.
Richard M. Stallman <rms@gnu.org>
parents:
21197
diff
changeset
|
2238 ((setq node (Info-get-token (point) "\\* +" "\\* +\\([^:]*\\)::")) |
325 | 2239 (Info-goto-node node)) |
49426
7ac32aa920b9
(Info-extract-menu-node-name): When looking for end of
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
49424
diff
changeset
|
2240 ;; menu item: index entry |
7ac32aa920b9
(Info-extract-menu-node-name): When looking for end of
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
49424
diff
changeset
|
2241 ((Info-get-token (point) "\\* +" "\\* +\\(.*\\): ") |
23019
60f63c8a3837
(Info-try-follow-nearest-node): Get the node name
Richard M. Stallman <rms@gnu.org>
parents:
22951
diff
changeset
|
2242 (beginning-of-line) |
60f63c8a3837
(Info-try-follow-nearest-node): Get the node name
Richard M. Stallman <rms@gnu.org>
parents:
22951
diff
changeset
|
2243 (forward-char 2) |
60f63c8a3837
(Info-try-follow-nearest-node): Get the node name
Richard M. Stallman <rms@gnu.org>
parents:
22951
diff
changeset
|
2244 (setq node (Info-extract-menu-node-name)) |
60f63c8a3837
(Info-try-follow-nearest-node): Get the node name
Richard M. Stallman <rms@gnu.org>
parents:
22951
diff
changeset
|
2245 (Info-goto-node node)) |
3127
dfbada800489
(Info-follow-nearest-node): Omit 4th arg to Info-get-token.
Richard M. Stallman <rms@gnu.org>
parents:
3084
diff
changeset
|
2246 ((setq node (Info-get-token (point) "Up: " "Up: \\([^,\n\t]*\\)")) |
325 | 2247 (Info-goto-node node)) |
3127
dfbada800489
(Info-follow-nearest-node): Omit 4th arg to Info-get-token.
Richard M. Stallman <rms@gnu.org>
parents:
3084
diff
changeset
|
2248 ((setq node (Info-get-token (point) "Next: " "Next: \\([^,\n\t]*\\)")) |
325 | 2249 (Info-goto-node node)) |
3127
dfbada800489
(Info-follow-nearest-node): Omit 4th arg to Info-get-token.
Richard M. Stallman <rms@gnu.org>
parents:
3084
diff
changeset
|
2250 ((setq node (Info-get-token (point) "File: " "File: \\([^,\n\t]*\\)")) |
325 | 2251 (Info-goto-node "Top")) |
3127
dfbada800489
(Info-follow-nearest-node): Omit 4th arg to Info-get-token.
Richard M. Stallman <rms@gnu.org>
parents:
3084
diff
changeset
|
2252 ((setq node (Info-get-token (point) "Prev: " "Prev: \\([^,\n\t]*\\)")) |
7007
52b0ebfd3191
(Info-next-preorder): Don't follow footnotes here.
Karl Heuer <kwzh@gnu.org>
parents:
6716
diff
changeset
|
2253 (Info-goto-node node))) |
52b0ebfd3191
(Info-next-preorder): Don't follow footnotes here.
Karl Heuer <kwzh@gnu.org>
parents:
6716
diff
changeset
|
2254 node)) |
325 | 2255 |
2256 (defvar Info-mode-map nil | |
2257 "Keymap containing Info commands.") | |
2258 (if Info-mode-map | |
2259 nil | |
2260 (setq Info-mode-map (make-keymap)) | |
2261 (suppress-keymap Info-mode-map) | |
2262 (define-key Info-mode-map "." 'beginning-of-buffer) | |
929
27262a6c632a
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
846
diff
changeset
|
2263 (define-key Info-mode-map " " 'Info-scroll-up) |
7007
52b0ebfd3191
(Info-next-preorder): Don't follow footnotes here.
Karl Heuer <kwzh@gnu.org>
parents:
6716
diff
changeset
|
2264 (define-key Info-mode-map "\C-m" 'Info-follow-nearest-node) |
4410
25fb71fc2643
(Info-fontify-node): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4261
diff
changeset
|
2265 (define-key Info-mode-map "\t" 'Info-next-reference) |
52368
ef170d234e2d
(Info-mode-map): Bind S-tab and <backtab> to
Richard M. Stallman <rms@gnu.org>
parents:
52216
diff
changeset
|
2266 (define-key Info-mode-map [(shift tab)] 'Info-prev-reference) |
ef170d234e2d
(Info-mode-map): Bind S-tab and <backtab> to
Richard M. Stallman <rms@gnu.org>
parents:
52216
diff
changeset
|
2267 (define-key Info-mode-map [backtab] 'Info-prev-reference) |
1666
c12fbca81b63
(Info-{first,second,third,fourth,fifth}-menu-item): Removed.
Roland McGrath <roland@gnu.org>
parents:
1613
diff
changeset
|
2268 (define-key Info-mode-map "1" 'Info-nth-menu-item) |
c12fbca81b63
(Info-{first,second,third,fourth,fifth}-menu-item): Removed.
Roland McGrath <roland@gnu.org>
parents:
1613
diff
changeset
|
2269 (define-key Info-mode-map "2" 'Info-nth-menu-item) |
c12fbca81b63
(Info-{first,second,third,fourth,fifth}-menu-item): Removed.
Roland McGrath <roland@gnu.org>
parents:
1613
diff
changeset
|
2270 (define-key Info-mode-map "3" 'Info-nth-menu-item) |
c12fbca81b63
(Info-{first,second,third,fourth,fifth}-menu-item): Removed.
Roland McGrath <roland@gnu.org>
parents:
1613
diff
changeset
|
2271 (define-key Info-mode-map "4" 'Info-nth-menu-item) |
c12fbca81b63
(Info-{first,second,third,fourth,fifth}-menu-item): Removed.
Roland McGrath <roland@gnu.org>
parents:
1613
diff
changeset
|
2272 (define-key Info-mode-map "5" 'Info-nth-menu-item) |
c12fbca81b63
(Info-{first,second,third,fourth,fifth}-menu-item): Removed.
Roland McGrath <roland@gnu.org>
parents:
1613
diff
changeset
|
2273 (define-key Info-mode-map "6" 'Info-nth-menu-item) |
c12fbca81b63
(Info-{first,second,third,fourth,fifth}-menu-item): Removed.
Roland McGrath <roland@gnu.org>
parents:
1613
diff
changeset
|
2274 (define-key Info-mode-map "7" 'Info-nth-menu-item) |
c12fbca81b63
(Info-{first,second,third,fourth,fifth}-menu-item): Removed.
Roland McGrath <roland@gnu.org>
parents:
1613
diff
changeset
|
2275 (define-key Info-mode-map "8" 'Info-nth-menu-item) |
c12fbca81b63
(Info-{first,second,third,fourth,fifth}-menu-item): Removed.
Roland McGrath <roland@gnu.org>
parents:
1613
diff
changeset
|
2276 (define-key Info-mode-map "9" 'Info-nth-menu-item) |
1667
9c0e14881b8f
(Info-{first,second,third,fourth,fifth}-menu-item): Removed.
Roland McGrath <roland@gnu.org>
parents:
1666
diff
changeset
|
2277 (define-key Info-mode-map "0" 'undefined) |
325 | 2278 (define-key Info-mode-map "?" 'Info-summary) |
2279 (define-key Info-mode-map "]" 'Info-forward-node) | |
2280 (define-key Info-mode-map "[" 'Info-backward-node) | |
2281 (define-key Info-mode-map "<" 'Info-top-node) | |
2282 (define-key Info-mode-map ">" 'Info-final-node) | |
2283 (define-key Info-mode-map "b" 'beginning-of-buffer) | |
45182
f2355d13fe23
(Info-mode-map): Bind `c' to Info-copy-current-node-name.
Pavel Janík <Pavel@Janik.cz>
parents:
45014
diff
changeset
|
2284 (define-key Info-mode-map "c" 'Info-copy-current-node-name) |
325 | 2285 (define-key Info-mode-map "d" 'Info-directory) |
2286 (define-key Info-mode-map "e" 'Info-edit) | |
2287 (define-key Info-mode-map "f" 'Info-follow-reference) | |
2288 (define-key Info-mode-map "g" 'Info-goto-node) | |
2289 (define-key Info-mode-map "h" 'Info-help) | |
2561
1bd4cf98df68
(Info-find-node, Info-insert-subfile): Do the right thing if info files have
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2038
diff
changeset
|
2290 (define-key Info-mode-map "i" 'Info-index) |
325 | 2291 (define-key Info-mode-map "l" 'Info-last) |
2292 (define-key Info-mode-map "m" 'Info-menu) | |
2293 (define-key Info-mode-map "n" 'Info-next) | |
2294 (define-key Info-mode-map "p" 'Info-prev) | |
2295 (define-key Info-mode-map "q" 'Info-exit) | |
2296 (define-key Info-mode-map "s" 'Info-search) | |
8739
f89682e90658
(Info-mode-map): Bind M-s like s.
Richard M. Stallman <rms@gnu.org>
parents:
8692
diff
changeset
|
2297 ;; For consistency with Rmail. |
f89682e90658
(Info-mode-map): Bind M-s like s.
Richard M. Stallman <rms@gnu.org>
parents:
8692
diff
changeset
|
2298 (define-key Info-mode-map "\M-s" 'Info-search) |
26004
11f91800bec3
(Info-on-current-buffer): new entry point.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
25878
diff
changeset
|
2299 (define-key Info-mode-map "\M-n" 'clone-buffer) |
3313
34f2db3916fe
(Info-mode-map): Correct Info-top to Info-top-node.
Richard M. Stallman <rms@gnu.org>
parents:
3225
diff
changeset
|
2300 (define-key Info-mode-map "t" 'Info-top-node) |
325 | 2301 (define-key Info-mode-map "u" 'Info-up) |
2561
1bd4cf98df68
(Info-find-node, Info-insert-subfile): Do the right thing if info files have
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2038
diff
changeset
|
2302 (define-key Info-mode-map "," 'Info-index-next) |
930
1dac458b5117
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
929
diff
changeset
|
2303 (define-key Info-mode-map "\177" 'Info-scroll-down) |
7007
52b0ebfd3191
(Info-next-preorder): Don't follow footnotes here.
Karl Heuer <kwzh@gnu.org>
parents:
6716
diff
changeset
|
2304 (define-key Info-mode-map [mouse-2] 'Info-mouse-follow-nearest-node) |
540 | 2305 ) |
16043
f3a7e1cb07d6
Add menu items and xrefs to the menu bar menu.
Richard M. Stallman <rms@gnu.org>
parents:
15821
diff
changeset
|
2306 |
f3a7e1cb07d6
Add menu items and xrefs to the menu bar menu.
Richard M. Stallman <rms@gnu.org>
parents:
15821
diff
changeset
|
2307 (defun Info-check-pointer (item) |
29621 | 2308 "Non-nil if ITEM is present in this node." |
16043
f3a7e1cb07d6
Add menu items and xrefs to the menu bar menu.
Richard M. Stallman <rms@gnu.org>
parents:
15821
diff
changeset
|
2309 (condition-case nil |
f3a7e1cb07d6
Add menu items and xrefs to the menu bar menu.
Richard M. Stallman <rms@gnu.org>
parents:
15821
diff
changeset
|
2310 (Info-extract-pointer item) |
f3a7e1cb07d6
Add menu items and xrefs to the menu bar menu.
Richard M. Stallman <rms@gnu.org>
parents:
15821
diff
changeset
|
2311 (error nil))) |
f3a7e1cb07d6
Add menu items and xrefs to the menu bar menu.
Richard M. Stallman <rms@gnu.org>
parents:
15821
diff
changeset
|
2312 |
30220
e4628d420030
(Info-mode-menu): Fix use of :help, :enable.
Dave Love <fx@gnu.org>
parents:
30109
diff
changeset
|
2313 (easy-menu-define |
e4628d420030
(Info-mode-menu): Fix use of :help, :enable.
Dave Love <fx@gnu.org>
parents:
30109
diff
changeset
|
2314 Info-mode-menu Info-mode-map |
e4628d420030
(Info-mode-menu): Fix use of :help, :enable.
Dave Love <fx@gnu.org>
parents:
30109
diff
changeset
|
2315 "Menu for info files." |
e4628d420030
(Info-mode-menu): Fix use of :help, :enable.
Dave Love <fx@gnu.org>
parents:
30109
diff
changeset
|
2316 '("Info" |
e4628d420030
(Info-mode-menu): Fix use of :help, :enable.
Dave Love <fx@gnu.org>
parents:
30109
diff
changeset
|
2317 ["Up" Info-up :active (Info-check-pointer "up") |
e4628d420030
(Info-mode-menu): Fix use of :help, :enable.
Dave Love <fx@gnu.org>
parents:
30109
diff
changeset
|
2318 :help "Go up in the Info tree"] |
e4628d420030
(Info-mode-menu): Fix use of :help, :enable.
Dave Love <fx@gnu.org>
parents:
30109
diff
changeset
|
2319 ["Next" Info-next :active (Info-check-pointer "next") |
e4628d420030
(Info-mode-menu): Fix use of :help, :enable.
Dave Love <fx@gnu.org>
parents:
30109
diff
changeset
|
2320 :help "Go to the next node"] |
e4628d420030
(Info-mode-menu): Fix use of :help, :enable.
Dave Love <fx@gnu.org>
parents:
30109
diff
changeset
|
2321 ["Previous" Info-prev :active (Info-check-pointer "prev[ious]*") |
e4628d420030
(Info-mode-menu): Fix use of :help, :enable.
Dave Love <fx@gnu.org>
parents:
30109
diff
changeset
|
2322 :help "Go to the previous node"] |
e4628d420030
(Info-mode-menu): Fix use of :help, :enable.
Dave Love <fx@gnu.org>
parents:
30109
diff
changeset
|
2323 ["Backward" Info-backward-node |
e4628d420030
(Info-mode-menu): Fix use of :help, :enable.
Dave Love <fx@gnu.org>
parents:
30109
diff
changeset
|
2324 :help "Go backward one node, considering all as a sequence"] |
e4628d420030
(Info-mode-menu): Fix use of :help, :enable.
Dave Love <fx@gnu.org>
parents:
30109
diff
changeset
|
2325 ["Forward" Info-forward-node |
e4628d420030
(Info-mode-menu): Fix use of :help, :enable.
Dave Love <fx@gnu.org>
parents:
30109
diff
changeset
|
2326 :help "Go forward one node, considering all as a sequence"] |
32286
c0b19a2770ca
(Info-goto-node, Info-menu): Doc fix.
Dave Love <fx@gnu.org>
parents:
32007
diff
changeset
|
2327 ["Beginning" beginning-of-buffer |
c0b19a2770ca
(Info-goto-node, Info-menu): Doc fix.
Dave Love <fx@gnu.org>
parents:
32007
diff
changeset
|
2328 :help "Go to beginning of this node"] |
30220
e4628d420030
(Info-mode-menu): Fix use of :help, :enable.
Dave Love <fx@gnu.org>
parents:
30109
diff
changeset
|
2329 ["Top" Info-top-node |
e4628d420030
(Info-mode-menu): Fix use of :help, :enable.
Dave Love <fx@gnu.org>
parents:
30109
diff
changeset
|
2330 :help "Go to top node of file"] |
e4628d420030
(Info-mode-menu): Fix use of :help, :enable.
Dave Love <fx@gnu.org>
parents:
30109
diff
changeset
|
2331 ["Final Node" Info-final-node |
e4628d420030
(Info-mode-menu): Fix use of :help, :enable.
Dave Love <fx@gnu.org>
parents:
30109
diff
changeset
|
2332 :help "Go to final node in this file"] |
e4628d420030
(Info-mode-menu): Fix use of :help, :enable.
Dave Love <fx@gnu.org>
parents:
30109
diff
changeset
|
2333 ("Menu Item" ["You should never see this" report-emacs-bug t]) |
e4628d420030
(Info-mode-menu): Fix use of :help, :enable.
Dave Love <fx@gnu.org>
parents:
30109
diff
changeset
|
2334 ("Reference" ["You should never see this" report-emacs-bug t]) |
e4628d420030
(Info-mode-menu): Fix use of :help, :enable.
Dave Love <fx@gnu.org>
parents:
30109
diff
changeset
|
2335 ["Search..." Info-search |
e4628d420030
(Info-mode-menu): Fix use of :help, :enable.
Dave Love <fx@gnu.org>
parents:
30109
diff
changeset
|
2336 :help "Search for regular expression in this Info file"] |
32500
5f2aedbe47b5
(Info-mouse-follow-nearest-node): Use mouse-set-point.
Dave Love <fx@gnu.org>
parents:
32391
diff
changeset
|
2337 ["Go to Node..." Info-goto-node |
30220
e4628d420030
(Info-mode-menu): Fix use of :help, :enable.
Dave Love <fx@gnu.org>
parents:
30109
diff
changeset
|
2338 :help "Go to a named node"] |
32391 | 2339 ["Last" Info-last :active Info-history |
30220
e4628d420030
(Info-mode-menu): Fix use of :help, :enable.
Dave Love <fx@gnu.org>
parents:
30109
diff
changeset
|
2340 :help "Go to the last node you were at"] |
e4628d420030
(Info-mode-menu): Fix use of :help, :enable.
Dave Love <fx@gnu.org>
parents:
30109
diff
changeset
|
2341 ("Index..." |
e4628d420030
(Info-mode-menu): Fix use of :help, :enable.
Dave Love <fx@gnu.org>
parents:
30109
diff
changeset
|
2342 ["Lookup a String" Info-index |
e4628d420030
(Info-mode-menu): Fix use of :help, :enable.
Dave Love <fx@gnu.org>
parents:
30109
diff
changeset
|
2343 :help "Look for a string in the index items"] |
e4628d420030
(Info-mode-menu): Fix use of :help, :enable.
Dave Love <fx@gnu.org>
parents:
30109
diff
changeset
|
2344 ["Next Matching Item" Info-index-next |
e4628d420030
(Info-mode-menu): Fix use of :help, :enable.
Dave Love <fx@gnu.org>
parents:
30109
diff
changeset
|
2345 :help "Look for another occurrence of previous item"]) |
32286
c0b19a2770ca
(Info-goto-node, Info-menu): Doc fix.
Dave Love <fx@gnu.org>
parents:
32007
diff
changeset
|
2346 ["Edit" Info-edit :help "Edit contents of this node" |
c0b19a2770ca
(Info-goto-node, Info-menu): Doc fix.
Dave Love <fx@gnu.org>
parents:
32007
diff
changeset
|
2347 :active Info-enable-edit] |
36092
bf55849c91fb
(Info-copy-current-node-name): New function.
Miles Bader <miles@gnu.org>
parents:
35934
diff
changeset
|
2348 ["Copy Node Name" Info-copy-current-node-name |
bf55849c91fb
(Info-copy-current-node-name): New function.
Miles Bader <miles@gnu.org>
parents:
35934
diff
changeset
|
2349 :help "Copy the name of the current node into the kill ring"] |
32391 | 2350 ["Exit" Info-exit :help "Stop reading Info"])) |
16043
f3a7e1cb07d6
Add menu items and xrefs to the menu bar menu.
Richard M. Stallman <rms@gnu.org>
parents:
15821
diff
changeset
|
2351 |
32286
c0b19a2770ca
(Info-goto-node, Info-menu): Doc fix.
Dave Love <fx@gnu.org>
parents:
32007
diff
changeset
|
2352 |
c0b19a2770ca
(Info-goto-node, Info-menu): Doc fix.
Dave Love <fx@gnu.org>
parents:
32007
diff
changeset
|
2353 (defvar info-tool-bar-map |
c0b19a2770ca
(Info-goto-node, Info-menu): Doc fix.
Dave Love <fx@gnu.org>
parents:
32007
diff
changeset
|
2354 (if (display-graphic-p) |
44306
33a65a57f38a
(info-tool-bar-map): Use tool-bar-local-item-from-menu.
Richard M. Stallman <rms@gnu.org>
parents:
43776
diff
changeset
|
2355 (let ((map (make-sparse-keymap))) |
33a65a57f38a
(info-tool-bar-map): Use tool-bar-local-item-from-menu.
Richard M. Stallman <rms@gnu.org>
parents:
43776
diff
changeset
|
2356 (tool-bar-local-item-from-menu 'Info-exit "close" map Info-mode-map) |
33a65a57f38a
(info-tool-bar-map): Use tool-bar-local-item-from-menu.
Richard M. Stallman <rms@gnu.org>
parents:
43776
diff
changeset
|
2357 (tool-bar-local-item-from-menu 'Info-prev "left_arrow" map Info-mode-map) |
33a65a57f38a
(info-tool-bar-map): Use tool-bar-local-item-from-menu.
Richard M. Stallman <rms@gnu.org>
parents:
43776
diff
changeset
|
2358 (tool-bar-local-item-from-menu 'Info-next "right_arrow" map Info-mode-map) |
33a65a57f38a
(info-tool-bar-map): Use tool-bar-local-item-from-menu.
Richard M. Stallman <rms@gnu.org>
parents:
43776
diff
changeset
|
2359 (tool-bar-local-item-from-menu 'Info-up "up_arrow" map Info-mode-map) |
33a65a57f38a
(info-tool-bar-map): Use tool-bar-local-item-from-menu.
Richard M. Stallman <rms@gnu.org>
parents:
43776
diff
changeset
|
2360 (tool-bar-local-item-from-menu 'Info-last "undo" map Info-mode-map) |
33a65a57f38a
(info-tool-bar-map): Use tool-bar-local-item-from-menu.
Richard M. Stallman <rms@gnu.org>
parents:
43776
diff
changeset
|
2361 (tool-bar-local-item-from-menu 'Info-top-node "home" map Info-mode-map) |
33a65a57f38a
(info-tool-bar-map): Use tool-bar-local-item-from-menu.
Richard M. Stallman <rms@gnu.org>
parents:
43776
diff
changeset
|
2362 (tool-bar-local-item-from-menu 'Info-index "index" map Info-mode-map) |
33a65a57f38a
(info-tool-bar-map): Use tool-bar-local-item-from-menu.
Richard M. Stallman <rms@gnu.org>
parents:
43776
diff
changeset
|
2363 (tool-bar-local-item-from-menu 'Info-goto-node "jump_to" map Info-mode-map) |
33a65a57f38a
(info-tool-bar-map): Use tool-bar-local-item-from-menu.
Richard M. Stallman <rms@gnu.org>
parents:
43776
diff
changeset
|
2364 (tool-bar-local-item-from-menu 'Info-search "search" map Info-mode-map) |
33a65a57f38a
(info-tool-bar-map): Use tool-bar-local-item-from-menu.
Richard M. Stallman <rms@gnu.org>
parents:
43776
diff
changeset
|
2365 map))) |
32286
c0b19a2770ca
(Info-goto-node, Info-menu): Doc fix.
Dave Love <fx@gnu.org>
parents:
32007
diff
changeset
|
2366 |
16043
f3a7e1cb07d6
Add menu items and xrefs to the menu bar menu.
Richard M. Stallman <rms@gnu.org>
parents:
15821
diff
changeset
|
2367 (defvar Info-menu-last-node nil) |
f3a7e1cb07d6
Add menu items and xrefs to the menu bar menu.
Richard M. Stallman <rms@gnu.org>
parents:
15821
diff
changeset
|
2368 ;; Last node the menu was created for. |
21197
e4b99d1db55a
(Info-menu-update): Set Info-menu-last-node
Richard M. Stallman <rms@gnu.org>
parents:
21003
diff
changeset
|
2369 ;; Value is a list, (FILE-NAME NODE-NAME). |
16043
f3a7e1cb07d6
Add menu items and xrefs to the menu bar menu.
Richard M. Stallman <rms@gnu.org>
parents:
15821
diff
changeset
|
2370 |
f3a7e1cb07d6
Add menu items and xrefs to the menu bar menu.
Richard M. Stallman <rms@gnu.org>
parents:
15821
diff
changeset
|
2371 (defun Info-menu-update () |
29621 | 2372 "Update the Info menu for the current node." |
16043
f3a7e1cb07d6
Add menu items and xrefs to the menu bar menu.
Richard M. Stallman <rms@gnu.org>
parents:
15821
diff
changeset
|
2373 (condition-case nil |
f3a7e1cb07d6
Add menu items and xrefs to the menu bar menu.
Richard M. Stallman <rms@gnu.org>
parents:
15821
diff
changeset
|
2374 (if (or (not (eq major-mode 'Info-mode)) |
21197
e4b99d1db55a
(Info-menu-update): Set Info-menu-last-node
Richard M. Stallman <rms@gnu.org>
parents:
21003
diff
changeset
|
2375 (equal (list Info-current-file Info-current-node) |
e4b99d1db55a
(Info-menu-update): Set Info-menu-last-node
Richard M. Stallman <rms@gnu.org>
parents:
21003
diff
changeset
|
2376 Info-menu-last-node)) |
16043
f3a7e1cb07d6
Add menu items and xrefs to the menu bar menu.
Richard M. Stallman <rms@gnu.org>
parents:
15821
diff
changeset
|
2377 () |
f3a7e1cb07d6
Add menu items and xrefs to the menu bar menu.
Richard M. Stallman <rms@gnu.org>
parents:
15821
diff
changeset
|
2378 ;; Update menu menu. |
f3a7e1cb07d6
Add menu items and xrefs to the menu bar menu.
Richard M. Stallman <rms@gnu.org>
parents:
15821
diff
changeset
|
2379 (let* ((Info-complete-menu-buffer (current-buffer)) |
f3a7e1cb07d6
Add menu items and xrefs to the menu bar menu.
Richard M. Stallman <rms@gnu.org>
parents:
15821
diff
changeset
|
2380 (items (nreverse (condition-case nil |
41690
c9c839b993b9
(Info-complete-next-re, Info-complete-cache): New vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40967
diff
changeset
|
2381 (Info-complete-menu-item "" nil t) |
16043
f3a7e1cb07d6
Add menu items and xrefs to the menu bar menu.
Richard M. Stallman <rms@gnu.org>
parents:
15821
diff
changeset
|
2382 (error nil)))) |
28943
36fd90774cf7
(debug-ignored-errors): more errors to ignore.
Sam Steingold <sds@gnu.org>
parents:
28559
diff
changeset
|
2383 entries current |
16043
f3a7e1cb07d6
Add menu items and xrefs to the menu bar menu.
Richard M. Stallman <rms@gnu.org>
parents:
15821
diff
changeset
|
2384 (number 0)) |
f3a7e1cb07d6
Add menu items and xrefs to the menu bar menu.
Richard M. Stallman <rms@gnu.org>
parents:
15821
diff
changeset
|
2385 (while (and items (< number 9)) |
f3a7e1cb07d6
Add menu items and xrefs to the menu bar menu.
Richard M. Stallman <rms@gnu.org>
parents:
15821
diff
changeset
|
2386 (setq current (car items) |
f3a7e1cb07d6
Add menu items and xrefs to the menu bar menu.
Richard M. Stallman <rms@gnu.org>
parents:
15821
diff
changeset
|
2387 items (cdr items) |
f3a7e1cb07d6
Add menu items and xrefs to the menu bar menu.
Richard M. Stallman <rms@gnu.org>
parents:
15821
diff
changeset
|
2388 number (1+ number)) |
28943
36fd90774cf7
(debug-ignored-errors): more errors to ignore.
Sam Steingold <sds@gnu.org>
parents:
28559
diff
changeset
|
2389 (setq entries (cons `[,current |
16043
f3a7e1cb07d6
Add menu items and xrefs to the menu bar menu.
Richard M. Stallman <rms@gnu.org>
parents:
15821
diff
changeset
|
2390 (Info-menu ,current) |
f3a7e1cb07d6
Add menu items and xrefs to the menu bar menu.
Richard M. Stallman <rms@gnu.org>
parents:
15821
diff
changeset
|
2391 :keys ,(format "%d" number)] |
f3a7e1cb07d6
Add menu items and xrefs to the menu bar menu.
Richard M. Stallman <rms@gnu.org>
parents:
15821
diff
changeset
|
2392 entries))) |
f3a7e1cb07d6
Add menu items and xrefs to the menu bar menu.
Richard M. Stallman <rms@gnu.org>
parents:
15821
diff
changeset
|
2393 (if items |
f3a7e1cb07d6
Add menu items and xrefs to the menu bar menu.
Richard M. Stallman <rms@gnu.org>
parents:
15821
diff
changeset
|
2394 (setq entries (cons ["Other..." Info-menu t] entries))) |
f3a7e1cb07d6
Add menu items and xrefs to the menu bar menu.
Richard M. Stallman <rms@gnu.org>
parents:
15821
diff
changeset
|
2395 (or entries |
37370
3a3bed48a714
(Info-menu-update): When there are no menus and/or no
Eli Zaretskii <eliz@gnu.org>
parents:
37351
diff
changeset
|
2396 (setq entries (list ["No menu" nil nil] nil :active))) |
30220
e4628d420030
(Info-mode-menu): Fix use of :help, :enable.
Dave Love <fx@gnu.org>
parents:
30109
diff
changeset
|
2397 (easy-menu-change '("Info") "Menu Item" (nreverse entries))) |
16043
f3a7e1cb07d6
Add menu items and xrefs to the menu bar menu.
Richard M. Stallman <rms@gnu.org>
parents:
15821
diff
changeset
|
2398 ;; Update reference menu. Code stolen from `Info-follow-reference'. |
f3a7e1cb07d6
Add menu items and xrefs to the menu bar menu.
Richard M. Stallman <rms@gnu.org>
parents:
15821
diff
changeset
|
2399 (let ((items nil) |
28943
36fd90774cf7
(debug-ignored-errors): more errors to ignore.
Sam Steingold <sds@gnu.org>
parents:
28559
diff
changeset
|
2400 str i entries current |
22951
19b3899582b4
Bind case-fold-search to t in many functions.
Richard M. Stallman <rms@gnu.org>
parents:
22902
diff
changeset
|
2401 (number 0) |
19b3899582b4
Bind case-fold-search to t in many functions.
Richard M. Stallman <rms@gnu.org>
parents:
22902
diff
changeset
|
2402 (case-fold-search t)) |
16043
f3a7e1cb07d6
Add menu items and xrefs to the menu bar menu.
Richard M. Stallman <rms@gnu.org>
parents:
15821
diff
changeset
|
2403 (save-excursion |
f3a7e1cb07d6
Add menu items and xrefs to the menu bar menu.
Richard M. Stallman <rms@gnu.org>
parents:
15821
diff
changeset
|
2404 (goto-char (point-min)) |
f3a7e1cb07d6
Add menu items and xrefs to the menu bar menu.
Richard M. Stallman <rms@gnu.org>
parents:
15821
diff
changeset
|
2405 (while (re-search-forward "\\*note[ \n\t]*\\([^:]*\\):" nil t) |
51735
204ae43066d1
(Info-following-node-name-re): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51731
diff
changeset
|
2406 (setq str (match-string 1)) |
16043
f3a7e1cb07d6
Add menu items and xrefs to the menu bar menu.
Richard M. Stallman <rms@gnu.org>
parents:
15821
diff
changeset
|
2407 (setq i 0) |
f3a7e1cb07d6
Add menu items and xrefs to the menu bar menu.
Richard M. Stallman <rms@gnu.org>
parents:
15821
diff
changeset
|
2408 (while (setq i (string-match "[ \n\t]+" str i)) |
f3a7e1cb07d6
Add menu items and xrefs to the menu bar menu.
Richard M. Stallman <rms@gnu.org>
parents:
15821
diff
changeset
|
2409 (setq str (concat (substring str 0 i) " " |
f3a7e1cb07d6
Add menu items and xrefs to the menu bar menu.
Richard M. Stallman <rms@gnu.org>
parents:
15821
diff
changeset
|
2410 (substring str (match-end 0)))) |
f3a7e1cb07d6
Add menu items and xrefs to the menu bar menu.
Richard M. Stallman <rms@gnu.org>
parents:
15821
diff
changeset
|
2411 (setq i (1+ i))) |
f3a7e1cb07d6
Add menu items and xrefs to the menu bar menu.
Richard M. Stallman <rms@gnu.org>
parents:
15821
diff
changeset
|
2412 (setq items |
f3a7e1cb07d6
Add menu items and xrefs to the menu bar menu.
Richard M. Stallman <rms@gnu.org>
parents:
15821
diff
changeset
|
2413 (cons str items)))) |
f3a7e1cb07d6
Add menu items and xrefs to the menu bar menu.
Richard M. Stallman <rms@gnu.org>
parents:
15821
diff
changeset
|
2414 (while (and items (< number 9)) |
f3a7e1cb07d6
Add menu items and xrefs to the menu bar menu.
Richard M. Stallman <rms@gnu.org>
parents:
15821
diff
changeset
|
2415 (setq current (car items) |
f3a7e1cb07d6
Add menu items and xrefs to the menu bar menu.
Richard M. Stallman <rms@gnu.org>
parents:
15821
diff
changeset
|
2416 items (cdr items) |
f3a7e1cb07d6
Add menu items and xrefs to the menu bar menu.
Richard M. Stallman <rms@gnu.org>
parents:
15821
diff
changeset
|
2417 number (1+ number)) |
28943
36fd90774cf7
(debug-ignored-errors): more errors to ignore.
Sam Steingold <sds@gnu.org>
parents:
28559
diff
changeset
|
2418 (setq entries (cons `[,current |
16043
f3a7e1cb07d6
Add menu items and xrefs to the menu bar menu.
Richard M. Stallman <rms@gnu.org>
parents:
15821
diff
changeset
|
2419 (Info-follow-reference ,current) |
f3a7e1cb07d6
Add menu items and xrefs to the menu bar menu.
Richard M. Stallman <rms@gnu.org>
parents:
15821
diff
changeset
|
2420 t] |
f3a7e1cb07d6
Add menu items and xrefs to the menu bar menu.
Richard M. Stallman <rms@gnu.org>
parents:
15821
diff
changeset
|
2421 entries))) |
f3a7e1cb07d6
Add menu items and xrefs to the menu bar menu.
Richard M. Stallman <rms@gnu.org>
parents:
15821
diff
changeset
|
2422 (if items |
f3a7e1cb07d6
Add menu items and xrefs to the menu bar menu.
Richard M. Stallman <rms@gnu.org>
parents:
15821
diff
changeset
|
2423 (setq entries (cons ["Other..." Info-follow-reference t] |
f3a7e1cb07d6
Add menu items and xrefs to the menu bar menu.
Richard M. Stallman <rms@gnu.org>
parents:
15821
diff
changeset
|
2424 entries))) |
f3a7e1cb07d6
Add menu items and xrefs to the menu bar menu.
Richard M. Stallman <rms@gnu.org>
parents:
15821
diff
changeset
|
2425 (or entries |
37370
3a3bed48a714
(Info-menu-update): When there are no menus and/or no
Eli Zaretskii <eliz@gnu.org>
parents:
37351
diff
changeset
|
2426 (setq entries (list ["No references" nil nil] nil :active))) |
16043
f3a7e1cb07d6
Add menu items and xrefs to the menu bar menu.
Richard M. Stallman <rms@gnu.org>
parents:
15821
diff
changeset
|
2427 (easy-menu-change '("Info") "Reference" (nreverse entries))) |
f3a7e1cb07d6
Add menu items and xrefs to the menu bar menu.
Richard M. Stallman <rms@gnu.org>
parents:
15821
diff
changeset
|
2428 ;; Update last seen node. |
21197
e4b99d1db55a
(Info-menu-update): Set Info-menu-last-node
Richard M. Stallman <rms@gnu.org>
parents:
21003
diff
changeset
|
2429 (setq Info-menu-last-node (list Info-current-file Info-current-node))) |
16043
f3a7e1cb07d6
Add menu items and xrefs to the menu bar menu.
Richard M. Stallman <rms@gnu.org>
parents:
15821
diff
changeset
|
2430 ;; Try to avoid entering infinite beep mode in case of errors. |
f3a7e1cb07d6
Add menu items and xrefs to the menu bar menu.
Richard M. Stallman <rms@gnu.org>
parents:
15821
diff
changeset
|
2431 (error (ding)))) |
f3a7e1cb07d6
Add menu items and xrefs to the menu bar menu.
Richard M. Stallman <rms@gnu.org>
parents:
15821
diff
changeset
|
2432 |
325 | 2433 |
36092
bf55849c91fb
(Info-copy-current-node-name): New function.
Miles Bader <miles@gnu.org>
parents:
35934
diff
changeset
|
2434 (defun Info-copy-current-node-name () |
bf55849c91fb
(Info-copy-current-node-name): New function.
Miles Bader <miles@gnu.org>
parents:
35934
diff
changeset
|
2435 "Put the name of the current info node into the kill ring. |
bf55849c91fb
(Info-copy-current-node-name): New function.
Miles Bader <miles@gnu.org>
parents:
35934
diff
changeset
|
2436 The name of the info file is prepended to the node name in parentheses." |
bf55849c91fb
(Info-copy-current-node-name): New function.
Miles Bader <miles@gnu.org>
parents:
35934
diff
changeset
|
2437 (interactive) |
bf55849c91fb
(Info-copy-current-node-name): New function.
Miles Bader <miles@gnu.org>
parents:
35934
diff
changeset
|
2438 (unless Info-current-node |
bf55849c91fb
(Info-copy-current-node-name): New function.
Miles Bader <miles@gnu.org>
parents:
35934
diff
changeset
|
2439 (error "No current info node")) |
bf55849c91fb
(Info-copy-current-node-name): New function.
Miles Bader <miles@gnu.org>
parents:
35934
diff
changeset
|
2440 (kill-new |
bf55849c91fb
(Info-copy-current-node-name): New function.
Miles Bader <miles@gnu.org>
parents:
35934
diff
changeset
|
2441 (concat "(" |
bf55849c91fb
(Info-copy-current-node-name): New function.
Miles Bader <miles@gnu.org>
parents:
35934
diff
changeset
|
2442 (file-name-nondirectory |
bf55849c91fb
(Info-copy-current-node-name): New function.
Miles Bader <miles@gnu.org>
parents:
35934
diff
changeset
|
2443 (if (stringp Info-current-file) |
bf55849c91fb
(Info-copy-current-node-name): New function.
Miles Bader <miles@gnu.org>
parents:
35934
diff
changeset
|
2444 Info-current-file |
bf55849c91fb
(Info-copy-current-node-name): New function.
Miles Bader <miles@gnu.org>
parents:
35934
diff
changeset
|
2445 (or buffer-file-name ""))) |
bf55849c91fb
(Info-copy-current-node-name): New function.
Miles Bader <miles@gnu.org>
parents:
35934
diff
changeset
|
2446 ")" |
bf55849c91fb
(Info-copy-current-node-name): New function.
Miles Bader <miles@gnu.org>
parents:
35934
diff
changeset
|
2447 Info-current-node))) |
bf55849c91fb
(Info-copy-current-node-name): New function.
Miles Bader <miles@gnu.org>
parents:
35934
diff
changeset
|
2448 |
bf55849c91fb
(Info-copy-current-node-name): New function.
Miles Bader <miles@gnu.org>
parents:
35934
diff
changeset
|
2449 |
325 | 2450 ;; Info mode is suitable only for specially formatted data. |
31798
460c3cd7b368
Use the correct capitalization when making Info-mode and Info-edit-mode
Miles Bader <miles@gnu.org>
parents:
31755
diff
changeset
|
2451 (put 'Info-mode 'mode-class 'special) |
40967
ab0564ba441e
(Info-mode): Add a no-clone-indirect property.
Richard M. Stallman <rms@gnu.org>
parents:
40845
diff
changeset
|
2452 (put 'Info-mode 'no-clone-indirect t) |
325 | 2453 |
2454 (defun Info-mode () | |
29621 | 2455 "Info mode provides commands for browsing through the Info documentation tree. |
325 | 2456 Documentation in Info is divided into \"nodes\", each of which discusses |
2457 one topic and contains references to other nodes which discuss related | |
2458 topics. Info has commands to follow the references and show you other nodes. | |
2459 | |
29621 | 2460 \\<Info-mode-map>\ |
325 | 2461 \\[Info-help] Invoke the Info tutorial. |
21806 | 2462 \\[Info-exit] Quit Info: reselect previously selected buffer. |
325 | 2463 |
2464 Selecting other nodes: | |
8564 | 2465 \\[Info-mouse-follow-nearest-node] |
2466 Follow a node reference you click on. | |
2467 This works with menu items, cross references, and | |
2468 the \"next\", \"previous\" and \"up\", depending on where you click. | |
21806 | 2469 \\[Info-follow-nearest-node] Follow a node reference near point, like \\[Info-mouse-follow-nearest-node]. |
325 | 2470 \\[Info-next] Move to the \"next\" node of this node. |
3127
dfbada800489
(Info-follow-nearest-node): Omit 4th arg to Info-get-token.
Richard M. Stallman <rms@gnu.org>
parents:
3084
diff
changeset
|
2471 \\[Info-prev] Move to the \"previous\" node of this node. |
325 | 2472 \\[Info-up] Move \"up\" from this node. |
2473 \\[Info-menu] Pick menu item specified by name (or abbreviation). | |
42406
4c72bc09992b
(Info-mode): Reindent the doc-string.
Pavel Janík <Pavel@Janik.cz>
parents:
42243
diff
changeset
|
2474 Picking a menu item causes another node to be selected. |
540 | 2475 \\[Info-directory] Go to the Info directory node. |
325 | 2476 \\[Info-follow-reference] Follow a cross reference. Reads name of reference. |
2477 \\[Info-last] Move to the last node you were at. | |
2561
1bd4cf98df68
(Info-find-node, Info-insert-subfile): Do the right thing if info files have
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2038
diff
changeset
|
2478 \\[Info-index] Look up a topic in this file's Index and move to that node. |
1bd4cf98df68
(Info-find-node, Info-insert-subfile): Do the right thing if info files have
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2038
diff
changeset
|
2479 \\[Info-index-next] (comma) Move to the next match from a previous `i' command. |
21806 | 2480 \\[Info-top-node] Go to the Top node of this file. |
2481 \\[Info-final-node] Go to the final node in this file. | |
2482 \\[Info-backward-node] Go backward one node, considering all nodes as forming one sequence. | |
2483 \\[Info-forward-node] Go forward one node, considering all nodes as forming one sequence. | |
325 | 2484 |
2485 Moving within a node: | |
20514 | 2486 \\[Info-scroll-up] Normally, scroll forward a full screen. |
42406
4c72bc09992b
(Info-mode): Reindent the doc-string.
Pavel Janík <Pavel@Janik.cz>
parents:
42243
diff
changeset
|
2487 Once you scroll far enough in a node that its menu appears on the |
4c72bc09992b
(Info-mode): Reindent the doc-string.
Pavel Janík <Pavel@Janik.cz>
parents:
42243
diff
changeset
|
2488 screen but after point, the next scroll moves into its first |
4c72bc09992b
(Info-mode): Reindent the doc-string.
Pavel Janík <Pavel@Janik.cz>
parents:
42243
diff
changeset
|
2489 subnode. When after all menu items (or if there is no menu), |
4c72bc09992b
(Info-mode): Reindent the doc-string.
Pavel Janík <Pavel@Janik.cz>
parents:
42243
diff
changeset
|
2490 move up to the parent node. |
20514 | 2491 \\[Info-scroll-down] Normally, scroll backward. If the beginning of the buffer is |
42406
4c72bc09992b
(Info-mode): Reindent the doc-string.
Pavel Janík <Pavel@Janik.cz>
parents:
42243
diff
changeset
|
2492 already visible, try to go to the previous menu entry, or up |
4c72bc09992b
(Info-mode): Reindent the doc-string.
Pavel Janík <Pavel@Janik.cz>
parents:
42243
diff
changeset
|
2493 if there is none. |
28943
36fd90774cf7
(debug-ignored-errors): more errors to ignore.
Sam Steingold <sds@gnu.org>
parents:
28559
diff
changeset
|
2494 \\[beginning-of-buffer] Go to beginning of node. |
325 | 2495 |
2496 Advanced commands: | |
51491
0f2773d31797
(Info-mode): Mention `c' and remove duplicate mention of `q' in
Luc Teirlinck <teirllm@auburn.edu>
parents:
51471
diff
changeset
|
2497 \\[Info-copy-current-node-name] Put name of current info node in the kill ring. |
325 | 2498 \\[Info-edit] Edit contents of selected node. |
2499 1 Pick first item in node's menu. | |
2500 2, 3, 4, 5 Pick second ... fifth item in node's menu. | |
2501 \\[Info-goto-node] Move to node specified by name. | |
42406
4c72bc09992b
(Info-mode): Reindent the doc-string.
Pavel Janík <Pavel@Janik.cz>
parents:
42243
diff
changeset
|
2502 You may include a filename as well, as (FILENAME)NODENAME. |
4410
25fb71fc2643
(Info-fontify-node): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4261
diff
changeset
|
2503 \\[universal-argument] \\[info] Move to new Info file with completion. |
325 | 2504 \\[Info-search] Search through this Info file for specified regexp, |
42406
4c72bc09992b
(Info-mode): Reindent the doc-string.
Pavel Janík <Pavel@Janik.cz>
parents:
42243
diff
changeset
|
2505 and select the node in which the next occurrence is found. |
4410
25fb71fc2643
(Info-fontify-node): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4261
diff
changeset
|
2506 \\[Info-next-reference] Move cursor to next cross-reference or menu item. |
25fb71fc2643
(Info-fontify-node): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4261
diff
changeset
|
2507 \\[Info-prev-reference] Move cursor to previous cross-reference or menu item." |
325 | 2508 (kill-all-local-variables) |
2509 (setq major-mode 'Info-mode) | |
2510 (setq mode-name "Info") | |
16672
1facf218a14f
(Info-mode): Default for `tab-width'.
Richard M. Stallman <rms@gnu.org>
parents:
16638
diff
changeset
|
2511 (setq tab-width 8) |
325 | 2512 (use-local-map Info-mode-map) |
16043
f3a7e1cb07d6
Add menu items and xrefs to the menu bar menu.
Richard M. Stallman <rms@gnu.org>
parents:
15821
diff
changeset
|
2513 (add-hook 'activate-menubar-hook 'Info-menu-update nil t) |
325 | 2514 (set-syntax-table text-mode-syntax-table) |
2515 (setq local-abbrev-table text-mode-abbrev-table) | |
2516 (setq case-fold-search t) | |
2517 (setq buffer-read-only t) | |
2518 (make-local-variable 'Info-current-file) | |
2519 (make-local-variable 'Info-current-subfile) | |
2520 (make-local-variable 'Info-current-node) | |
2521 (make-local-variable 'Info-tag-table-marker) | |
16981
643e0f90e153
Handle multiple Info buffers.
Richard M. Stallman <rms@gnu.org>
parents:
16790
diff
changeset
|
2522 (setq Info-tag-table-marker (make-marker)) |
643e0f90e153
Handle multiple Info buffers.
Richard M. Stallman <rms@gnu.org>
parents:
16790
diff
changeset
|
2523 (make-local-variable 'Info-tag-table-buffer) |
643e0f90e153
Handle multiple Info buffers.
Richard M. Stallman <rms@gnu.org>
parents:
16790
diff
changeset
|
2524 (setq Info-tag-table-buffer nil) |
325 | 2525 (make-local-variable 'Info-history) |
2561
1bd4cf98df68
(Info-find-node, Info-insert-subfile): Do the right thing if info files have
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2038
diff
changeset
|
2526 (make-local-variable 'Info-index-alternatives) |
51434
4c85e6a5a9d2
(Info-mode-hook): Obey obsolete `Info-fontify'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51310
diff
changeset
|
2527 (setq header-line-format |
4c85e6a5a9d2
(Info-mode-hook): Obey obsolete `Info-fontify'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51310
diff
changeset
|
2528 (if Info-use-header-line |
52767
92416cd1e028
(Info-mode): Revert previous change.
Lute Kamstra <lute@gnu.org>
parents:
52756
diff
changeset
|
2529 '(:eval (get-text-property (point-min) 'header-line)) |
51434
4c85e6a5a9d2
(Info-mode-hook): Obey obsolete `Info-fontify'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51310
diff
changeset
|
2530 nil)) ; so the header line isn't displayed |
32286
c0b19a2770ca
(Info-goto-node, Info-menu): Doc fix.
Dave Love <fx@gnu.org>
parents:
32007
diff
changeset
|
2531 (set (make-local-variable 'tool-bar-map) info-tool-bar-map) |
19043
a2853a75ce57
(info-node, info-xref, info-menu-5):
Richard M. Stallman <rms@gnu.org>
parents:
17968
diff
changeset
|
2532 ;; This is for the sake of the invisible text we use handling titles. |
a2853a75ce57
(info-node, info-xref, info-menu-5):
Richard M. Stallman <rms@gnu.org>
parents:
17968
diff
changeset
|
2533 (make-local-variable 'line-move-ignore-invisible) |
a2853a75ce57
(info-node, info-xref, info-menu-5):
Richard M. Stallman <rms@gnu.org>
parents:
17968
diff
changeset
|
2534 (setq line-move-ignore-invisible t) |
33189
069c840c65d8
(Info-mode): Don't both with make-local-hook.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
33136
diff
changeset
|
2535 (add-hook 'clone-buffer-hook 'Info-clone-buffer-hook nil t) |
47376
05b10b9cd8bb
(Info-mode): Add font-lock-defontify to change-major-mode-hook.
Richard M. Stallman <rms@gnu.org>
parents:
47327
diff
changeset
|
2536 (add-hook 'change-major-mode-hook 'font-lock-defontify nil t) |
325 | 2537 (Info-set-mode-line) |
2538 (run-hooks 'Info-mode-hook)) | |
2539 | |
26004
11f91800bec3
(Info-on-current-buffer): new entry point.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
25878
diff
changeset
|
2540 (defun Info-clone-buffer-hook () |
11f91800bec3
(Info-on-current-buffer): new entry point.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
25878
diff
changeset
|
2541 (when (bufferp Info-tag-table-buffer) |
11f91800bec3
(Info-on-current-buffer): new entry point.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
25878
diff
changeset
|
2542 (setq Info-tag-table-buffer |
38262
03f0515fe575
(Info-clone-buffer-hook): Really unconditionally copy marker.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38225
diff
changeset
|
2543 (with-current-buffer Info-tag-table-buffer (clone-buffer)))) |
03f0515fe575
(Info-clone-buffer-hook): Really unconditionally copy marker.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38225
diff
changeset
|
2544 (let ((m Info-tag-table-marker)) |
03f0515fe575
(Info-clone-buffer-hook): Really unconditionally copy marker.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38225
diff
changeset
|
2545 (when (markerp m) |
38225
5d26670f49df
(Info-clone-buffer-hook): Unconditionally copy marker.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
37837
diff
changeset
|
2546 (setq Info-tag-table-marker |
38262
03f0515fe575
(Info-clone-buffer-hook): Really unconditionally copy marker.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38225
diff
changeset
|
2547 (if (and (marker-position m) (bufferp Info-tag-table-buffer)) |
38225
5d26670f49df
(Info-clone-buffer-hook): Unconditionally copy marker.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
37837
diff
changeset
|
2548 (with-current-buffer Info-tag-table-buffer |
5d26670f49df
(Info-clone-buffer-hook): Unconditionally copy marker.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
37837
diff
changeset
|
2549 (copy-marker (marker-position m))) |
5d26670f49df
(Info-clone-buffer-hook): Unconditionally copy marker.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
37837
diff
changeset
|
2550 (make-marker)))))) |
26004
11f91800bec3
(Info-on-current-buffer): new entry point.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
25878
diff
changeset
|
2551 |
32286
c0b19a2770ca
(Info-goto-node, Info-menu): Doc fix.
Dave Love <fx@gnu.org>
parents:
32007
diff
changeset
|
2552 (defvar Info-edit-map (let ((map (make-sparse-keymap))) |
c0b19a2770ca
(Info-goto-node, Info-menu): Doc fix.
Dave Love <fx@gnu.org>
parents:
32007
diff
changeset
|
2553 (set-keymap-parent map text-mode-map) |
c0b19a2770ca
(Info-goto-node, Info-menu): Doc fix.
Dave Love <fx@gnu.org>
parents:
32007
diff
changeset
|
2554 (define-key map "\C-c\C-c" 'Info-cease-edit) |
c0b19a2770ca
(Info-goto-node, Info-menu): Doc fix.
Dave Love <fx@gnu.org>
parents:
32007
diff
changeset
|
2555 map) |
325 | 2556 "Local keymap used within `e' command of Info.") |
2557 | |
2558 ;; Info-edit mode is suitable only for specially formatted data. | |
31798
460c3cd7b368
Use the correct capitalization when making Info-mode and Info-edit-mode
Miles Bader <miles@gnu.org>
parents:
31755
diff
changeset
|
2559 (put 'Info-edit-mode 'mode-class 'special) |
325 | 2560 |
2561 (defun Info-edit-mode () | |
2562 "Major mode for editing the contents of an Info node. | |
1477 | 2563 Like text mode with the addition of `Info-cease-edit' |
325 | 2564 which returns to Info mode for browsing. |
2565 \\{Info-edit-map}" | |
8805
6d8297d65d78
(Info-edit): Move the customary mode-initialization calls out of here.
Karl Heuer <kwzh@gnu.org>
parents:
8739
diff
changeset
|
2566 (use-local-map Info-edit-map) |
6d8297d65d78
(Info-edit): Move the customary mode-initialization calls out of here.
Karl Heuer <kwzh@gnu.org>
parents:
8739
diff
changeset
|
2567 (setq major-mode 'Info-edit-mode) |
6d8297d65d78
(Info-edit): Move the customary mode-initialization calls out of here.
Karl Heuer <kwzh@gnu.org>
parents:
8739
diff
changeset
|
2568 (setq mode-name "Info Edit") |
6d8297d65d78
(Info-edit): Move the customary mode-initialization calls out of here.
Karl Heuer <kwzh@gnu.org>
parents:
8739
diff
changeset
|
2569 (kill-local-variable 'mode-line-buffer-identification) |
6d8297d65d78
(Info-edit): Move the customary mode-initialization calls out of here.
Karl Heuer <kwzh@gnu.org>
parents:
8739
diff
changeset
|
2570 (setq buffer-read-only nil) |
11580
7f357fe2cda5
(Info-edit-mode, Info-cease-edit): Use force-mode-line-update.
Karl Heuer <kwzh@gnu.org>
parents:
11527
diff
changeset
|
2571 (force-mode-line-update) |
8805
6d8297d65d78
(Info-edit): Move the customary mode-initialization calls out of here.
Karl Heuer <kwzh@gnu.org>
parents:
8739
diff
changeset
|
2572 (buffer-enable-undo (current-buffer)) |
6d8297d65d78
(Info-edit): Move the customary mode-initialization calls out of here.
Karl Heuer <kwzh@gnu.org>
parents:
8739
diff
changeset
|
2573 (run-hooks 'Info-edit-mode-hook)) |
325 | 2574 |
2575 (defun Info-edit () | |
2576 "Edit the contents of this Info node. | |
2577 Allowed only if variable `Info-enable-edit' is non-nil." | |
2578 (interactive) | |
2579 (or Info-enable-edit | |
2580 (error "Editing info nodes is not enabled")) | |
8805
6d8297d65d78
(Info-edit): Move the customary mode-initialization calls out of here.
Karl Heuer <kwzh@gnu.org>
parents:
8739
diff
changeset
|
2581 (Info-edit-mode) |
14319
e39a2eb75dbe
(Info-edit, Info-goto-emacs-command-node): Pass proper format string to message.
Karl Heuer <kwzh@gnu.org>
parents:
14169
diff
changeset
|
2582 (message "%s" (substitute-command-keys |
29446
009f1caf830f
Bind case-fold-search to t when searching in case
Gerd Moellmann <gerd@gnu.org>
parents:
29410
diff
changeset
|
2583 "Editing: Type \\<Info-edit-map>\\[Info-cease-edit] to return to info"))) |
325 | 2584 |
2585 (defun Info-cease-edit () | |
2586 "Finish editing Info node; switch back to Info proper." | |
2587 (interactive) | |
2588 ;; Do this first, so nothing has changed if user C-g's at query. | |
2589 (and (buffer-modified-p) | |
2590 (y-or-n-p "Save the file? ") | |
2591 (save-buffer)) | |
2592 (use-local-map Info-mode-map) | |
2593 (setq major-mode 'Info-mode) | |
2594 (setq mode-name "Info") | |
2595 (Info-set-mode-line) | |
2596 (setq buffer-read-only t) | |
11580
7f357fe2cda5
(Info-edit-mode, Info-cease-edit): Use force-mode-line-update.
Karl Heuer <kwzh@gnu.org>
parents:
11527
diff
changeset
|
2597 (force-mode-line-update) |
325 | 2598 (and (marker-position Info-tag-table-marker) |
2599 (buffer-modified-p) | |
2600 (message "Tags may have changed. Use Info-tagify if necessary"))) | |
359 | 2601 |
12889
d912ac1e1f00
(Info-file-list-for-emacs): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
12779
diff
changeset
|
2602 (defvar Info-file-list-for-emacs |
39364
bd687d055024
(Info-file-list-for-emacs): Add elements for ada-mode, ccmode,
Eli Zaretskii <eliz@gnu.org>
parents:
39213
diff
changeset
|
2603 '("ediff" "eudc" "forms" "gnus" "info" ("mh" . "mh-e") |
bd687d055024
(Info-file-list-for-emacs): Add elements for ada-mode, ccmode,
Eli Zaretskii <eliz@gnu.org>
parents:
39213
diff
changeset
|
2604 "sc" "message" ("dired" . "dired-x") "viper" "vip" "idlwave" |
bd687d055024
(Info-file-list-for-emacs): Add elements for ada-mode, ccmode,
Eli Zaretskii <eliz@gnu.org>
parents:
39213
diff
changeset
|
2605 ("c" . "ccmode") ("c++" . "ccmode") ("objc" . "ccmode") |
bd687d055024
(Info-file-list-for-emacs): Add elements for ada-mode, ccmode,
Eli Zaretskii <eliz@gnu.org>
parents:
39213
diff
changeset
|
2606 ("java" . "ccmode") ("idl" . "ccmode") ("pike" . "ccmode") |
30738
5d4414327c06
(Info-file-list-for-emacs): More elements for the
Eli Zaretskii <eliz@gnu.org>
parents:
30686
diff
changeset
|
2607 ("skeleton" . "autotype") ("auto-insert" . "autotype") |
5d4414327c06
(Info-file-list-for-emacs): More elements for the
Eli Zaretskii <eliz@gnu.org>
parents:
30686
diff
changeset
|
2608 ("copyright" . "autotype") ("executable" . "autotype") |
5d4414327c06
(Info-file-list-for-emacs): More elements for the
Eli Zaretskii <eliz@gnu.org>
parents:
30686
diff
changeset
|
2609 ("time-stamp" . "autotype") ("quickurl" . "autotype") |
5d4414327c06
(Info-file-list-for-emacs): More elements for the
Eli Zaretskii <eliz@gnu.org>
parents:
30686
diff
changeset
|
2610 ("tempo" . "autotype") ("hippie-expand" . "autotype") |
40845
9d0c6150e159
(Info-file-list-for-emacs): Add entries for Calc.
Eli Zaretskii <eliz@gnu.org>
parents:
40793
diff
changeset
|
2611 ("cvs" . "pcl-cvs") ("ada" . "ada-mode") "calc" |
9d0c6150e159
(Info-file-list-for-emacs): Add entries for Calc.
Eli Zaretskii <eliz@gnu.org>
parents:
40793
diff
changeset
|
2612 ("calcAlg" . "calc") ("calcDigit" . "calc") ("calcVar" . "calc") |
39364
bd687d055024
(Info-file-list-for-emacs): Add elements for ada-mode, ccmode,
Eli Zaretskii <eliz@gnu.org>
parents:
39213
diff
changeset
|
2613 "ebrowse" "eshell" "cl" "reftex" "speedbar" "widget" "woman" |
bd687d055024
(Info-file-list-for-emacs): Add elements for ada-mode, ccmode,
Eli Zaretskii <eliz@gnu.org>
parents:
39213
diff
changeset
|
2614 ("mail-header" . "emacs-mime") ("mail-content" . "emacs-mime") |
bd687d055024
(Info-file-list-for-emacs): Add elements for ada-mode, ccmode,
Eli Zaretskii <eliz@gnu.org>
parents:
39213
diff
changeset
|
2615 ("mail-encode" . "emacs-mime") ("mail-decode" . "emacs-mime") |
bd687d055024
(Info-file-list-for-emacs): Add elements for ada-mode, ccmode,
Eli Zaretskii <eliz@gnu.org>
parents:
39213
diff
changeset
|
2616 ("rfc2045" . "emacs-mime") |
bd687d055024
(Info-file-list-for-emacs): Add elements for ada-mode, ccmode,
Eli Zaretskii <eliz@gnu.org>
parents:
39213
diff
changeset
|
2617 ("rfc2231" . "emacs-mime") ("rfc2047" . "emacs-mime") |
bd687d055024
(Info-file-list-for-emacs): Add elements for ada-mode, ccmode,
Eli Zaretskii <eliz@gnu.org>
parents:
39213
diff
changeset
|
2618 ("rfc2045" . "emacs-mime") ("rfc1843" . "emacs-mime") |
bd687d055024
(Info-file-list-for-emacs): Add elements for ada-mode, ccmode,
Eli Zaretskii <eliz@gnu.org>
parents:
39213
diff
changeset
|
2619 ("ietf-drums" . "emacs-mime") ("quoted-printable" . "emacs-mime") |
bd687d055024
(Info-file-list-for-emacs): Add elements for ada-mode, ccmode,
Eli Zaretskii <eliz@gnu.org>
parents:
39213
diff
changeset
|
2620 ("binhex" . "emacs-mime") ("uudecode" . "emacs-mime") |
bd687d055024
(Info-file-list-for-emacs): Add elements for ada-mode, ccmode,
Eli Zaretskii <eliz@gnu.org>
parents:
39213
diff
changeset
|
2621 ("mailcap" . "emacs-mime") ("mm" . "emacs-mime") |
bd687d055024
(Info-file-list-for-emacs): Add elements for ada-mode, ccmode,
Eli Zaretskii <eliz@gnu.org>
parents:
39213
diff
changeset
|
2622 ("mml" . "emacs-mime")) |
12889
d912ac1e1f00
(Info-file-list-for-emacs): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
12779
diff
changeset
|
2623 "List of Info files that describe Emacs commands. |
d912ac1e1f00
(Info-file-list-for-emacs): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
12779
diff
changeset
|
2624 An element can be a file name, or a list of the form (PREFIX . FILE) |
d912ac1e1f00
(Info-file-list-for-emacs): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
12779
diff
changeset
|
2625 where PREFIX is a name prefix and FILE is the file to look in. |
d912ac1e1f00
(Info-file-list-for-emacs): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
12779
diff
changeset
|
2626 If the element is just a file name, the file name also serves as the prefix.") |
d912ac1e1f00
(Info-file-list-for-emacs): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
12779
diff
changeset
|
2627 |
359 | 2628 (defun Info-find-emacs-command-nodes (command) |
12889
d912ac1e1f00
(Info-file-list-for-emacs): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
12779
diff
changeset
|
2629 "Return a list of locations documenting COMMAND. |
12892
8b902b24d749
(Info-find-emacs-command-nodes): Fix previous change.
Richard M. Stallman <rms@gnu.org>
parents:
12889
diff
changeset
|
2630 The `info-file' property of COMMAND says which Info manual to search. |
8b902b24d749
(Info-find-emacs-command-nodes): Fix previous change.
Richard M. Stallman <rms@gnu.org>
parents:
12889
diff
changeset
|
2631 If COMMAND has no property, the variable `Info-file-list-for-emacs' |
8b902b24d749
(Info-find-emacs-command-nodes): Fix previous change.
Richard M. Stallman <rms@gnu.org>
parents:
12889
diff
changeset
|
2632 defines heuristics for which Info manual to try. |
29621 | 2633 The locations are of the format used in `Info-history', i.e. |
359 | 2634 \(FILENAME NODENAME BUFFERPOS\)." |
2635 (let ((where '()) | |
21641
1174b1d6cbf6
(Info-menu): Allow extra spaces at start of menu item.
Richard M. Stallman <rms@gnu.org>
parents:
21197
diff
changeset
|
2636 (cmd-desc (concat "^\\* +" (regexp-quote (symbol-name command)) |
30763
46173131cdc4
(Info-find-emacs-command-nodes): Rewrite to use
Eli Zaretskii <eliz@gnu.org>
parents:
30738
diff
changeset
|
2637 "\\( <[0-9]+>\\)?:\\s *\\(.*\\)\\.$")) |
12889
d912ac1e1f00
(Info-file-list-for-emacs): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
12779
diff
changeset
|
2638 (info-file "emacs")) ;default |
d912ac1e1f00
(Info-file-list-for-emacs): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
12779
diff
changeset
|
2639 ;; Determine which info file this command is documented in. |
d912ac1e1f00
(Info-file-list-for-emacs): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
12779
diff
changeset
|
2640 (if (get command 'info-file) |
d912ac1e1f00
(Info-file-list-for-emacs): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
12779
diff
changeset
|
2641 (setq info-file (get command 'info-file)) |
d912ac1e1f00
(Info-file-list-for-emacs): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
12779
diff
changeset
|
2642 ;; If it doesn't say explicitly, test its name against |
d912ac1e1f00
(Info-file-list-for-emacs): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
12779
diff
changeset
|
2643 ;; various prefixes that we know. |
d912ac1e1f00
(Info-file-list-for-emacs): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
12779
diff
changeset
|
2644 (let ((file-list Info-file-list-for-emacs)) |
d912ac1e1f00
(Info-file-list-for-emacs): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
12779
diff
changeset
|
2645 (while file-list |
d912ac1e1f00
(Info-file-list-for-emacs): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
12779
diff
changeset
|
2646 (let* ((elt (car file-list)) |
d912ac1e1f00
(Info-file-list-for-emacs): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
12779
diff
changeset
|
2647 (name (if (consp elt) |
d912ac1e1f00
(Info-file-list-for-emacs): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
12779
diff
changeset
|
2648 (car elt) |
d912ac1e1f00
(Info-file-list-for-emacs): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
12779
diff
changeset
|
2649 elt)) |
d912ac1e1f00
(Info-file-list-for-emacs): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
12779
diff
changeset
|
2650 (file (if (consp elt) (cdr elt) elt)) |
12892
8b902b24d749
(Info-find-emacs-command-nodes): Fix previous change.
Richard M. Stallman <rms@gnu.org>
parents:
12889
diff
changeset
|
2651 (regexp (concat "\\`" (regexp-quote name) |
12889
d912ac1e1f00
(Info-file-list-for-emacs): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
12779
diff
changeset
|
2652 "\\(\\'\\|-\\)"))) |
d912ac1e1f00
(Info-file-list-for-emacs): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
12779
diff
changeset
|
2653 (if (string-match regexp (symbol-name command)) |
d912ac1e1f00
(Info-file-list-for-emacs): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
12779
diff
changeset
|
2654 (setq info-file file file-list nil)) |
d912ac1e1f00
(Info-file-list-for-emacs): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
12779
diff
changeset
|
2655 (setq file-list (cdr file-list)))))) |
30763
46173131cdc4
(Info-find-emacs-command-nodes): Rewrite to use
Eli Zaretskii <eliz@gnu.org>
parents:
30738
diff
changeset
|
2656 (Info-find-node info-file "Top") |
46173131cdc4
(Info-find-emacs-command-nodes): Rewrite to use
Eli Zaretskii <eliz@gnu.org>
parents:
30738
diff
changeset
|
2657 (or (and (search-forward "\n* menu:" nil t) |
46173131cdc4
(Info-find-emacs-command-nodes): Rewrite to use
Eli Zaretskii <eliz@gnu.org>
parents:
30738
diff
changeset
|
2658 (re-search-forward "\n\\* \\(.*\\<Index\\>\\)" nil t)) |
46173131cdc4
(Info-find-emacs-command-nodes): Rewrite to use
Eli Zaretskii <eliz@gnu.org>
parents:
30738
diff
changeset
|
2659 (error "Info file `%s' appears to lack an index" info-file)) |
46173131cdc4
(Info-find-emacs-command-nodes): Rewrite to use
Eli Zaretskii <eliz@gnu.org>
parents:
30738
diff
changeset
|
2660 (goto-char (match-beginning 1)) |
46173131cdc4
(Info-find-emacs-command-nodes): Rewrite to use
Eli Zaretskii <eliz@gnu.org>
parents:
30738
diff
changeset
|
2661 ;; Bind Info-history to nil, to prevent the index nodes from |
46173131cdc4
(Info-find-emacs-command-nodes): Rewrite to use
Eli Zaretskii <eliz@gnu.org>
parents:
30738
diff
changeset
|
2662 ;; getting into the node history. |
46173131cdc4
(Info-find-emacs-command-nodes): Rewrite to use
Eli Zaretskii <eliz@gnu.org>
parents:
30738
diff
changeset
|
2663 (let ((Info-history nil) |
51434
4c85e6a5a9d2
(Info-mode-hook): Obey obsolete `Info-fontify'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51310
diff
changeset
|
2664 node) |
30763
46173131cdc4
(Info-find-emacs-command-nodes): Rewrite to use
Eli Zaretskii <eliz@gnu.org>
parents:
30738
diff
changeset
|
2665 (Info-goto-node (Info-extract-menu-node-name)) |
46173131cdc4
(Info-find-emacs-command-nodes): Rewrite to use
Eli Zaretskii <eliz@gnu.org>
parents:
30738
diff
changeset
|
2666 (while |
46173131cdc4
(Info-find-emacs-command-nodes): Rewrite to use
Eli Zaretskii <eliz@gnu.org>
parents:
30738
diff
changeset
|
2667 (progn |
46173131cdc4
(Info-find-emacs-command-nodes): Rewrite to use
Eli Zaretskii <eliz@gnu.org>
parents:
30738
diff
changeset
|
2668 (goto-char (point-min)) |
46173131cdc4
(Info-find-emacs-command-nodes): Rewrite to use
Eli Zaretskii <eliz@gnu.org>
parents:
30738
diff
changeset
|
2669 (while (re-search-forward cmd-desc nil t) |
46173131cdc4
(Info-find-emacs-command-nodes): Rewrite to use
Eli Zaretskii <eliz@gnu.org>
parents:
30738
diff
changeset
|
2670 (setq where |
46173131cdc4
(Info-find-emacs-command-nodes): Rewrite to use
Eli Zaretskii <eliz@gnu.org>
parents:
30738
diff
changeset
|
2671 (cons (list Info-current-file |
46173131cdc4
(Info-find-emacs-command-nodes): Rewrite to use
Eli Zaretskii <eliz@gnu.org>
parents:
30738
diff
changeset
|
2672 (match-string-no-properties 2) |
29446
009f1caf830f
Bind case-fold-search to t when searching in case
Gerd Moellmann <gerd@gnu.org>
parents:
29410
diff
changeset
|
2673 0) |
009f1caf830f
Bind case-fold-search to t when searching in case
Gerd Moellmann <gerd@gnu.org>
parents:
29410
diff
changeset
|
2674 where))) |
30763
46173131cdc4
(Info-find-emacs-command-nodes): Rewrite to use
Eli Zaretskii <eliz@gnu.org>
parents:
30738
diff
changeset
|
2675 (and (setq node (Info-extract-pointer "next" t)) |
46173131cdc4
(Info-find-emacs-command-nodes): Rewrite to use
Eli Zaretskii <eliz@gnu.org>
parents:
30738
diff
changeset
|
2676 (string-match "\\<Index\\>" node))) |
46173131cdc4
(Info-find-emacs-command-nodes): Rewrite to use
Eli Zaretskii <eliz@gnu.org>
parents:
30738
diff
changeset
|
2677 (Info-goto-node node))) |
46173131cdc4
(Info-find-emacs-command-nodes): Rewrite to use
Eli Zaretskii <eliz@gnu.org>
parents:
30738
diff
changeset
|
2678 where)) |
359 | 2679 |
2680 ;;;###autoload | |
2681 (defun Info-goto-emacs-command-node (command) | |
4468
5e9224dac452
(Info-goto-emacs-command-node, Info-goto-emacs-key-command-node): Doc fix.
Roland McGrath <roland@gnu.org>
parents:
4410
diff
changeset
|
2682 "Go to the Info node in the Emacs manual for command COMMAND. |
35112
dfb7567dbcfd
(Info-goto-emacs-key-command-node): Doc fix.
Eli Zaretskii <eliz@gnu.org>
parents:
35079
diff
changeset
|
2683 The command is found by looking up in Emacs manual's indices |
12892
8b902b24d749
(Info-find-emacs-command-nodes): Fix previous change.
Richard M. Stallman <rms@gnu.org>
parents:
12889
diff
changeset
|
2684 or in another manual found via COMMAND's `info-file' property or |
53246
c07db7df7073
(Info-unescape-quotes, Info-split-parameter-string)
John Paul Wallington <jpw@pobox.com>
parents:
52767
diff
changeset
|
2685 the variable `Info-file-list-for-emacs'. |
c07db7df7073
(Info-unescape-quotes, Info-split-parameter-string)
John Paul Wallington <jpw@pobox.com>
parents:
52767
diff
changeset
|
2686 COMMAND must be a symbol or string." |
359 | 2687 (interactive "CFind documentation for command: ") |
50454
583825022e8f
(Info-goto-emacs-command-node): If command
Masatake YAMATO <jet@gyve.org>
parents:
50072
diff
changeset
|
2688 ;; If command is given as a string, convert it to a symbol. |
583825022e8f
(Info-goto-emacs-command-node): If command
Masatake YAMATO <jet@gyve.org>
parents:
50072
diff
changeset
|
2689 (if (stringp command) |
53246
c07db7df7073
(Info-unescape-quotes, Info-split-parameter-string)
John Paul Wallington <jpw@pobox.com>
parents:
52767
diff
changeset
|
2690 (setq command (intern command))) |
359 | 2691 (or (commandp command) |
2692 (signal 'wrong-type-argument (list 'commandp command))) | |
2693 (let ((where (Info-find-emacs-command-nodes command))) | |
2694 (if where | |
2695 (let ((num-matches (length where))) | |
2696 ;; Get Info running, and pop to it in another window. | |
2697 (save-window-excursion | |
2698 (info)) | |
16981
643e0f90e153
Handle multiple Info buffers.
Richard M. Stallman <rms@gnu.org>
parents:
16790
diff
changeset
|
2699 ;; FIXME It would be cool if this could use a buffer other |
643e0f90e153
Handle multiple Info buffers.
Richard M. Stallman <rms@gnu.org>
parents:
16790
diff
changeset
|
2700 ;; than *info*. |
359 | 2701 (pop-to-buffer "*info*") |
30763
46173131cdc4
(Info-find-emacs-command-nodes): Rewrite to use
Eli Zaretskii <eliz@gnu.org>
parents:
30738
diff
changeset
|
2702 ;; Bind Info-history to nil, to prevent the last Index node |
46173131cdc4
(Info-find-emacs-command-nodes): Rewrite to use
Eli Zaretskii <eliz@gnu.org>
parents:
30738
diff
changeset
|
2703 ;; visited by Info-find-emacs-command-nodes from being |
46173131cdc4
(Info-find-emacs-command-nodes): Rewrite to use
Eli Zaretskii <eliz@gnu.org>
parents:
30738
diff
changeset
|
2704 ;; pushed onto the history. |
46173131cdc4
(Info-find-emacs-command-nodes): Rewrite to use
Eli Zaretskii <eliz@gnu.org>
parents:
30738
diff
changeset
|
2705 (let ((Info-history nil)) |
46173131cdc4
(Info-find-emacs-command-nodes): Rewrite to use
Eli Zaretskii <eliz@gnu.org>
parents:
30738
diff
changeset
|
2706 (Info-find-node (car (car where)) |
46173131cdc4
(Info-find-emacs-command-nodes): Rewrite to use
Eli Zaretskii <eliz@gnu.org>
parents:
30738
diff
changeset
|
2707 (car (cdr (car where))))) |
359 | 2708 (if (> num-matches 1) |
2709 (progn | |
30763
46173131cdc4
(Info-find-emacs-command-nodes): Rewrite to use
Eli Zaretskii <eliz@gnu.org>
parents:
30738
diff
changeset
|
2710 ;; (car where) will be pushed onto Info-history |
46173131cdc4
(Info-find-emacs-command-nodes): Rewrite to use
Eli Zaretskii <eliz@gnu.org>
parents:
30738
diff
changeset
|
2711 ;; when/if they go to another node. Put the other |
46173131cdc4
(Info-find-emacs-command-nodes): Rewrite to use
Eli Zaretskii <eliz@gnu.org>
parents:
30738
diff
changeset
|
2712 ;; nodes that were found on the history. |
359 | 2713 (setq Info-history (nconc (cdr where) Info-history)) |
14319
e39a2eb75dbe
(Info-edit, Info-goto-emacs-command-node): Pass proper format string to message.
Karl Heuer <kwzh@gnu.org>
parents:
14169
diff
changeset
|
2714 (message "Found %d other entr%s. Use %s to see %s." |
6049
32df2b4d67cf
(Info-build-node-completions): Add a call to widen.
Richard M. Stallman <rms@gnu.org>
parents:
5555
diff
changeset
|
2715 (1- num-matches) |
32df2b4d67cf
(Info-build-node-completions): Add a call to widen.
Richard M. Stallman <rms@gnu.org>
parents:
5555
diff
changeset
|
2716 (if (> num-matches 2) "ies" "y") |
14319
e39a2eb75dbe
(Info-edit, Info-goto-emacs-command-node): Pass proper format string to message.
Karl Heuer <kwzh@gnu.org>
parents:
14169
diff
changeset
|
2717 (substitute-command-keys "\\[Info-last]") |
6049
32df2b4d67cf
(Info-build-node-completions): Add a call to widen.
Richard M. Stallman <rms@gnu.org>
parents:
5555
diff
changeset
|
2718 (if (> num-matches 2) "them" "it"))))) |
14355
87fde6ef6c95
(Info-goto-emacs-command-node): Fix error text.
Karl Heuer <kwzh@gnu.org>
parents:
14319
diff
changeset
|
2719 (error "Couldn't find documentation for %s" command)))) |
359 | 2720 |
2721 ;;;###autoload | |
2722 (defun Info-goto-emacs-key-command-node (key) | |
35112
dfb7567dbcfd
(Info-goto-emacs-key-command-node): Doc fix.
Eli Zaretskii <eliz@gnu.org>
parents:
35079
diff
changeset
|
2723 "Go to the node in the Emacs manual which describes the command bound to KEY. |
dfb7567dbcfd
(Info-goto-emacs-key-command-node): Doc fix.
Eli Zaretskii <eliz@gnu.org>
parents:
35079
diff
changeset
|
2724 KEY is a string. |
29621 | 2725 Interactively, if the binding is `execute-extended-command', a command is read. |
35112
dfb7567dbcfd
(Info-goto-emacs-key-command-node): Doc fix.
Eli Zaretskii <eliz@gnu.org>
parents:
35079
diff
changeset
|
2726 The command is found by looking up in Emacs manual's indices |
12892
8b902b24d749
(Info-find-emacs-command-nodes): Fix previous change.
Richard M. Stallman <rms@gnu.org>
parents:
12889
diff
changeset
|
2727 or in another manual found via COMMAND's `info-file' property or |
8b902b24d749
(Info-find-emacs-command-nodes): Fix previous change.
Richard M. Stallman <rms@gnu.org>
parents:
12889
diff
changeset
|
2728 the variable `Info-file-list-for-emacs'." |
30423
424236a05a4f
(Info-goto-emacs-key-command-node): Leave a space after
Eli Zaretskii <eliz@gnu.org>
parents:
30287
diff
changeset
|
2729 (interactive "kFind documentation for key: ") |
359 | 2730 (let ((command (key-binding key))) |
2731 (cond ((null command) | |
1484
6c2a714566d3
Rename buffer-flush-undo to buffer-disable-undo.
Richard M. Stallman <rms@gnu.org>
parents:
1477
diff
changeset
|
2732 (message "%s is undefined" (key-description key))) |
359 | 2733 ((and (interactive-p) |
2734 (eq command 'execute-extended-command)) | |
2735 (Info-goto-emacs-command-node | |
2736 (read-command "Find documentation for command: "))) | |
2737 (t | |
2738 (Info-goto-emacs-command-node command))))) | |
4410
25fb71fc2643
(Info-fontify-node): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4261
diff
changeset
|
2739 |
27536
e640e22d23c8
(Info-title-face-alist): Removed.
Gerd Moellmann <gerd@gnu.org>
parents:
26738
diff
changeset
|
2740 (defface Info-title-1-face |
32645
541dabe224ec
(Info-title-{1,2,3}-face): Change tty colors as suggested by Miles Bader.
Eli Zaretskii <eliz@gnu.org>
parents:
32566
diff
changeset
|
2741 '((((type tty pc) (class color)) (:foreground "yellow" :weight bold)) |
32563
90d5ec551e5d
(Info-title-1-face, Info-title-2-face, Info-title-3-face): Define
Eli Zaretskii <eliz@gnu.org>
parents:
32538
diff
changeset
|
2742 (t (:height 1.2 :inherit Info-title-2-face))) |
27536
e640e22d23c8
(Info-title-face-alist): Removed.
Gerd Moellmann <gerd@gnu.org>
parents:
26738
diff
changeset
|
2743 "Face for Info titles at level 1." |
e640e22d23c8
(Info-title-face-alist): Removed.
Gerd Moellmann <gerd@gnu.org>
parents:
26738
diff
changeset
|
2744 :group 'info) |
e640e22d23c8
(Info-title-face-alist): Removed.
Gerd Moellmann <gerd@gnu.org>
parents:
26738
diff
changeset
|
2745 |
e640e22d23c8
(Info-title-face-alist): Removed.
Gerd Moellmann <gerd@gnu.org>
parents:
26738
diff
changeset
|
2746 (defface Info-title-2-face |
32645
541dabe224ec
(Info-title-{1,2,3}-face): Change tty colors as suggested by Miles Bader.
Eli Zaretskii <eliz@gnu.org>
parents:
32566
diff
changeset
|
2747 '((((type tty pc) (class color)) (:foreground "lightblue" :weight bold)) |
32563
90d5ec551e5d
(Info-title-1-face, Info-title-2-face, Info-title-3-face): Define
Eli Zaretskii <eliz@gnu.org>
parents:
32538
diff
changeset
|
2748 (t (:height 1.2 :inherit Info-title-3-face))) |
27536
e640e22d23c8
(Info-title-face-alist): Removed.
Gerd Moellmann <gerd@gnu.org>
parents:
26738
diff
changeset
|
2749 "Face for Info titles at level 2." |
e640e22d23c8
(Info-title-face-alist): Removed.
Gerd Moellmann <gerd@gnu.org>
parents:
26738
diff
changeset
|
2750 :group 'info) |
e640e22d23c8
(Info-title-face-alist): Removed.
Gerd Moellmann <gerd@gnu.org>
parents:
26738
diff
changeset
|
2751 |
e640e22d23c8
(Info-title-face-alist): Removed.
Gerd Moellmann <gerd@gnu.org>
parents:
26738
diff
changeset
|
2752 (defface Info-title-3-face |
32645
541dabe224ec
(Info-title-{1,2,3}-face): Change tty colors as suggested by Miles Bader.
Eli Zaretskii <eliz@gnu.org>
parents:
32566
diff
changeset
|
2753 '((((type tty pc) (class color)) (:weight bold)) |
32678 | 2754 (t (:height 1.2 :inherit Info-title-4-face))) |
27536
e640e22d23c8
(Info-title-face-alist): Removed.
Gerd Moellmann <gerd@gnu.org>
parents:
26738
diff
changeset
|
2755 "Face for Info titles at level 3." |
e640e22d23c8
(Info-title-face-alist): Removed.
Gerd Moellmann <gerd@gnu.org>
parents:
26738
diff
changeset
|
2756 :group 'info) |
e640e22d23c8
(Info-title-face-alist): Removed.
Gerd Moellmann <gerd@gnu.org>
parents:
26738
diff
changeset
|
2757 |
32678 | 2758 (defface Info-title-4-face |
2759 '((((type tty pc) (class color)) (:weight bold)) | |
2760 (t (:weight bold :inherit variable-pitch))) | |
2761 "Face for Info titles at level 4." | |
2762 :group 'info) | |
2763 | |
33136
9cc052f43d5e
(info-menu-header): New face.
Miles Bader <miles@gnu.org>
parents:
33133
diff
changeset
|
2764 (defface info-menu-header |
9cc052f43d5e
(info-menu-header): New face.
Miles Bader <miles@gnu.org>
parents:
33133
diff
changeset
|
2765 '((((type tty pc)) |
33208 | 2766 :underline t |
2767 :weight bold) | |
33136
9cc052f43d5e
(info-menu-header): New face.
Miles Bader <miles@gnu.org>
parents:
33133
diff
changeset
|
2768 (t |
33208 | 2769 :inherit variable-pitch |
2770 :weight bold)) | |
33136
9cc052f43d5e
(info-menu-header): New face.
Miles Bader <miles@gnu.org>
parents:
33133
diff
changeset
|
2771 "Face for headers in Info menus." |
9cc052f43d5e
(info-menu-header): New face.
Miles Bader <miles@gnu.org>
parents:
33133
diff
changeset
|
2772 :group 'info) |
9cc052f43d5e
(info-menu-header): New face.
Miles Bader <miles@gnu.org>
parents:
33133
diff
changeset
|
2773 |
52767
92416cd1e028
(Info-mode): Revert previous change.
Lute Kamstra <lute@gnu.org>
parents:
52756
diff
changeset
|
2774 (defun Info-escape-percent (string) |
92416cd1e028
(Info-mode): Revert previous change.
Lute Kamstra <lute@gnu.org>
parents:
52756
diff
changeset
|
2775 "Double all occurrences of `%' in STRING. |
92416cd1e028
(Info-mode): Revert previous change.
Lute Kamstra <lute@gnu.org>
parents:
52756
diff
changeset
|
2776 |
92416cd1e028
(Info-mode): Revert previous change.
Lute Kamstra <lute@gnu.org>
parents:
52756
diff
changeset
|
2777 Return a new string with all `%' characters replaced by `%%'. |
92416cd1e028
(Info-mode): Revert previous change.
Lute Kamstra <lute@gnu.org>
parents:
52756
diff
changeset
|
2778 Preserve text properties." |
92416cd1e028
(Info-mode): Revert previous change.
Lute Kamstra <lute@gnu.org>
parents:
52756
diff
changeset
|
2779 (let ((start 0) |
92416cd1e028
(Info-mode): Revert previous change.
Lute Kamstra <lute@gnu.org>
parents:
52756
diff
changeset
|
2780 (end (length string)) |
92416cd1e028
(Info-mode): Revert previous change.
Lute Kamstra <lute@gnu.org>
parents:
52756
diff
changeset
|
2781 mb me m matches) |
92416cd1e028
(Info-mode): Revert previous change.
Lute Kamstra <lute@gnu.org>
parents:
52756
diff
changeset
|
2782 (save-match-data |
92416cd1e028
(Info-mode): Revert previous change.
Lute Kamstra <lute@gnu.org>
parents:
52756
diff
changeset
|
2783 (while (and (< start end) (string-match "%" string start)) |
92416cd1e028
(Info-mode): Revert previous change.
Lute Kamstra <lute@gnu.org>
parents:
52756
diff
changeset
|
2784 (setq mb (match-beginning 0) |
92416cd1e028
(Info-mode): Revert previous change.
Lute Kamstra <lute@gnu.org>
parents:
52756
diff
changeset
|
2785 me (1+ mb) |
92416cd1e028
(Info-mode): Revert previous change.
Lute Kamstra <lute@gnu.org>
parents:
52756
diff
changeset
|
2786 m (substring string mb me) |
53246
c07db7df7073
(Info-unescape-quotes, Info-split-parameter-string)
John Paul Wallington <jpw@pobox.com>
parents:
52767
diff
changeset
|
2787 matches (cons m |
c07db7df7073
(Info-unescape-quotes, Info-split-parameter-string)
John Paul Wallington <jpw@pobox.com>
parents:
52767
diff
changeset
|
2788 (cons m |
c07db7df7073
(Info-unescape-quotes, Info-split-parameter-string)
John Paul Wallington <jpw@pobox.com>
parents:
52767
diff
changeset
|
2789 (cons (substring string start mb) |
52767
92416cd1e028
(Info-mode): Revert previous change.
Lute Kamstra <lute@gnu.org>
parents:
52756
diff
changeset
|
2790 matches))) |
92416cd1e028
(Info-mode): Revert previous change.
Lute Kamstra <lute@gnu.org>
parents:
52756
diff
changeset
|
2791 start me)) |
92416cd1e028
(Info-mode): Revert previous change.
Lute Kamstra <lute@gnu.org>
parents:
52756
diff
changeset
|
2792 (push (substring string start end) matches) |
92416cd1e028
(Info-mode): Revert previous change.
Lute Kamstra <lute@gnu.org>
parents:
52756
diff
changeset
|
2793 (apply #'concat (nreverse matches))))) |
92416cd1e028
(Info-mode): Revert previous change.
Lute Kamstra <lute@gnu.org>
parents:
52756
diff
changeset
|
2794 |
33136
9cc052f43d5e
(info-menu-header): New face.
Miles Bader <miles@gnu.org>
parents:
33133
diff
changeset
|
2795 (defun Info-fontify-menu-headers () |
9cc052f43d5e
(info-menu-header): New face.
Miles Bader <miles@gnu.org>
parents:
33133
diff
changeset
|
2796 "Add the face `info-menu-header' to any header before a menu entry." |
9cc052f43d5e
(info-menu-header): New face.
Miles Bader <miles@gnu.org>
parents:
33133
diff
changeset
|
2797 (save-excursion |
9cc052f43d5e
(info-menu-header): New face.
Miles Bader <miles@gnu.org>
parents:
33133
diff
changeset
|
2798 (goto-char (point-min)) |
51709
02d430615dd4
(Info-fontify-menu-headers): Only fontify `* Menu:' at the beginning
Luc Teirlinck <teirllm@auburn.edu>
parents:
51623
diff
changeset
|
2799 (when (re-search-forward "^\\* Menu:" nil t) |
33136
9cc052f43d5e
(info-menu-header): New face.
Miles Bader <miles@gnu.org>
parents:
33133
diff
changeset
|
2800 (put-text-property (match-beginning 0) (match-end 0) |
45688
fe497b121add
(Info-mode): Don't set up categories.
Colin Walters <walters@gnu.org>
parents:
45633
diff
changeset
|
2801 'font-lock-face 'info-menu-header) |
33136
9cc052f43d5e
(info-menu-header): New face.
Miles Bader <miles@gnu.org>
parents:
33133
diff
changeset
|
2802 (while (re-search-forward "\n\n\\([^*\n ].*\\)\n\n?[*]" nil t) |
9cc052f43d5e
(info-menu-header): New face.
Miles Bader <miles@gnu.org>
parents:
33133
diff
changeset
|
2803 (put-text-property (match-beginning 1) (match-end 1) |
45688
fe497b121add
(Info-mode): Don't set up categories.
Colin Walters <walters@gnu.org>
parents:
45633
diff
changeset
|
2804 'font-lock-face 'info-menu-header))))) |
33136
9cc052f43d5e
(info-menu-header): New face.
Miles Bader <miles@gnu.org>
parents:
33133
diff
changeset
|
2805 |
45784
95b7f625cdf5
(Info-fontify-node): Compute header line specially
Richard M. Stallman <rms@gnu.org>
parents:
45775
diff
changeset
|
2806 (defvar Info-next-link-keymap |
95b7f625cdf5
(Info-fontify-node): Compute header line specially
Richard M. Stallman <rms@gnu.org>
parents:
45775
diff
changeset
|
2807 (let ((keymap (make-sparse-keymap))) |
95b7f625cdf5
(Info-fontify-node): Compute header line specially
Richard M. Stallman <rms@gnu.org>
parents:
45775
diff
changeset
|
2808 (define-key keymap [header-line mouse-1] 'Info-next) |
95b7f625cdf5
(Info-fontify-node): Compute header line specially
Richard M. Stallman <rms@gnu.org>
parents:
45775
diff
changeset
|
2809 (define-key keymap [header-line mouse-2] 'Info-next) |
95b7f625cdf5
(Info-fontify-node): Compute header line specially
Richard M. Stallman <rms@gnu.org>
parents:
45775
diff
changeset
|
2810 (define-key keymap [header-line down-mouse-1] 'ignore) |
95b7f625cdf5
(Info-fontify-node): Compute header line specially
Richard M. Stallman <rms@gnu.org>
parents:
45775
diff
changeset
|
2811 (define-key keymap [mouse-2] 'Info-next) |
95b7f625cdf5
(Info-fontify-node): Compute header line specially
Richard M. Stallman <rms@gnu.org>
parents:
45775
diff
changeset
|
2812 keymap) |
95b7f625cdf5
(Info-fontify-node): Compute header line specially
Richard M. Stallman <rms@gnu.org>
parents:
45775
diff
changeset
|
2813 "Keymap to put on the Next link in the text or the header line.") |
95b7f625cdf5
(Info-fontify-node): Compute header line specially
Richard M. Stallman <rms@gnu.org>
parents:
45775
diff
changeset
|
2814 |
95b7f625cdf5
(Info-fontify-node): Compute header line specially
Richard M. Stallman <rms@gnu.org>
parents:
45775
diff
changeset
|
2815 (defvar Info-prev-link-keymap |
95b7f625cdf5
(Info-fontify-node): Compute header line specially
Richard M. Stallman <rms@gnu.org>
parents:
45775
diff
changeset
|
2816 (let ((keymap (make-sparse-keymap))) |
95b7f625cdf5
(Info-fontify-node): Compute header line specially
Richard M. Stallman <rms@gnu.org>
parents:
45775
diff
changeset
|
2817 (define-key keymap [header-line mouse-1] 'Info-prev) |
95b7f625cdf5
(Info-fontify-node): Compute header line specially
Richard M. Stallman <rms@gnu.org>
parents:
45775
diff
changeset
|
2818 (define-key keymap [header-line mouse-2] 'Info-prev) |
95b7f625cdf5
(Info-fontify-node): Compute header line specially
Richard M. Stallman <rms@gnu.org>
parents:
45775
diff
changeset
|
2819 (define-key keymap [header-line down-mouse-1] 'ignore) |
95b7f625cdf5
(Info-fontify-node): Compute header line specially
Richard M. Stallman <rms@gnu.org>
parents:
45775
diff
changeset
|
2820 (define-key keymap [mouse-2] 'Info-prev) |
95b7f625cdf5
(Info-fontify-node): Compute header line specially
Richard M. Stallman <rms@gnu.org>
parents:
45775
diff
changeset
|
2821 keymap) |
95b7f625cdf5
(Info-fontify-node): Compute header line specially
Richard M. Stallman <rms@gnu.org>
parents:
45775
diff
changeset
|
2822 "Keymap to put on the Prev link in the text or the header line.") |
95b7f625cdf5
(Info-fontify-node): Compute header line specially
Richard M. Stallman <rms@gnu.org>
parents:
45775
diff
changeset
|
2823 |
95b7f625cdf5
(Info-fontify-node): Compute header line specially
Richard M. Stallman <rms@gnu.org>
parents:
45775
diff
changeset
|
2824 |
95b7f625cdf5
(Info-fontify-node): Compute header line specially
Richard M. Stallman <rms@gnu.org>
parents:
45775
diff
changeset
|
2825 (defvar Info-up-link-keymap |
95b7f625cdf5
(Info-fontify-node): Compute header line specially
Richard M. Stallman <rms@gnu.org>
parents:
45775
diff
changeset
|
2826 (let ((keymap (make-sparse-keymap))) |
95b7f625cdf5
(Info-fontify-node): Compute header line specially
Richard M. Stallman <rms@gnu.org>
parents:
45775
diff
changeset
|
2827 (define-key keymap [header-line mouse-1] 'Info-up) |
95b7f625cdf5
(Info-fontify-node): Compute header line specially
Richard M. Stallman <rms@gnu.org>
parents:
45775
diff
changeset
|
2828 (define-key keymap [header-line mouse-2] 'Info-up) |
95b7f625cdf5
(Info-fontify-node): Compute header line specially
Richard M. Stallman <rms@gnu.org>
parents:
45775
diff
changeset
|
2829 (define-key keymap [header-line down-mouse-1] 'ignore) |
95b7f625cdf5
(Info-fontify-node): Compute header line specially
Richard M. Stallman <rms@gnu.org>
parents:
45775
diff
changeset
|
2830 (define-key keymap [mouse-2] 'Info-up) |
95b7f625cdf5
(Info-fontify-node): Compute header line specially
Richard M. Stallman <rms@gnu.org>
parents:
45775
diff
changeset
|
2831 keymap) |
95b7f625cdf5
(Info-fontify-node): Compute header line specially
Richard M. Stallman <rms@gnu.org>
parents:
45775
diff
changeset
|
2832 "Keymap to put on the Up link in the text or the header line.") |
95b7f625cdf5
(Info-fontify-node): Compute header line specially
Richard M. Stallman <rms@gnu.org>
parents:
45775
diff
changeset
|
2833 |
4410
25fb71fc2643
(Info-fontify-node): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4261
diff
changeset
|
2834 (defun Info-fontify-node () |
48135
2c6154347319
(Info-streamline-headings): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48118
diff
changeset
|
2835 ;; Only fontify the node if it hasn't already been done. |
49426
7ac32aa920b9
(Info-extract-menu-node-name): When looking for end of
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
49424
diff
changeset
|
2836 (unless (let ((where (next-property-change (point-min)))) |
7ac32aa920b9
(Info-extract-menu-node-name): When looking for end of
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
49424
diff
changeset
|
2837 (and where (not (= where (point-max))))) |
39746
67386e5484d6
(Info-insert-dir): Don't call `Info-fontify-menu-headers'.
Miles Bader <miles@gnu.org>
parents:
39459
diff
changeset
|
2838 (save-excursion |
48135
2c6154347319
(Info-streamline-headings): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48118
diff
changeset
|
2839 (let ((inhibit-read-only t) |
48287
205cb7dc9d47
(Info-fontify-node): New local list paragraph-markers.
Kim F. Storm <storm@cua.dk>
parents:
48161
diff
changeset
|
2840 (case-fold-search t) |
205cb7dc9d47
(Info-fontify-node): New local list paragraph-markers.
Kim F. Storm <storm@cua.dk>
parents:
48161
diff
changeset
|
2841 paragraph-markers) |
39746
67386e5484d6
(Info-insert-dir): Don't call `Info-fontify-menu-headers'.
Miles Bader <miles@gnu.org>
parents:
39459
diff
changeset
|
2842 (goto-char (point-min)) |
48135
2c6154347319
(Info-streamline-headings): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48118
diff
changeset
|
2843 (when (looking-at "^\\(File: [^,: \t]+,?[ \t]+\\)?") |
21704
e2283c4df334
(Info-fontify-node): For menu items, use info-xref font.
Richard M. Stallman <rms@gnu.org>
parents:
21641
diff
changeset
|
2844 (goto-char (match-end 0)) |
39746
67386e5484d6
(Info-insert-dir): Don't call `Info-fontify-menu-headers'.
Miles Bader <miles@gnu.org>
parents:
39459
diff
changeset
|
2845 (while (looking-at "[ \t]*\\([^:, \t\n]+\\):[ \t]+\\([^:,\t\n]+\\),?") |
67386e5484d6
(Info-insert-dir): Don't call `Info-fontify-menu-headers'.
Miles Bader <miles@gnu.org>
parents:
39459
diff
changeset
|
2846 (goto-char (match-end 0)) |
67386e5484d6
(Info-insert-dir): Don't call `Info-fontify-menu-headers'.
Miles Bader <miles@gnu.org>
parents:
39459
diff
changeset
|
2847 (let* ((nbeg (match-beginning 2)) |
67386e5484d6
(Info-insert-dir): Don't call `Info-fontify-menu-headers'.
Miles Bader <miles@gnu.org>
parents:
39459
diff
changeset
|
2848 (nend (match-end 2)) |
67386e5484d6
(Info-insert-dir): Don't call `Info-fontify-menu-headers'.
Miles Bader <miles@gnu.org>
parents:
39459
diff
changeset
|
2849 (tbeg (match-beginning 1)) |
51735
204ae43066d1
(Info-following-node-name-re): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51731
diff
changeset
|
2850 (tag (match-string 1))) |
39746
67386e5484d6
(Info-insert-dir): Don't call `Info-fontify-menu-headers'.
Miles Bader <miles@gnu.org>
parents:
39459
diff
changeset
|
2851 (if (string-equal tag "Node") |
45688
fe497b121add
(Info-mode): Don't set up categories.
Colin Walters <walters@gnu.org>
parents:
45633
diff
changeset
|
2852 (put-text-property nbeg nend 'font-lock-face 'info-header-node) |
fe497b121add
(Info-mode): Don't set up categories.
Colin Walters <walters@gnu.org>
parents:
45633
diff
changeset
|
2853 (put-text-property nbeg nend 'font-lock-face 'info-header-xref) |
43776
5de6df44f85f
(Info-fontify-node): Bind up-clicks, not down-clicks.
Richard M. Stallman <rms@gnu.org>
parents:
42455
diff
changeset
|
2854 (put-text-property tbeg nend 'mouse-face 'highlight) |
39746
67386e5484d6
(Info-insert-dir): Don't call `Info-fontify-menu-headers'.
Miles Bader <miles@gnu.org>
parents:
39459
diff
changeset
|
2855 (put-text-property tbeg nend |
67386e5484d6
(Info-insert-dir): Don't call `Info-fontify-menu-headers'.
Miles Bader <miles@gnu.org>
parents:
39459
diff
changeset
|
2856 'help-echo |
67386e5484d6
(Info-insert-dir): Don't call `Info-fontify-menu-headers'.
Miles Bader <miles@gnu.org>
parents:
39459
diff
changeset
|
2857 (concat "Go to node " |
67386e5484d6
(Info-insert-dir): Don't call `Info-fontify-menu-headers'.
Miles Bader <miles@gnu.org>
parents:
39459
diff
changeset
|
2858 (buffer-substring nbeg nend))) |
45775
25c330bebee4
(Info-select-node): Turn header line on or off here.
Richard M. Stallman <rms@gnu.org>
parents:
45767
diff
changeset
|
2859 ;; Always set up the text property keymap. |
45784
95b7f625cdf5
(Info-fontify-node): Compute header line specially
Richard M. Stallman <rms@gnu.org>
parents:
45775
diff
changeset
|
2860 ;; It will either be used in the buffer |
45775
25c330bebee4
(Info-select-node): Turn header line on or off here.
Richard M. Stallman <rms@gnu.org>
parents:
45767
diff
changeset
|
2861 ;; or copied in the header line. |
48135
2c6154347319
(Info-streamline-headings): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48118
diff
changeset
|
2862 (put-text-property tbeg nend 'keymap |
2c6154347319
(Info-streamline-headings): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48118
diff
changeset
|
2863 (cond |
2c6154347319
(Info-streamline-headings): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48118
diff
changeset
|
2864 ((equal tag "Prev") Info-prev-link-keymap) |
2c6154347319
(Info-streamline-headings): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48118
diff
changeset
|
2865 ((equal tag "Next") Info-next-link-keymap) |
2c6154347319
(Info-streamline-headings): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48118
diff
changeset
|
2866 ((equal tag "Up") Info-up-link-keymap)))))) |
2c6154347319
(Info-streamline-headings): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48118
diff
changeset
|
2867 (when Info-use-header-line |
2c6154347319
(Info-streamline-headings): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48118
diff
changeset
|
2868 (goto-char (point-min)) |
51735
204ae43066d1
(Info-following-node-name-re): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51731
diff
changeset
|
2869 (let ((header-end (line-end-position)) |
48135
2c6154347319
(Info-streamline-headings): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48118
diff
changeset
|
2870 header) |
2c6154347319
(Info-streamline-headings): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48118
diff
changeset
|
2871 ;; If we find neither Next: nor Prev: link, show the entire |
2c6154347319
(Info-streamline-headings): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48118
diff
changeset
|
2872 ;; node header. Otherwise, don't show the File: and Node: |
2c6154347319
(Info-streamline-headings): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48118
diff
changeset
|
2873 ;; parts, to avoid wasting precious space on information that |
2c6154347319
(Info-streamline-headings): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48118
diff
changeset
|
2874 ;; is available in the mode line. |
2c6154347319
(Info-streamline-headings): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48118
diff
changeset
|
2875 (if (re-search-forward |
2c6154347319
(Info-streamline-headings): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48118
diff
changeset
|
2876 "\\(next\\|up\\|prev[ious]*\\): " |
2c6154347319
(Info-streamline-headings): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48118
diff
changeset
|
2877 header-end t) |
2c6154347319
(Info-streamline-headings): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48118
diff
changeset
|
2878 (progn |
2c6154347319
(Info-streamline-headings): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48118
diff
changeset
|
2879 (goto-char (match-beginning 1)) |
2c6154347319
(Info-streamline-headings): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48118
diff
changeset
|
2880 (setq header (buffer-substring (point) header-end))) |
51735
204ae43066d1
(Info-following-node-name-re): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51731
diff
changeset
|
2881 (if (re-search-forward "node:[ \t]*[^ \t]+[ \t]*" header-end t) |
48135
2c6154347319
(Info-streamline-headings): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48118
diff
changeset
|
2882 (setq header |
2c6154347319
(Info-streamline-headings): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48118
diff
changeset
|
2883 (concat "No next, prev or up links -- " |
2c6154347319
(Info-streamline-headings): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48118
diff
changeset
|
2884 (buffer-substring (point) header-end))) |
2c6154347319
(Info-streamline-headings): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48118
diff
changeset
|
2885 (setq header (buffer-substring (point) header-end)))) |
49424
59c37b87bb18
(Info-try-follow-nearest-node): Add case: Handle menu item
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
49390
diff
changeset
|
2886 |
48135
2c6154347319
(Info-streamline-headings): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48118
diff
changeset
|
2887 (put-text-property (point-min) (1+ (point-min)) |
52767
92416cd1e028
(Info-mode): Revert previous change.
Lute Kamstra <lute@gnu.org>
parents:
52756
diff
changeset
|
2888 'header-line (Info-escape-percent header)) |
48135
2c6154347319
(Info-streamline-headings): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48118
diff
changeset
|
2889 ;; Hide the part of the first line |
2c6154347319
(Info-streamline-headings): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48118
diff
changeset
|
2890 ;; that is in the header, if it is just part. |
2c6154347319
(Info-streamline-headings): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48118
diff
changeset
|
2891 (unless (bobp) |
2c6154347319
(Info-streamline-headings): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48118
diff
changeset
|
2892 ;; Hide the punctuation at the end, too. |
2c6154347319
(Info-streamline-headings): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48118
diff
changeset
|
2893 (skip-chars-backward " \t,") |
2c6154347319
(Info-streamline-headings): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48118
diff
changeset
|
2894 (put-text-property (point) header-end 'invisible t))))) |
39746
67386e5484d6
(Info-insert-dir): Don't call `Info-fontify-menu-headers'.
Miles Bader <miles@gnu.org>
parents:
39459
diff
changeset
|
2895 (goto-char (point-min)) |
67386e5484d6
(Info-insert-dir): Don't call `Info-fontify-menu-headers'.
Miles Bader <miles@gnu.org>
parents:
39459
diff
changeset
|
2896 (while (re-search-forward "\n\\([^ \t\n].+\\)\n\\(\\*+\\|=+\\|-+\\|\\.+\\)$" |
67386e5484d6
(Info-insert-dir): Don't call `Info-fontify-menu-headers'.
Miles Bader <miles@gnu.org>
parents:
39459
diff
changeset
|
2897 nil t) |
45458 | 2898 (let* ((c (preceding-char)) |
45688
fe497b121add
(Info-mode): Don't set up categories.
Colin Walters <walters@gnu.org>
parents:
45633
diff
changeset
|
2899 (face |
45458 | 2900 (cond ((= c ?*) 'Info-title-1-face) |
2901 ((= c ?=) 'Info-title-2-face) | |
2902 ((= c ?-) 'Info-title-3-face) | |
2903 (t 'Info-title-4-face)))) | |
39746
67386e5484d6
(Info-insert-dir): Don't call `Info-fontify-menu-headers'.
Miles Bader <miles@gnu.org>
parents:
39459
diff
changeset
|
2904 (put-text-property (match-beginning 1) (match-end 1) |
45688
fe497b121add
(Info-mode): Don't set up categories.
Colin Walters <walters@gnu.org>
parents:
45633
diff
changeset
|
2905 'font-lock-face face)) |
39746
67386e5484d6
(Info-insert-dir): Don't call `Info-fontify-menu-headers'.
Miles Bader <miles@gnu.org>
parents:
39459
diff
changeset
|
2906 ;; This is a serious problem for trying to handle multiple |
67386e5484d6
(Info-insert-dir): Don't call `Info-fontify-menu-headers'.
Miles Bader <miles@gnu.org>
parents:
39459
diff
changeset
|
2907 ;; frame types at once. We want this text to be invisible |
67386e5484d6
(Info-insert-dir): Don't call `Info-fontify-menu-headers'.
Miles Bader <miles@gnu.org>
parents:
39459
diff
changeset
|
2908 ;; on frames that can display the font above. |
67386e5484d6
(Info-insert-dir): Don't call `Info-fontify-menu-headers'.
Miles Bader <miles@gnu.org>
parents:
39459
diff
changeset
|
2909 (when (memq (framep (selected-frame)) '(x pc w32 mac)) |
51310
a8358d5d67b3
(Info-fontify-node): Hide \n------- rather than -------\n.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51283
diff
changeset
|
2910 (add-text-properties (1- (match-beginning 2)) (match-end 2) |
51535
4e4427be69f9
(Info-fontify-node): Make `invisible' property
Kim F. Storm <storm@cua.dk>
parents:
51517
diff
changeset
|
2911 '(invisible t front-sticky nil rear-nonsticky t)))) |
39746
67386e5484d6
(Info-insert-dir): Don't call `Info-fontify-menu-headers'.
Miles Bader <miles@gnu.org>
parents:
39459
diff
changeset
|
2912 (goto-char (point-min)) |
50004
14d6d1ad4a06
(Info-fontify-node): Don't hide indentation before the
Andreas Schwab <schwab@suse.de>
parents:
49879
diff
changeset
|
2913 (while (re-search-forward "\\(\\*Note[ \t]*\\)\n?[ \t]*\\([^:]*\\)\\(:[^.,:(]*\\(([^)]*)[^.,:]*\\)?[,:]?\n?\\)" nil t) |
48103
7d7f2b855580
(Info-follow-reference, Info-next-reference)
Kim F. Storm <storm@cua.dk>
parents:
47794
diff
changeset
|
2914 (unless (= (char-after (1- (match-beginning 0))) ?\") ; hack |
48287
205cb7dc9d47
(Info-fontify-node): New local list paragraph-markers.
Kim F. Storm <storm@cua.dk>
parents:
48161
diff
changeset
|
2915 (let ((start (match-beginning 0)) |
205cb7dc9d47
(Info-fontify-node): New local list paragraph-markers.
Kim F. Storm <storm@cua.dk>
parents:
48161
diff
changeset
|
2916 (next (point)) |
48118
40e2242be50f
(Info-hide-note-references): nil value now does no
Kim F. Storm <storm@cua.dk>
parents:
48107
diff
changeset
|
2917 (hide-tag Info-hide-note-references) |
48103
7d7f2b855580
(Info-follow-reference, Info-next-reference)
Kim F. Storm <storm@cua.dk>
parents:
47794
diff
changeset
|
2918 other-tag) |
7d7f2b855580
(Info-follow-reference, Info-next-reference)
Kim F. Storm <storm@cua.dk>
parents:
47794
diff
changeset
|
2919 (when hide-tag |
7d7f2b855580
(Info-follow-reference, Info-next-reference)
Kim F. Storm <storm@cua.dk>
parents:
47794
diff
changeset
|
2920 ;; *Note is often used where *note should have been |
48287
205cb7dc9d47
(Info-fontify-node): New local list paragraph-markers.
Kim F. Storm <storm@cua.dk>
parents:
48161
diff
changeset
|
2921 (goto-char start) |
48103
7d7f2b855580
(Info-follow-reference, Info-next-reference)
Kim F. Storm <storm@cua.dk>
parents:
47794
diff
changeset
|
2922 (skip-syntax-backward " ") |
7d7f2b855580
(Info-follow-reference, Info-next-reference)
Kim F. Storm <storm@cua.dk>
parents:
47794
diff
changeset
|
2923 (setq other-tag |
51623
48bd8b78e37b
(Info-fontify-node): Improve calculation of other-tag.
Andreas Schwab <schwab@suse.de>
parents:
51610
diff
changeset
|
2924 (cond ((memq (char-before) '(nil ?\. ?! ??)) |
48bd8b78e37b
(Info-fontify-node): Improve calculation of other-tag.
Andreas Schwab <schwab@suse.de>
parents:
51610
diff
changeset
|
2925 "See ") |
48bd8b78e37b
(Info-fontify-node): Improve calculation of other-tag.
Andreas Schwab <schwab@suse.de>
parents:
51610
diff
changeset
|
2926 ((memq (char-before) '(?\, ?\; ?\: ?-)) |
48bd8b78e37b
(Info-fontify-node): Improve calculation of other-tag.
Andreas Schwab <schwab@suse.de>
parents:
51610
diff
changeset
|
2927 "see ") |
48bd8b78e37b
(Info-fontify-node): Improve calculation of other-tag.
Andreas Schwab <schwab@suse.de>
parents:
51610
diff
changeset
|
2928 ((memq (char-before) '(?\( ?\[ ?\{)) |
48bd8b78e37b
(Info-fontify-node): Improve calculation of other-tag.
Andreas Schwab <schwab@suse.de>
parents:
51610
diff
changeset
|
2929 ;; Check whether the paren is preceded by |
48bd8b78e37b
(Info-fontify-node): Improve calculation of other-tag.
Andreas Schwab <schwab@suse.de>
parents:
51610
diff
changeset
|
2930 ;; an end of sentence |
48bd8b78e37b
(Info-fontify-node): Improve calculation of other-tag.
Andreas Schwab <schwab@suse.de>
parents:
51610
diff
changeset
|
2931 (skip-syntax-backward " (") |
48bd8b78e37b
(Info-fontify-node): Improve calculation of other-tag.
Andreas Schwab <schwab@suse.de>
parents:
51610
diff
changeset
|
2932 (if (memq (char-before) '(nil ?\. ?! ??)) |
48bd8b78e37b
(Info-fontify-node): Improve calculation of other-tag.
Andreas Schwab <schwab@suse.de>
parents:
51610
diff
changeset
|
2933 "See " |
48bd8b78e37b
(Info-fontify-node): Improve calculation of other-tag.
Andreas Schwab <schwab@suse.de>
parents:
51610
diff
changeset
|
2934 "see ")) |
48bd8b78e37b
(Info-fontify-node): Improve calculation of other-tag.
Andreas Schwab <schwab@suse.de>
parents:
51610
diff
changeset
|
2935 ((save-match-data (looking-at "\n\n")) |
48bd8b78e37b
(Info-fontify-node): Improve calculation of other-tag.
Andreas Schwab <schwab@suse.de>
parents:
51610
diff
changeset
|
2936 "See "))) |
48103
7d7f2b855580
(Info-follow-reference, Info-next-reference)
Kim F. Storm <storm@cua.dk>
parents:
47794
diff
changeset
|
2937 (goto-char next)) |
7d7f2b855580
(Info-follow-reference, Info-next-reference)
Kim F. Storm <storm@cua.dk>
parents:
47794
diff
changeset
|
2938 (if hide-tag |
7d7f2b855580
(Info-follow-reference, Info-next-reference)
Kim F. Storm <storm@cua.dk>
parents:
47794
diff
changeset
|
2939 (add-text-properties (match-beginning 1) (match-end 1) |
51535
4e4427be69f9
(Info-fontify-node): Make `invisible' property
Kim F. Storm <storm@cua.dk>
parents:
51517
diff
changeset
|
2940 '(invisible t front-sticky nil rear-nonsticky t))) |
51436
84e38964119a
(info-fontify-node): Use better help-echo text.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51435
diff
changeset
|
2941 (add-text-properties |
84e38964119a
(info-fontify-node): Use better help-echo text.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51435
diff
changeset
|
2942 (match-beginning 2) (match-end 2) |
84e38964119a
(info-fontify-node): Use better help-echo text.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51435
diff
changeset
|
2943 (cons 'help-echo |
84e38964119a
(info-fontify-node): Use better help-echo text.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51435
diff
changeset
|
2944 (cons (if (match-end 4) |
84e38964119a
(info-fontify-node): Use better help-echo text.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51435
diff
changeset
|
2945 (concat "mouse-2: go to " (match-string 4)) |
84e38964119a
(info-fontify-node): Use better help-echo text.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51435
diff
changeset
|
2946 "mouse-2: go to this node") |
84e38964119a
(info-fontify-node): Use better help-echo text.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51435
diff
changeset
|
2947 '(font-lock-face info-xref |
84e38964119a
(info-fontify-node): Use better help-echo text.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51435
diff
changeset
|
2948 mouse-face highlight)))) |
48161
d2a2d967b832
(Info-fontify-node): Fixed hiding of *note references
Kim F. Storm <storm@cua.dk>
parents:
48135
diff
changeset
|
2949 (when (eq Info-hide-note-references t) |
d2a2d967b832
(Info-fontify-node): Fixed hiding of *note references
Kim F. Storm <storm@cua.dk>
parents:
48135
diff
changeset
|
2950 (add-text-properties (match-beginning 3) (match-end 3) |
51535
4e4427be69f9
(Info-fontify-node): Make `invisible' property
Kim F. Storm <storm@cua.dk>
parents:
51517
diff
changeset
|
2951 '(invisible t front-sticky nil rear-nonsticky t))) |
48287
205cb7dc9d47
(Info-fontify-node): New local list paragraph-markers.
Kim F. Storm <storm@cua.dk>
parents:
48161
diff
changeset
|
2952 (when other-tag |
50004
14d6d1ad4a06
(Info-fontify-node): Don't hide indentation before the
Andreas Schwab <schwab@suse.de>
parents:
49879
diff
changeset
|
2953 (save-excursion |
14d6d1ad4a06
(Info-fontify-node): Don't hide indentation before the
Andreas Schwab <schwab@suse.de>
parents:
49879
diff
changeset
|
2954 (goto-char (match-beginning 1)) |
14d6d1ad4a06
(Info-fontify-node): Don't hide indentation before the
Andreas Schwab <schwab@suse.de>
parents:
49879
diff
changeset
|
2955 (insert other-tag))) |
51731 | 2956 (when (and Info-refill-paragraphs |
2957 (or hide-tag (eq Info-hide-note-references t))) | |
51434
4c85e6a5a9d2
(Info-mode-hook): Obey obsolete `Info-fontify'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51310
diff
changeset
|
2958 (push (set-marker (make-marker) start) |
4c85e6a5a9d2
(Info-mode-hook): Obey obsolete `Info-fontify'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51310
diff
changeset
|
2959 paragraph-markers))))) |
48287
205cb7dc9d47
(Info-fontify-node): New local list paragraph-markers.
Kim F. Storm <storm@cua.dk>
parents:
48161
diff
changeset
|
2960 |
51731 | 2961 (when (and Info-refill-paragraphs |
2962 paragraph-markers) | |
2963 (let ((fill-nobreak-invisible t) | |
2964 (fill-individual-varying-indent nil) | |
2965 (paragraph-start "\f\\|[ \t]*[-*]\\|[ \t]*$") | |
2966 (paragraph-separate ".*\\.[ \t]*\n[ \t]\\|[ \t]*[-*]\\|[ \t\f]*$") | |
2967 (adaptive-fill-mode nil)) | |
2968 (goto-char (point-max)) | |
2969 (while paragraph-markers | |
2970 (let ((m (car paragraph-markers))) | |
2971 (setq paragraph-markers (cdr paragraph-markers)) | |
2972 (when (< m (point)) | |
2973 (goto-char m) | |
2974 (beginning-of-line) | |
2975 (let ((beg (point))) | |
2976 (when (zerop (forward-paragraph)) | |
2977 (fill-individual-paragraphs beg (point) nil nil) | |
2978 (goto-char beg)))) | |
2979 (set-marker m nil))))) | |
48103
7d7f2b855580
(Info-follow-reference, Info-next-reference)
Kim F. Storm <storm@cua.dk>
parents:
47794
diff
changeset
|
2980 |
39746
67386e5484d6
(Info-insert-dir): Don't call `Info-fontify-menu-headers'.
Miles Bader <miles@gnu.org>
parents:
39459
diff
changeset
|
2981 (goto-char (point-min)) |
51435
13588bcc615a
(Info-fontify-node): Use :align-to display prop.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51434
diff
changeset
|
2982 (when (and (search-forward "\n* Menu:" nil t) |
13588bcc615a
(Info-fontify-node): Use :align-to display prop.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51434
diff
changeset
|
2983 (not (string-match "\\<Index\\>" Info-current-node)) |
13588bcc615a
(Info-fontify-node): Use :align-to display prop.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51434
diff
changeset
|
2984 ;; Don't take time to annotate huge menus |
13588bcc615a
(Info-fontify-node): Use :align-to display prop.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51434
diff
changeset
|
2985 (< (- (point-max) (point)) Info-fontify-maximum-menu-size)) |
13588bcc615a
(Info-fontify-node): Use :align-to display prop.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51434
diff
changeset
|
2986 (let ((n 0) |
13588bcc615a
(Info-fontify-node): Use :align-to display prop.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51434
diff
changeset
|
2987 cont) |
51735
204ae43066d1
(Info-following-node-name-re): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51731
diff
changeset
|
2988 (while (re-search-forward |
204ae43066d1
(Info-following-node-name-re): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51731
diff
changeset
|
2989 (concat "^\\* +\\(" Info-menu-entry-name-re "\\)\\(:" |
204ae43066d1
(Info-following-node-name-re): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51731
diff
changeset
|
2990 Info-node-spec-re "\\([ \t]*\\)\\)") |
204ae43066d1
(Info-following-node-name-re): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51731
diff
changeset
|
2991 nil t) |
51435
13588bcc615a
(Info-fontify-node): Use :align-to display prop.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51434
diff
changeset
|
2992 (setq n (1+ n)) |
51471
43a7f19808e0
(Info-fontify-node): Individually refill menus and
Kim F. Storm <storm@cua.dk>
parents:
51437
diff
changeset
|
2993 (if (and (<= n 9) (zerop (% n 3))) ; visual aids to help with 1-9 keys |
51435
13588bcc615a
(Info-fontify-node): Use :align-to display prop.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51434
diff
changeset
|
2994 (put-text-property (match-beginning 0) |
13588bcc615a
(Info-fontify-node): Use :align-to display prop.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51434
diff
changeset
|
2995 (1+ (match-beginning 0)) |
13588bcc615a
(Info-fontify-node): Use :align-to display prop.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51434
diff
changeset
|
2996 'font-lock-face 'info-menu-5)) |
51436
84e38964119a
(info-fontify-node): Use better help-echo text.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51435
diff
changeset
|
2997 (add-text-properties |
84e38964119a
(info-fontify-node): Use better help-echo text.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51435
diff
changeset
|
2998 (match-beginning 1) (match-end 1) |
84e38964119a
(info-fontify-node): Use better help-echo text.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51435
diff
changeset
|
2999 (cons 'help-echo |
84e38964119a
(info-fontify-node): Use better help-echo text.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51435
diff
changeset
|
3000 (cons |
84e38964119a
(info-fontify-node): Use better help-echo text.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51435
diff
changeset
|
3001 (if (match-end 3) |
84e38964119a
(info-fontify-node): Use better help-echo text.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51435
diff
changeset
|
3002 (concat "mouse-2: go to " (match-string 3)) |
84e38964119a
(info-fontify-node): Use better help-echo text.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51435
diff
changeset
|
3003 "mouse-2: go to this node") |
84e38964119a
(info-fontify-node): Use better help-echo text.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51435
diff
changeset
|
3004 '(font-lock-face info-xref |
84e38964119a
(info-fontify-node): Use better help-echo text.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51435
diff
changeset
|
3005 mouse-face highlight)))) |
51435
13588bcc615a
(Info-fontify-node): Use :align-to display prop.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51434
diff
changeset
|
3006 (when (eq Info-hide-note-references t) |
51735
204ae43066d1
(Info-following-node-name-re): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51731
diff
changeset
|
3007 (put-text-property (match-beginning 2) (1- (match-end 6)) |
51435
13588bcc615a
(Info-fontify-node): Use :align-to display prop.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51434
diff
changeset
|
3008 'invisible t) |
13588bcc615a
(Info-fontify-node): Use :align-to display prop.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51434
diff
changeset
|
3009 ;; We need a stretchable space like :align-to but with |
13588bcc615a
(Info-fontify-node): Use :align-to display prop.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51434
diff
changeset
|
3010 ;; a minimum value. |
51735
204ae43066d1
(Info-following-node-name-re): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51731
diff
changeset
|
3011 (put-text-property (1- (match-end 6)) (match-end 6) 'display |
51435
13588bcc615a
(Info-fontify-node): Use :align-to display prop.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51434
diff
changeset
|
3012 (if (>= 22 (- (match-end 1) |
13588bcc615a
(Info-fontify-node): Use :align-to display prop.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51434
diff
changeset
|
3013 (match-beginning 0))) |
13588bcc615a
(Info-fontify-node): Use :align-to display prop.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51434
diff
changeset
|
3014 '(space :align-to 24) |
13588bcc615a
(Info-fontify-node): Use :align-to display prop.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51434
diff
changeset
|
3015 '(space :width 2))) |
13588bcc615a
(Info-fontify-node): Use :align-to display prop.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51434
diff
changeset
|
3016 (setq cont (looking-at ".")) |
13588bcc615a
(Info-fontify-node): Use :align-to display prop.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51434
diff
changeset
|
3017 (while (and (= (forward-line 1) 0) |
13588bcc615a
(Info-fontify-node): Use :align-to display prop.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51434
diff
changeset
|
3018 (looking-at "\\([ \t]+\\)[^*\n]")) |
51610
08d1ae28e568
(Info-fontify-node): Give only the last whitespace character after the
Luc Teirlinck <teirllm@auburn.edu>
parents:
51535
diff
changeset
|
3019 (put-text-property (match-beginning 1) (1- (match-end 1)) |
08d1ae28e568
(Info-fontify-node): Give only the last whitespace character after the
Luc Teirlinck <teirllm@auburn.edu>
parents:
51535
diff
changeset
|
3020 'invisible t) |
08d1ae28e568
(Info-fontify-node): Give only the last whitespace character after the
Luc Teirlinck <teirllm@auburn.edu>
parents:
51535
diff
changeset
|
3021 (put-text-property (1- (match-end 1)) (match-end 1) |
08d1ae28e568
(Info-fontify-node): Give only the last whitespace character after the
Luc Teirlinck <teirllm@auburn.edu>
parents:
51535
diff
changeset
|
3022 'display |
51435
13588bcc615a
(Info-fontify-node): Use :align-to display prop.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51434
diff
changeset
|
3023 (if cont |
13588bcc615a
(Info-fontify-node): Use :align-to display prop.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51434
diff
changeset
|
3024 '(space :align-to 26) |
13588bcc615a
(Info-fontify-node): Use :align-to display prop.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51434
diff
changeset
|
3025 '(space :align-to 24))) |
13588bcc615a
(Info-fontify-node): Use :align-to display prop.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51434
diff
changeset
|
3026 (setq cont t)))))) |
48103
7d7f2b855580
(Info-follow-reference, Info-next-reference)
Kim F. Storm <storm@cua.dk>
parents:
47794
diff
changeset
|
3027 |
39746
67386e5484d6
(Info-insert-dir): Don't call `Info-fontify-menu-headers'.
Miles Bader <miles@gnu.org>
parents:
39459
diff
changeset
|
3028 (Info-fontify-menu-headers) |
67386e5484d6
(Info-insert-dir): Don't call `Info-fontify-menu-headers'.
Miles Bader <miles@gnu.org>
parents:
39459
diff
changeset
|
3029 (set-buffer-modified-p nil))))) |
16981
643e0f90e153
Handle multiple Info buffers.
Richard M. Stallman <rms@gnu.org>
parents:
16790
diff
changeset
|
3030 |
643e0f90e153
Handle multiple Info buffers.
Richard M. Stallman <rms@gnu.org>
parents:
16790
diff
changeset
|
3031 |
643e0f90e153
Handle multiple Info buffers.
Richard M. Stallman <rms@gnu.org>
parents:
16790
diff
changeset
|
3032 ;; When an Info buffer is killed, make sure the associated tags buffer |
643e0f90e153
Handle multiple Info buffers.
Richard M. Stallman <rms@gnu.org>
parents:
16790
diff
changeset
|
3033 ;; is killed too. |
643e0f90e153
Handle multiple Info buffers.
Richard M. Stallman <rms@gnu.org>
parents:
16790
diff
changeset
|
3034 (defun Info-kill-buffer () |
643e0f90e153
Handle multiple Info buffers.
Richard M. Stallman <rms@gnu.org>
parents:
16790
diff
changeset
|
3035 (and (eq major-mode 'Info-mode) |
643e0f90e153
Handle multiple Info buffers.
Richard M. Stallman <rms@gnu.org>
parents:
16790
diff
changeset
|
3036 Info-tag-table-buffer |
643e0f90e153
Handle multiple Info buffers.
Richard M. Stallman <rms@gnu.org>
parents:
16790
diff
changeset
|
3037 (kill-buffer Info-tag-table-buffer))) |
643e0f90e153
Handle multiple Info buffers.
Richard M. Stallman <rms@gnu.org>
parents:
16790
diff
changeset
|
3038 |
643e0f90e153
Handle multiple Info buffers.
Richard M. Stallman <rms@gnu.org>
parents:
16790
diff
changeset
|
3039 (add-hook 'kill-buffer-hook 'Info-kill-buffer) |
20755
0ceaf8e0782b
Added speedbar support function `Info-speedbar-buttons',
Eric M. Ludlam <zappo@gnu.org>
parents:
20514
diff
changeset
|
3040 |
0ceaf8e0782b
Added speedbar support function `Info-speedbar-buttons',
Eric M. Ludlam <zappo@gnu.org>
parents:
20514
diff
changeset
|
3041 ;;; Speedbar support: |
0ceaf8e0782b
Added speedbar support function `Info-speedbar-buttons',
Eric M. Ludlam <zappo@gnu.org>
parents:
20514
diff
changeset
|
3042 ;; These functions permit speedbar to display the "tags" in the |
0ceaf8e0782b
Added speedbar support function `Info-speedbar-buttons',
Eric M. Ludlam <zappo@gnu.org>
parents:
20514
diff
changeset
|
3043 ;; current info node. |
22733
8d8e664f1f6c
No longer depends on speedbspec for byte compile.
Karl Heuer <kwzh@gnu.org>
parents:
22692
diff
changeset
|
3044 (eval-when-compile (require 'speedbar)) |
20755
0ceaf8e0782b
Added speedbar support function `Info-speedbar-buttons',
Eric M. Ludlam <zappo@gnu.org>
parents:
20514
diff
changeset
|
3045 |
22733
8d8e664f1f6c
No longer depends on speedbspec for byte compile.
Karl Heuer <kwzh@gnu.org>
parents:
22692
diff
changeset
|
3046 (defvar Info-speedbar-key-map nil |
8d8e664f1f6c
No longer depends on speedbspec for byte compile.
Karl Heuer <kwzh@gnu.org>
parents:
22692
diff
changeset
|
3047 "Keymap used when in the info display mode.") |
8d8e664f1f6c
No longer depends on speedbspec for byte compile.
Karl Heuer <kwzh@gnu.org>
parents:
22692
diff
changeset
|
3048 |
8d8e664f1f6c
No longer depends on speedbspec for byte compile.
Karl Heuer <kwzh@gnu.org>
parents:
22692
diff
changeset
|
3049 (defun Info-install-speedbar-variables () |
8d8e664f1f6c
No longer depends on speedbspec for byte compile.
Karl Heuer <kwzh@gnu.org>
parents:
22692
diff
changeset
|
3050 "Install those variables used by speedbar to enhance Info." |
8d8e664f1f6c
No longer depends on speedbspec for byte compile.
Karl Heuer <kwzh@gnu.org>
parents:
22692
diff
changeset
|
3051 (if Info-speedbar-key-map |
8d8e664f1f6c
No longer depends on speedbspec for byte compile.
Karl Heuer <kwzh@gnu.org>
parents:
22692
diff
changeset
|
3052 nil |
8d8e664f1f6c
No longer depends on speedbspec for byte compile.
Karl Heuer <kwzh@gnu.org>
parents:
22692
diff
changeset
|
3053 (setq Info-speedbar-key-map (speedbar-make-specialized-keymap)) |
20755
0ceaf8e0782b
Added speedbar support function `Info-speedbar-buttons',
Eric M. Ludlam <zappo@gnu.org>
parents:
20514
diff
changeset
|
3054 |
22733
8d8e664f1f6c
No longer depends on speedbspec for byte compile.
Karl Heuer <kwzh@gnu.org>
parents:
22692
diff
changeset
|
3055 ;; Basic tree features |
8d8e664f1f6c
No longer depends on speedbspec for byte compile.
Karl Heuer <kwzh@gnu.org>
parents:
22692
diff
changeset
|
3056 (define-key Info-speedbar-key-map "e" 'speedbar-edit-line) |
8d8e664f1f6c
No longer depends on speedbspec for byte compile.
Karl Heuer <kwzh@gnu.org>
parents:
22692
diff
changeset
|
3057 (define-key Info-speedbar-key-map "\C-m" 'speedbar-edit-line) |
8d8e664f1f6c
No longer depends on speedbspec for byte compile.
Karl Heuer <kwzh@gnu.org>
parents:
22692
diff
changeset
|
3058 (define-key Info-speedbar-key-map "+" 'speedbar-expand-line) |
8d8e664f1f6c
No longer depends on speedbspec for byte compile.
Karl Heuer <kwzh@gnu.org>
parents:
22692
diff
changeset
|
3059 (define-key Info-speedbar-key-map "-" 'speedbar-contract-line) |
8d8e664f1f6c
No longer depends on speedbspec for byte compile.
Karl Heuer <kwzh@gnu.org>
parents:
22692
diff
changeset
|
3060 ) |
8d8e664f1f6c
No longer depends on speedbspec for byte compile.
Karl Heuer <kwzh@gnu.org>
parents:
22692
diff
changeset
|
3061 |
8d8e664f1f6c
No longer depends on speedbspec for byte compile.
Karl Heuer <kwzh@gnu.org>
parents:
22692
diff
changeset
|
3062 (speedbar-add-expansion-list '("Info" Info-speedbar-menu-items |
8d8e664f1f6c
No longer depends on speedbspec for byte compile.
Karl Heuer <kwzh@gnu.org>
parents:
22692
diff
changeset
|
3063 Info-speedbar-key-map |
8d8e664f1f6c
No longer depends on speedbspec for byte compile.
Karl Heuer <kwzh@gnu.org>
parents:
22692
diff
changeset
|
3064 Info-speedbar-hierarchy-buttons))) |
20755
0ceaf8e0782b
Added speedbar support function `Info-speedbar-buttons',
Eric M. Ludlam <zappo@gnu.org>
parents:
20514
diff
changeset
|
3065 |
0ceaf8e0782b
Added speedbar support function `Info-speedbar-buttons',
Eric M. Ludlam <zappo@gnu.org>
parents:
20514
diff
changeset
|
3066 (defvar Info-speedbar-menu-items |
22733
8d8e664f1f6c
No longer depends on speedbspec for byte compile.
Karl Heuer <kwzh@gnu.org>
parents:
22692
diff
changeset
|
3067 '(["Browse Node" speedbar-edit-line t] |
8d8e664f1f6c
No longer depends on speedbspec for byte compile.
Karl Heuer <kwzh@gnu.org>
parents:
22692
diff
changeset
|
3068 ["Expand Node" speedbar-expand-line |
8d8e664f1f6c
No longer depends on speedbspec for byte compile.
Karl Heuer <kwzh@gnu.org>
parents:
22692
diff
changeset
|
3069 (save-excursion (beginning-of-line) |
8d8e664f1f6c
No longer depends on speedbspec for byte compile.
Karl Heuer <kwzh@gnu.org>
parents:
22692
diff
changeset
|
3070 (looking-at "[0-9]+: *.\\+. "))] |
8d8e664f1f6c
No longer depends on speedbspec for byte compile.
Karl Heuer <kwzh@gnu.org>
parents:
22692
diff
changeset
|
3071 ["Contract Node" speedbar-contract-line |
8d8e664f1f6c
No longer depends on speedbspec for byte compile.
Karl Heuer <kwzh@gnu.org>
parents:
22692
diff
changeset
|
3072 (save-excursion (beginning-of-line) |
8d8e664f1f6c
No longer depends on speedbspec for byte compile.
Karl Heuer <kwzh@gnu.org>
parents:
22692
diff
changeset
|
3073 (looking-at "[0-9]+: *.-. "))] |
8d8e664f1f6c
No longer depends on speedbspec for byte compile.
Karl Heuer <kwzh@gnu.org>
parents:
22692
diff
changeset
|
3074 ) |
20755
0ceaf8e0782b
Added speedbar support function `Info-speedbar-buttons',
Eric M. Ludlam <zappo@gnu.org>
parents:
20514
diff
changeset
|
3075 "Additional menu-items to add to speedbar frame.") |
0ceaf8e0782b
Added speedbar support function `Info-speedbar-buttons',
Eric M. Ludlam <zappo@gnu.org>
parents:
20514
diff
changeset
|
3076 |
22733
8d8e664f1f6c
No longer depends on speedbspec for byte compile.
Karl Heuer <kwzh@gnu.org>
parents:
22692
diff
changeset
|
3077 ;; Make sure our special speedbar major mode is loaded |
8d8e664f1f6c
No longer depends on speedbspec for byte compile.
Karl Heuer <kwzh@gnu.org>
parents:
22692
diff
changeset
|
3078 (if (featurep 'speedbar) |
8d8e664f1f6c
No longer depends on speedbspec for byte compile.
Karl Heuer <kwzh@gnu.org>
parents:
22692
diff
changeset
|
3079 (Info-install-speedbar-variables) |
8d8e664f1f6c
No longer depends on speedbspec for byte compile.
Karl Heuer <kwzh@gnu.org>
parents:
22692
diff
changeset
|
3080 (add-hook 'speedbar-load-hook 'Info-install-speedbar-variables)) |
8d8e664f1f6c
No longer depends on speedbspec for byte compile.
Karl Heuer <kwzh@gnu.org>
parents:
22692
diff
changeset
|
3081 |
8d8e664f1f6c
No longer depends on speedbspec for byte compile.
Karl Heuer <kwzh@gnu.org>
parents:
22692
diff
changeset
|
3082 ;;; Info hierarchy display method |
8d8e664f1f6c
No longer depends on speedbspec for byte compile.
Karl Heuer <kwzh@gnu.org>
parents:
22692
diff
changeset
|
3083 ;;;###autoload |
8d8e664f1f6c
No longer depends on speedbspec for byte compile.
Karl Heuer <kwzh@gnu.org>
parents:
22692
diff
changeset
|
3084 (defun Info-speedbar-browser () |
8d8e664f1f6c
No longer depends on speedbspec for byte compile.
Karl Heuer <kwzh@gnu.org>
parents:
22692
diff
changeset
|
3085 "Initialize speedbar to display an info node browser. |
8d8e664f1f6c
No longer depends on speedbspec for byte compile.
Karl Heuer <kwzh@gnu.org>
parents:
22692
diff
changeset
|
3086 This will add a speedbar major display mode." |
8d8e664f1f6c
No longer depends on speedbspec for byte compile.
Karl Heuer <kwzh@gnu.org>
parents:
22692
diff
changeset
|
3087 (interactive) |
8d8e664f1f6c
No longer depends on speedbspec for byte compile.
Karl Heuer <kwzh@gnu.org>
parents:
22692
diff
changeset
|
3088 (require 'speedbar) |
8d8e664f1f6c
No longer depends on speedbspec for byte compile.
Karl Heuer <kwzh@gnu.org>
parents:
22692
diff
changeset
|
3089 ;; Make sure that speedbar is active |
8d8e664f1f6c
No longer depends on speedbspec for byte compile.
Karl Heuer <kwzh@gnu.org>
parents:
22692
diff
changeset
|
3090 (speedbar-frame-mode 1) |
8d8e664f1f6c
No longer depends on speedbspec for byte compile.
Karl Heuer <kwzh@gnu.org>
parents:
22692
diff
changeset
|
3091 ;; Now, throw us into Info mode on speedbar. |
8d8e664f1f6c
No longer depends on speedbspec for byte compile.
Karl Heuer <kwzh@gnu.org>
parents:
22692
diff
changeset
|
3092 (speedbar-change-initial-expansion-list "Info") |
8d8e664f1f6c
No longer depends on speedbspec for byte compile.
Karl Heuer <kwzh@gnu.org>
parents:
22692
diff
changeset
|
3093 ) |
8d8e664f1f6c
No longer depends on speedbspec for byte compile.
Karl Heuer <kwzh@gnu.org>
parents:
22692
diff
changeset
|
3094 |
32286
c0b19a2770ca
(Info-goto-node, Info-menu): Doc fix.
Dave Love <fx@gnu.org>
parents:
32007
diff
changeset
|
3095 (eval-when-compile (defvar speedbar-attached-frame)) |
c0b19a2770ca
(Info-goto-node, Info-menu): Doc fix.
Dave Love <fx@gnu.org>
parents:
32007
diff
changeset
|
3096 |
22733
8d8e664f1f6c
No longer depends on speedbspec for byte compile.
Karl Heuer <kwzh@gnu.org>
parents:
22692
diff
changeset
|
3097 (defun Info-speedbar-hierarchy-buttons (directory depth &optional node) |
8d8e664f1f6c
No longer depends on speedbspec for byte compile.
Karl Heuer <kwzh@gnu.org>
parents:
22692
diff
changeset
|
3098 "Display an Info directory hierarchy in speedbar. |
8d8e664f1f6c
No longer depends on speedbspec for byte compile.
Karl Heuer <kwzh@gnu.org>
parents:
22692
diff
changeset
|
3099 DIRECTORY is the current directory in the attached frame. |
8d8e664f1f6c
No longer depends on speedbspec for byte compile.
Karl Heuer <kwzh@gnu.org>
parents:
22692
diff
changeset
|
3100 DEPTH is the current indentation depth. |
8d8e664f1f6c
No longer depends on speedbspec for byte compile.
Karl Heuer <kwzh@gnu.org>
parents:
22692
diff
changeset
|
3101 NODE is an optional argument that is used to represent the |
8d8e664f1f6c
No longer depends on speedbspec for byte compile.
Karl Heuer <kwzh@gnu.org>
parents:
22692
diff
changeset
|
3102 specific node to expand." |
8d8e664f1f6c
No longer depends on speedbspec for byte compile.
Karl Heuer <kwzh@gnu.org>
parents:
22692
diff
changeset
|
3103 (if (and (not node) |
8d8e664f1f6c
No longer depends on speedbspec for byte compile.
Karl Heuer <kwzh@gnu.org>
parents:
22692
diff
changeset
|
3104 (save-excursion (goto-char (point-min)) |
22951
19b3899582b4
Bind case-fold-search to t in many functions.
Richard M. Stallman <rms@gnu.org>
parents:
22902
diff
changeset
|
3105 (let ((case-fold-search t)) |
19b3899582b4
Bind case-fold-search to t in many functions.
Richard M. Stallman <rms@gnu.org>
parents:
22902
diff
changeset
|
3106 (looking-at "Info Nodes:")))) |
22733
8d8e664f1f6c
No longer depends on speedbspec for byte compile.
Karl Heuer <kwzh@gnu.org>
parents:
22692
diff
changeset
|
3107 ;; Update our "current node" maybe? |
8d8e664f1f6c
No longer depends on speedbspec for byte compile.
Karl Heuer <kwzh@gnu.org>
parents:
22692
diff
changeset
|
3108 nil |
8d8e664f1f6c
No longer depends on speedbspec for byte compile.
Karl Heuer <kwzh@gnu.org>
parents:
22692
diff
changeset
|
3109 ;; We cannot use the generic list code, that depends on all leaves |
8d8e664f1f6c
No longer depends on speedbspec for byte compile.
Karl Heuer <kwzh@gnu.org>
parents:
22692
diff
changeset
|
3110 ;; being known at creation time. |
8d8e664f1f6c
No longer depends on speedbspec for byte compile.
Karl Heuer <kwzh@gnu.org>
parents:
22692
diff
changeset
|
3111 (if (not node) |
8d8e664f1f6c
No longer depends on speedbspec for byte compile.
Karl Heuer <kwzh@gnu.org>
parents:
22692
diff
changeset
|
3112 (speedbar-with-writable (insert "Info Nodes:\n"))) |
22894
186b2098dcd8
(Info-speedbar-hierarchy-buttons): Improved the speedbar frame management.
Eric M. Ludlam <zappo@gnu.org>
parents:
22863
diff
changeset
|
3113 (let ((completions nil) |
186b2098dcd8
(Info-speedbar-hierarchy-buttons): Improved the speedbar frame management.
Eric M. Ludlam <zappo@gnu.org>
parents:
22863
diff
changeset
|
3114 (cf (selected-frame))) |
186b2098dcd8
(Info-speedbar-hierarchy-buttons): Improved the speedbar frame management.
Eric M. Ludlam <zappo@gnu.org>
parents:
22863
diff
changeset
|
3115 (select-frame speedbar-attached-frame) |
186b2098dcd8
(Info-speedbar-hierarchy-buttons): Improved the speedbar frame management.
Eric M. Ludlam <zappo@gnu.org>
parents:
22863
diff
changeset
|
3116 (save-window-excursion |
186b2098dcd8
(Info-speedbar-hierarchy-buttons): Improved the speedbar frame management.
Eric M. Ludlam <zappo@gnu.org>
parents:
22863
diff
changeset
|
3117 (setq completions |
186b2098dcd8
(Info-speedbar-hierarchy-buttons): Improved the speedbar frame management.
Eric M. Ludlam <zappo@gnu.org>
parents:
22863
diff
changeset
|
3118 (Info-speedbar-fetch-file-nodes (or node '"(dir)top")))) |
186b2098dcd8
(Info-speedbar-hierarchy-buttons): Improved the speedbar frame management.
Eric M. Ludlam <zappo@gnu.org>
parents:
22863
diff
changeset
|
3119 (select-frame cf) |
22733
8d8e664f1f6c
No longer depends on speedbspec for byte compile.
Karl Heuer <kwzh@gnu.org>
parents:
22692
diff
changeset
|
3120 (if completions |
8d8e664f1f6c
No longer depends on speedbspec for byte compile.
Karl Heuer <kwzh@gnu.org>
parents:
22692
diff
changeset
|
3121 (speedbar-with-writable |
51434
4c85e6a5a9d2
(Info-mode-hook): Obey obsolete `Info-fontify'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51310
diff
changeset
|
3122 (dolist (completion completions) |
22733
8d8e664f1f6c
No longer depends on speedbspec for byte compile.
Karl Heuer <kwzh@gnu.org>
parents:
22692
diff
changeset
|
3123 (speedbar-make-tag-line 'bracket ?+ 'Info-speedbar-expand-node |
51434
4c85e6a5a9d2
(Info-mode-hook): Obey obsolete `Info-fontify'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51310
diff
changeset
|
3124 (cdr completion) |
4c85e6a5a9d2
(Info-mode-hook): Obey obsolete `Info-fontify'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51310
diff
changeset
|
3125 (car completion) |
22733
8d8e664f1f6c
No longer depends on speedbspec for byte compile.
Karl Heuer <kwzh@gnu.org>
parents:
22692
diff
changeset
|
3126 'Info-speedbar-goto-node |
51434
4c85e6a5a9d2
(Info-mode-hook): Obey obsolete `Info-fontify'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51310
diff
changeset
|
3127 (cdr completion) |
4c85e6a5a9d2
(Info-mode-hook): Obey obsolete `Info-fontify'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51310
diff
changeset
|
3128 'info-xref depth)) |
22733
8d8e664f1f6c
No longer depends on speedbspec for byte compile.
Karl Heuer <kwzh@gnu.org>
parents:
22692
diff
changeset
|
3129 t) |
8d8e664f1f6c
No longer depends on speedbspec for byte compile.
Karl Heuer <kwzh@gnu.org>
parents:
22692
diff
changeset
|
3130 nil)))) |
28943
36fd90774cf7
(debug-ignored-errors): more errors to ignore.
Sam Steingold <sds@gnu.org>
parents:
28559
diff
changeset
|
3131 |
22733
8d8e664f1f6c
No longer depends on speedbspec for byte compile.
Karl Heuer <kwzh@gnu.org>
parents:
22692
diff
changeset
|
3132 (defun Info-speedbar-goto-node (text node indent) |
32500
5f2aedbe47b5
(Info-mouse-follow-nearest-node): Use mouse-set-point.
Dave Love <fx@gnu.org>
parents:
32391
diff
changeset
|
3133 "When user clicks on TEXT, go to an info NODE. |
22733
8d8e664f1f6c
No longer depends on speedbspec for byte compile.
Karl Heuer <kwzh@gnu.org>
parents:
22692
diff
changeset
|
3134 The INDENT level is ignored." |
29446
009f1caf830f
Bind case-fold-search to t when searching in case
Gerd Moellmann <gerd@gnu.org>
parents:
29410
diff
changeset
|
3135 (select-frame speedbar-attached-frame) |
009f1caf830f
Bind case-fold-search to t when searching in case
Gerd Moellmann <gerd@gnu.org>
parents:
29410
diff
changeset
|
3136 (let* ((buff (or (get-buffer "*info*") |
009f1caf830f
Bind case-fold-search to t when searching in case
Gerd Moellmann <gerd@gnu.org>
parents:
29410
diff
changeset
|
3137 (progn (info) (get-buffer "*info*")))) |
009f1caf830f
Bind case-fold-search to t when searching in case
Gerd Moellmann <gerd@gnu.org>
parents:
29410
diff
changeset
|
3138 (bwin (get-buffer-window buff 0))) |
009f1caf830f
Bind case-fold-search to t when searching in case
Gerd Moellmann <gerd@gnu.org>
parents:
29410
diff
changeset
|
3139 (if bwin |
009f1caf830f
Bind case-fold-search to t when searching in case
Gerd Moellmann <gerd@gnu.org>
parents:
29410
diff
changeset
|
3140 (progn |
009f1caf830f
Bind case-fold-search to t when searching in case
Gerd Moellmann <gerd@gnu.org>
parents:
29410
diff
changeset
|
3141 (select-window bwin) |
009f1caf830f
Bind case-fold-search to t when searching in case
Gerd Moellmann <gerd@gnu.org>
parents:
29410
diff
changeset
|
3142 (raise-frame (window-frame bwin))) |
009f1caf830f
Bind case-fold-search to t when searching in case
Gerd Moellmann <gerd@gnu.org>
parents:
29410
diff
changeset
|
3143 (if speedbar-power-click |
009f1caf830f
Bind case-fold-search to t when searching in case
Gerd Moellmann <gerd@gnu.org>
parents:
29410
diff
changeset
|
3144 (let ((pop-up-frames t)) (select-window (display-buffer buff))) |
009f1caf830f
Bind case-fold-search to t when searching in case
Gerd Moellmann <gerd@gnu.org>
parents:
29410
diff
changeset
|
3145 (select-frame speedbar-attached-frame) |
009f1caf830f
Bind case-fold-search to t when searching in case
Gerd Moellmann <gerd@gnu.org>
parents:
29410
diff
changeset
|
3146 (switch-to-buffer buff))) |
51434
4c85e6a5a9d2
(Info-mode-hook): Obey obsolete `Info-fontify'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51310
diff
changeset
|
3147 (if (not (string-match "^(\\([^)]+\\))\\([^.]+\\)$" node)) |
4c85e6a5a9d2
(Info-mode-hook): Obey obsolete `Info-fontify'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51310
diff
changeset
|
3148 (error "Invalid node %s" node) |
4c85e6a5a9d2
(Info-mode-hook): Obey obsolete `Info-fontify'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51310
diff
changeset
|
3149 (Info-find-node (match-string 1 node) (match-string 2 node)) |
29446
009f1caf830f
Bind case-fold-search to t when searching in case
Gerd Moellmann <gerd@gnu.org>
parents:
29410
diff
changeset
|
3150 ;; If we do a find-node, and we were in info mode, restore |
009f1caf830f
Bind case-fold-search to t when searching in case
Gerd Moellmann <gerd@gnu.org>
parents:
29410
diff
changeset
|
3151 ;; the old default method. Once we are in info mode, it makes |
009f1caf830f
Bind case-fold-search to t when searching in case
Gerd Moellmann <gerd@gnu.org>
parents:
29410
diff
changeset
|
3152 ;; sense to return to whatever method the user was using before. |
009f1caf830f
Bind case-fold-search to t when searching in case
Gerd Moellmann <gerd@gnu.org>
parents:
29410
diff
changeset
|
3153 (if (string= speedbar-initial-expansion-list-name "Info") |
009f1caf830f
Bind case-fold-search to t when searching in case
Gerd Moellmann <gerd@gnu.org>
parents:
29410
diff
changeset
|
3154 (speedbar-change-initial-expansion-list |
009f1caf830f
Bind case-fold-search to t when searching in case
Gerd Moellmann <gerd@gnu.org>
parents:
29410
diff
changeset
|
3155 speedbar-previously-used-expansion-list-name))))) |
22733
8d8e664f1f6c
No longer depends on speedbspec for byte compile.
Karl Heuer <kwzh@gnu.org>
parents:
22692
diff
changeset
|
3156 |
8d8e664f1f6c
No longer depends on speedbspec for byte compile.
Karl Heuer <kwzh@gnu.org>
parents:
22692
diff
changeset
|
3157 (defun Info-speedbar-expand-node (text token indent) |
8d8e664f1f6c
No longer depends on speedbspec for byte compile.
Karl Heuer <kwzh@gnu.org>
parents:
22692
diff
changeset
|
3158 "Expand the node the user clicked on. |
8d8e664f1f6c
No longer depends on speedbspec for byte compile.
Karl Heuer <kwzh@gnu.org>
parents:
22692
diff
changeset
|
3159 TEXT is the text of the button we clicked on, a + or - item. |
8d8e664f1f6c
No longer depends on speedbspec for byte compile.
Karl Heuer <kwzh@gnu.org>
parents:
22692
diff
changeset
|
3160 TOKEN is data related to this node (NAME . FILE). |
8d8e664f1f6c
No longer depends on speedbspec for byte compile.
Karl Heuer <kwzh@gnu.org>
parents:
22692
diff
changeset
|
3161 INDENT is the current indentation depth." |
8d8e664f1f6c
No longer depends on speedbspec for byte compile.
Karl Heuer <kwzh@gnu.org>
parents:
22692
diff
changeset
|
3162 (cond ((string-match "+" text) ;we have to expand this file |
8d8e664f1f6c
No longer depends on speedbspec for byte compile.
Karl Heuer <kwzh@gnu.org>
parents:
22692
diff
changeset
|
3163 (speedbar-change-expand-button-char ?-) |
8d8e664f1f6c
No longer depends on speedbspec for byte compile.
Karl Heuer <kwzh@gnu.org>
parents:
22692
diff
changeset
|
3164 (if (speedbar-with-writable |
29446
009f1caf830f
Bind case-fold-search to t when searching in case
Gerd Moellmann <gerd@gnu.org>
parents:
29410
diff
changeset
|
3165 (save-excursion |
009f1caf830f
Bind case-fold-search to t when searching in case
Gerd Moellmann <gerd@gnu.org>
parents:
29410
diff
changeset
|
3166 (end-of-line) (forward-char 1) |
009f1caf830f
Bind case-fold-search to t when searching in case
Gerd Moellmann <gerd@gnu.org>
parents:
29410
diff
changeset
|
3167 (Info-speedbar-hierarchy-buttons nil (1+ indent) token))) |
22733
8d8e664f1f6c
No longer depends on speedbspec for byte compile.
Karl Heuer <kwzh@gnu.org>
parents:
22692
diff
changeset
|
3168 (speedbar-change-expand-button-char ?-) |
8d8e664f1f6c
No longer depends on speedbspec for byte compile.
Karl Heuer <kwzh@gnu.org>
parents:
22692
diff
changeset
|
3169 (speedbar-change-expand-button-char ??))) |
8d8e664f1f6c
No longer depends on speedbspec for byte compile.
Karl Heuer <kwzh@gnu.org>
parents:
22692
diff
changeset
|
3170 ((string-match "-" text) ;we have to contract this node |
8d8e664f1f6c
No longer depends on speedbspec for byte compile.
Karl Heuer <kwzh@gnu.org>
parents:
22692
diff
changeset
|
3171 (speedbar-change-expand-button-char ?+) |
8d8e664f1f6c
No longer depends on speedbspec for byte compile.
Karl Heuer <kwzh@gnu.org>
parents:
22692
diff
changeset
|
3172 (speedbar-delete-subblock indent)) |
8d8e664f1f6c
No longer depends on speedbspec for byte compile.
Karl Heuer <kwzh@gnu.org>
parents:
22692
diff
changeset
|
3173 (t (error "Ooops... not sure what to do"))) |
8d8e664f1f6c
No longer depends on speedbspec for byte compile.
Karl Heuer <kwzh@gnu.org>
parents:
22692
diff
changeset
|
3174 (speedbar-center-buffer-smartly)) |
8d8e664f1f6c
No longer depends on speedbspec for byte compile.
Karl Heuer <kwzh@gnu.org>
parents:
22692
diff
changeset
|
3175 |
8d8e664f1f6c
No longer depends on speedbspec for byte compile.
Karl Heuer <kwzh@gnu.org>
parents:
22692
diff
changeset
|
3176 (defun Info-speedbar-fetch-file-nodes (nodespec) |
8d8e664f1f6c
No longer depends on speedbspec for byte compile.
Karl Heuer <kwzh@gnu.org>
parents:
22692
diff
changeset
|
3177 "Fetch the subnodes from the info NODESPEC. |
8d8e664f1f6c
No longer depends on speedbspec for byte compile.
Karl Heuer <kwzh@gnu.org>
parents:
22692
diff
changeset
|
3178 NODESPEC is a string of the form: (file)node. |
8d8e664f1f6c
No longer depends on speedbspec for byte compile.
Karl Heuer <kwzh@gnu.org>
parents:
22692
diff
changeset
|
3179 Optional THISFILE represends the filename of" |
8d8e664f1f6c
No longer depends on speedbspec for byte compile.
Karl Heuer <kwzh@gnu.org>
parents:
22692
diff
changeset
|
3180 (save-excursion |
8d8e664f1f6c
No longer depends on speedbspec for byte compile.
Karl Heuer <kwzh@gnu.org>
parents:
22692
diff
changeset
|
3181 ;; Set up a buffer we can use to fake-out Info. |
8d8e664f1f6c
No longer depends on speedbspec for byte compile.
Karl Heuer <kwzh@gnu.org>
parents:
22692
diff
changeset
|
3182 (set-buffer (get-buffer-create "*info-browse-tmp*")) |
8d8e664f1f6c
No longer depends on speedbspec for byte compile.
Karl Heuer <kwzh@gnu.org>
parents:
22692
diff
changeset
|
3183 (if (not (equal major-mode 'Info-mode)) |
8d8e664f1f6c
No longer depends on speedbspec for byte compile.
Karl Heuer <kwzh@gnu.org>
parents:
22692
diff
changeset
|
3184 (Info-mode)) |
8d8e664f1f6c
No longer depends on speedbspec for byte compile.
Karl Heuer <kwzh@gnu.org>
parents:
22692
diff
changeset
|
3185 ;; Get the node into this buffer |
51434
4c85e6a5a9d2
(Info-mode-hook): Obey obsolete `Info-fontify'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51310
diff
changeset
|
3186 (if (not (string-match "^(\\([^)]+\\))\\([^.]+\\)$" nodespec)) |
4c85e6a5a9d2
(Info-mode-hook): Obey obsolete `Info-fontify'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51310
diff
changeset
|
3187 (error "Invalid node specification %s" nodespec) |
4c85e6a5a9d2
(Info-mode-hook): Obey obsolete `Info-fontify'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51310
diff
changeset
|
3188 (Info-find-node (match-string 1 nodespec) (match-string 2 nodespec))) |
22733
8d8e664f1f6c
No longer depends on speedbspec for byte compile.
Karl Heuer <kwzh@gnu.org>
parents:
22692
diff
changeset
|
3189 ;; Scan the created buffer |
8d8e664f1f6c
No longer depends on speedbspec for byte compile.
Karl Heuer <kwzh@gnu.org>
parents:
22692
diff
changeset
|
3190 (goto-char (point-min)) |
8d8e664f1f6c
No longer depends on speedbspec for byte compile.
Karl Heuer <kwzh@gnu.org>
parents:
22692
diff
changeset
|
3191 (let ((completions nil) |
22951
19b3899582b4
Bind case-fold-search to t in many functions.
Richard M. Stallman <rms@gnu.org>
parents:
22902
diff
changeset
|
3192 (case-fold-search t) |
22733
8d8e664f1f6c
No longer depends on speedbspec for byte compile.
Karl Heuer <kwzh@gnu.org>
parents:
22692
diff
changeset
|
3193 (thisfile (progn (string-match "^(\\([^)]+\\))" nodespec) |
8d8e664f1f6c
No longer depends on speedbspec for byte compile.
Karl Heuer <kwzh@gnu.org>
parents:
22692
diff
changeset
|
3194 (match-string 1 nodespec)))) |
8d8e664f1f6c
No longer depends on speedbspec for byte compile.
Karl Heuer <kwzh@gnu.org>
parents:
22692
diff
changeset
|
3195 ;; Always skip the first one... |
8d8e664f1f6c
No longer depends on speedbspec for byte compile.
Karl Heuer <kwzh@gnu.org>
parents:
22692
diff
changeset
|
3196 (re-search-forward "\n\\* \\([^:\t\n]*\\):" nil t) |
8d8e664f1f6c
No longer depends on speedbspec for byte compile.
Karl Heuer <kwzh@gnu.org>
parents:
22692
diff
changeset
|
3197 (while (re-search-forward "\n\\* \\([^:\t\n]*\\):" nil t) |
8d8e664f1f6c
No longer depends on speedbspec for byte compile.
Karl Heuer <kwzh@gnu.org>
parents:
22692
diff
changeset
|
3198 (let ((name (match-string 1))) |
51434
4c85e6a5a9d2
(Info-mode-hook): Obey obsolete `Info-fontify'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51310
diff
changeset
|
3199 (push (cons name |
4c85e6a5a9d2
(Info-mode-hook): Obey obsolete `Info-fontify'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51310
diff
changeset
|
3200 (if (looking-at " *\\(([^)]+)[^.\n]+\\)\\.") |
4c85e6a5a9d2
(Info-mode-hook): Obey obsolete `Info-fontify'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51310
diff
changeset
|
3201 (match-string 1) |
4c85e6a5a9d2
(Info-mode-hook): Obey obsolete `Info-fontify'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51310
diff
changeset
|
3202 (if (looking-at " *\\(([^)]+)\\)\\.") |
4c85e6a5a9d2
(Info-mode-hook): Obey obsolete `Info-fontify'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51310
diff
changeset
|
3203 (concat (match-string 1) "Top") |
4c85e6a5a9d2
(Info-mode-hook): Obey obsolete `Info-fontify'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51310
diff
changeset
|
3204 (concat "(" thisfile ")" |
4c85e6a5a9d2
(Info-mode-hook): Obey obsolete `Info-fontify'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51310
diff
changeset
|
3205 (if (looking-at " \\([^.]+\\).") |
4c85e6a5a9d2
(Info-mode-hook): Obey obsolete `Info-fontify'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51310
diff
changeset
|
3206 (match-string 1) |
4c85e6a5a9d2
(Info-mode-hook): Obey obsolete `Info-fontify'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51310
diff
changeset
|
3207 name))))) |
4c85e6a5a9d2
(Info-mode-hook): Obey obsolete `Info-fontify'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51310
diff
changeset
|
3208 completions))) |
22733
8d8e664f1f6c
No longer depends on speedbspec for byte compile.
Karl Heuer <kwzh@gnu.org>
parents:
22692
diff
changeset
|
3209 (nreverse completions)))) |
8d8e664f1f6c
No longer depends on speedbspec for byte compile.
Karl Heuer <kwzh@gnu.org>
parents:
22692
diff
changeset
|
3210 |
8d8e664f1f6c
No longer depends on speedbspec for byte compile.
Karl Heuer <kwzh@gnu.org>
parents:
22692
diff
changeset
|
3211 ;;; Info mode node listing |
51437
63b62b12e01c
(Info-extract-menu-node-name): Remove unused arg `errmessage'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51436
diff
changeset
|
3212 ;; FIXME: Seems not to be used. -stef |
20755
0ceaf8e0782b
Added speedbar support function `Info-speedbar-buttons',
Eric M. Ludlam <zappo@gnu.org>
parents:
20514
diff
changeset
|
3213 (defun Info-speedbar-buttons (buffer) |
0ceaf8e0782b
Added speedbar support function `Info-speedbar-buttons',
Eric M. Ludlam <zappo@gnu.org>
parents:
20514
diff
changeset
|
3214 "Create a speedbar display to help navigation in an Info file. |
0ceaf8e0782b
Added speedbar support function `Info-speedbar-buttons',
Eric M. Ludlam <zappo@gnu.org>
parents:
20514
diff
changeset
|
3215 BUFFER is the buffer speedbar is requesting buttons for." |
22733
8d8e664f1f6c
No longer depends on speedbspec for byte compile.
Karl Heuer <kwzh@gnu.org>
parents:
22692
diff
changeset
|
3216 (if (save-excursion (goto-char (point-min)) |
22951
19b3899582b4
Bind case-fold-search to t in many functions.
Richard M. Stallman <rms@gnu.org>
parents:
22902
diff
changeset
|
3217 (let ((case-fold-search t)) |
19b3899582b4
Bind case-fold-search to t in many functions.
Richard M. Stallman <rms@gnu.org>
parents:
22902
diff
changeset
|
3218 (not (looking-at "Info Nodes:")))) |
22733
8d8e664f1f6c
No longer depends on speedbspec for byte compile.
Karl Heuer <kwzh@gnu.org>
parents:
22692
diff
changeset
|
3219 (erase-buffer)) |
8d8e664f1f6c
No longer depends on speedbspec for byte compile.
Karl Heuer <kwzh@gnu.org>
parents:
22692
diff
changeset
|
3220 (Info-speedbar-hierarchy-buttons nil 0) |
8d8e664f1f6c
No longer depends on speedbspec for byte compile.
Karl Heuer <kwzh@gnu.org>
parents:
22692
diff
changeset
|
3221 ) |
584 | 3222 |
28558 | 3223 (dolist (mess '("^Node has no Previous$" |
3224 "^No menu in this node$" | |
3225 "^Node has no Next$" | |
28943
36fd90774cf7
(debug-ignored-errors): more errors to ignore.
Sam Steingold <sds@gnu.org>
parents:
28559
diff
changeset
|
3226 "^No cross-references in this node^" |
36fd90774cf7
(debug-ignored-errors): more errors to ignore.
Sam Steingold <sds@gnu.org>
parents:
28559
diff
changeset
|
3227 search-failed |
28558 | 3228 "^No \".*\" in index$")) |
3229 (add-to-list 'debug-ignored-errors mess)) | |
3230 | |
584 | 3231 (provide 'info) |
3232 | |
52401 | 3233 ;;; arch-tag: f2480fe2-2139-40c1-a49b-6314991164ac |
660
08eb386dd0f3
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
584
diff
changeset
|
3234 ;;; info.el ends here |