diff options
author | Thien-Thi Nguyen <ttn@gnuvola.org> | 2008-07-30 20:29:54 +0000 |
---|---|---|
committer | Thien-Thi Nguyen <ttn@gnuvola.org> | 2008-07-30 20:29:54 +0000 |
commit | 00fade45540b2f21c3bfc040621909da1601cfe5 (patch) | |
tree | c2af2ef406083d837884d30904aaf36b1498b17c /lisp/info-look.el | |
parent | 88e1d519f02d7a54ec7f00b53dbff255325c3b30 (diff) | |
download | emacs-00fade45540b2f21c3bfc040621909da1601cfe5.tar.gz |
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.
Diffstat (limited to 'lisp/info-look.el')
-rw-r--r-- | lisp/info-look.el | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/lisp/info-look.el b/lisp/info-look.el index e7ac5bd0d54..fc8ff1e578b 100644 --- a/lisp/info-look.el +++ b/lisp/info-look.el @@ -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)) |