1
0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-11 16:08:13 +00:00

Handle AS_* in Autoconf 2.62's index for `info-lookup-symbol'.

* lisp/info-look.el (autoconf-mode :doc-spec): For
"(autoconf)M4 Macro Index", if the item already
begins with "AS_", don't prefix that string again.
This commit is contained in:
Thien-Thi Nguyen 2008-07-30 20:29:54 +00:00
parent 88e1d519f0
commit 00fade4554
2 changed files with 11 additions and 2 deletions

View File

@ -1,3 +1,9 @@
2008-07-30 Thien-Thi Nguyen <ttn@gnuvola.org>
* info-look.el (autoconf-mode :doc-spec): For
"(autoconf)M4 Macro Index", if the item already
begins with "AS_", don't prefix that string again.
2008-07-30 Juri Linkov <juri@jurta.org>
* info.el (info, Info-mode): Doc fix.

View File

@ -755,12 +755,15 @@ Return nil if there is nothing appropriate in the buffer near point."
;; M4 Macro Index entries are without "AS_" prefixes, and
;; mostly without "m4_" prefixes. "dnl" is an exception, not
;; wanting any prefix. So AS_ is added back to upper-case
;; names, m4_ to others which don't already an m4_.
;; names (if needed), m4_ to others which don't already an m4_.
("(autoconf)M4 Macro Index"
(lambda (item)
(let ((case-fold-search nil))
(cond ((or (string-equal item "dnl")
(string-match "^m4_" item))
(string-match "^m4_" item)
;; Autoconf 2.62 index includes some macros
;; (e.g., AS_HELP_STRING), so avoid prefixing.
(string-match "^AS_" item))
item)
((string-match "^[A-Z0-9_]+$" item)
(concat "AS_" item))