[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
info-look rule for cfengine-mode
From: |
Dave Love |
Subject: |
info-look rule for cfengine-mode |
Date: |
Fri, 23 Apr 2004 15:01:11 +0100 |
User-agent: |
Gnus/5.1002 (Gnus v5.10.2) Emacs/21.2 (gnu/linux) |
The mapc change obviously just saves some garbage I noticed -- don't
know if it's significant.
2004-04-23 Dave Love <address@hidden>
* info-look.el: Add cfengine-mode rule.
(info-lookup-setup-mode): Use mapc.
--- info-look.el.~1.39.~ Thu Mar 18 19:43:25 2004
+++ info-look.el Fri Apr 23 14:53:34 2004
@@ -408,11 +408,11 @@
(message "No %s help available for `%s'" topic mode)
;; Recursively setup cross references.
;; But refer only to non-void modes.
- (mapcar (lambda (arg)
- (or (info-lookup->initialized topic arg)
- (info-lookup-setup-mode topic arg))
- (and (eq (info-lookup->initialized topic arg) t)
- (setq refer-modes (cons arg refer-modes))))
+ (mapc (lambda (arg)
+ (or (info-lookup->initialized topic arg)
+ (info-lookup-setup-mode topic arg))
+ (and (eq (info-lookup->initialized topic arg) t)
+ (setq refer-modes (cons arg refer-modes))))
(info-lookup->other-modes topic mode))
(setq refer-modes (nreverse refer-modes))
;; Build the full completion alist.
@@ -887,6 +887,12 @@
"awk")
((string-equal item "gawk, versions of, information
about, printing")
"gawk"))))))
+
+(info-lookup-maybe-add-help
+ :mode 'cfengine-mode
+ :regexp "[[:alnum:]_]+"
+ :doc-spec '(("(cfengine-Reference)Variable Index" nil
+ "^ - [^:]+:[ ]+\\(\\[[^=]*=[ ]+\\)?" nil)))
(provide 'info-look)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- info-look rule for cfengine-mode,
Dave Love <=