changeset 55097:5c2770cd5506

Add support for cfengine-mode. (info-lookup-setup-mode): Use dolist.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Fri, 23 Apr 2004 20:44:54 +0000
parents 4f9eee6a3018
children dedd285e197e
files lisp/info-look.el
diffstat 1 files changed, 12 insertions(+), 7 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/info-look.el	Fri Apr 23 02:11:35 2004 +0000
+++ b/lisp/info-look.el	Fri Apr 23 20:44:54 2004 +0000
@@ -1,7 +1,7 @@
 ;;; info-look.el --- major-mode-sensitive Info index lookup facility
 ;; An older version of this was known as libc.el.
 
-;; Copyright (C) 1995,96,97,98,99,2001,2003,2004  Free Software Foundation, Inc.
+;; Copyright (C) 1995,96,97,98,99,2001,03,04  Free Software Foundation, Inc.
 
 ;; Author: Ralph Schleicher <rs@nunatak.allgaeu.org>
 ;;         (did not show signs of life (Nov 2001)  -stef)
@@ -408,12 +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))))
-		  (info-lookup->other-modes topic mode))
+	  (dolist (arg (info-lookup->other-modes topic mode))
+	    (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))))
 	  (setq refer-modes (nreverse refer-modes))
 	  ;; Build the full completion alist.
 	  (setq completions
@@ -887,6 +886,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)