info-look rule for cfengine-mode

[Dave Love]

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)