mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-03 18:41:25 -08:00
Code Issues Projects Releases Wiki Activity

* info-look.el (sh-mode): Look for coreutils new "Concept Index"

Browse source 
node.  Keep previous "Index" name to work with past coreutils too.
This commit is contained in:
Kevin Ryde 2009-12-26 21:14:25 +00:00
parent 7f4d4a978d
commit 39764e7641
2 changed files with 12 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -1,3 +1,8 @@
2009-12-26 Kevin Ryde <user42@zip.com.au>
* info-look.el (sh-mode): Look for coreutils new "Concept Index"
node. Keep previous "Index" name to work with past coreutils too.
2009-12-26 Michael Albinus <michael.albinus@gmx.de>
* net/tramp.el (tramp-handle-insert-directory): Quote "'" in the

7
lisp/info-look.el
View file

@ -936,11 +936,18 @@ Return nil if there is nothing appropriate in the buffer near point."
: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"