diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2004-04-29 19:09:20 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2004-04-29 19:09:20 +0000 |
| commit | 7830c895a2d36ef47f38f9284c96a506731f3981 (patch) | |
| tree | 8ee80e3271aabf1d782871af92c0b02205ff1bf6 /lisp/info-look.el | |
| parent | 0ff7f01e8552662a532dae25c6965f7ba98f91ae (diff) | |
| download | emacs-7830c895a2d36ef47f38f9284c96a506731f3981.tar.gz | |
(cfengine-mode): Accept a terminal ().
Diffstat (limited to 'lisp/info-look.el')
| -rw-r--r-- | lisp/info-look.el | 16 |
1 files changed, 13 insertions, 3 deletions
diff --git a/lisp/info-look.el b/lisp/info-look.el index 8e09f326019..644ee3d6c20 100644 --- a/lisp/info-look.el +++ b/lisp/info-look.el @@ -887,11 +887,21 @@ Return nil if there is nothing appropriate in the buffer near point." ((string-equal item "gawk, versions of, information about, printing") "gawk")))))) +;; This misses some things which occur as node names but not in the +;; index. Unfortunately it also picks up the wrong one of multiple +;; entries for the same term in some cases. --fx (info-lookup-maybe-add-help :mode 'cfengine-mode - :regexp "[[:alnum:]_]+" - :doc-spec '(("(cfengine-Reference)Variable Index" nil - "^ - [^:]+:[ ]+\\(\\[[^=]*=[ ]+\\)?" nil))) + :regexp "[[:alnum:]_]+\\(:?()\\)?" + :doc-spec '(("(cfengine-Reference)Variable Index" + (lambda (item) + ;; Index entries may be like `IsPlain()' + (if (string-match "\\([[:alnum:]_]+\\)()" item) + (match-string 1 item) + item)) + ;; This gets functions in evaluated classes. Other + ;; possible patterns don't seem to work too well. + "`" "("))) (provide 'info-look) |