Mercurial > emacs
changeset 106644:3e902d81441e
* info-look.el (sh-mode): Look for coreutils new "Concept Index"
node. Keep previous "Index" name to work with past coreutils too.
| author | Kevin Ryde <user42@zip.com.au> |
|---|---|
| date | Sat, 26 Dec 2009 21:13:21 +0000 |
| parents | 9e3bbd77797c |
| children | 134a2112d31c |
| files | lisp/info-look.el |
| diffstat | 1 files changed, 7 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/info-look.el Sat Dec 26 20:04:43 2009 +0000 +++ b/lisp/info-look.el Sat Dec 26 21:13:21 2009 +0000 @@ -936,11 +936,18 @@ :doc-spec '(("(bash)Builtin Index" nil "^`" "[ .']") ("(bash)Reserved Word Index" nil "^`" "[ .']") ("(bash)Variable Index" nil "^`" "[ .']") + ;; coreutils (version 4.5.10) doesn't have a separate program ;; index, so exclude extraneous stuff (most of it) by demanding ;; "[a-z]+" in the trans-func. + ;; coreutils version 8.1 has node "Concept Index" and past + ;; versions have node "Index", look for both, whichever is + ;; absent is quietly ignored ("(coreutils)Index" (lambda (item) (if (string-match "\\`[a-z]+\\'" item) item))) + ("(coreutils)Concept Index" + (lambda (item) (if (string-match "\\`[a-z]+\\'" item) item))) + ;; diff (version 2.8.1) has only a few programs, index entries ;; are things like "foo invocation". ("(diff)Index"