[Emacs-diffs] emacs/lisp info-look.el

[Kevin Ryde]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Kevin Ryde <kryde>      09/12/26 21:13:21

Modified files:
        lisp           : info-look.el 

Log message:
        * info-look.el (sh-mode): Look for coreutils new "Concept Index"
        node.  Keep previous "Index" name to work with past coreutils too.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/info-look.el?cvsroot=emacs&r1=1.68&r2=1.69

Patches:
Index: info-look.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/info-look.el,v
retrieving revision 1.68
retrieving revision 1.69
diff -u -b -r1.68 -r1.69
--- info-look.el        6 Dec 2009 00:41:18 -0000       1.68
+++ info-look.el        26 Dec 2009 21:13:21 -0000      1.69
@@ -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"