From: Stefan Monnier Date: Fri, 23 Apr 2004 20:44:54 +0000 (+0000) Subject: Add support for cfengine-mode. X-Git-Tag: ttn-vms-21-2-B4~6636 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=538996c7cd289e7e1d28d71b572023c463d17a7f;p=emacs.git Add support for cfengine-mode. (info-lookup-setup-mode): Use dolist. --- diff --git a/lisp/info-look.el b/lisp/info-look.el index 35138121838..8e09f326019 100644 --- a/lisp/info-look.el +++ b/lisp/info-look.el @@ -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 ;; (did not show signs of life (Nov 2001) -stef) @@ -408,12 +408,11 @@ If optional argument QUERY is non-nil, query for the help mode." (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 @@ Return nil if there is nothing appropriate in the buffer near point." "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)