diff options
| author | Stephen Eglen <stephen@gnu.org> | 1998-09-29 08:45:12 +0000 |
|---|---|---|
| committer | Stephen Eglen <stephen@gnu.org> | 1998-09-29 08:45:12 +0000 |
| commit | 054e5c2010ca91e68c1ecfba6dd4da9b3416a0d9 (patch) | |
| tree | a4bf47bd799ee9808f1b89a4d62c6f7d8b227dea /lisp/info-look.el | |
| parent | 1e5a443809ef0eea5cd448a98a83932501499b02 (diff) | |
| download | emacs-054e5c2010ca91e68c1ecfba6dd4da9b3416a0d9.tar.gz | |
Add support for Octave.
Diffstat (limited to 'lisp/info-look.el')
| -rw-r--r-- | lisp/info-look.el | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/lisp/info-look.el b/lisp/info-look.el index 10892600623..d1d5661fb8a 100644 --- a/lisp/info-look.el +++ b/lisp/info-look.el @@ -752,6 +752,20 @@ Return nil if there is nothing appropriate." :doc-spec '(("(r5rs)Index" nil "^[ \t]+- [^:]+:[ \t]*" "\\b"))) +(info-lookup-maybe-add-help + :mode 'octave-mode + :regexp "[_a-zA-Z0-9]+" + :doc-spec '(("(octave)Function Index" nil "^ - [^:]+:[ ]+" nil) + ("(octave)Variable Index" nil "^ - [^:]+:[ ]+" nil) + ;; Catch lines of the form "xyz statement" + ("(octave)Concept Index" + (lambda (item) + (cond + ((string-match "^\\([A-Z]+\\) statement\\b" item) + (match-string 1 item)) + (t nil))) + nil; "^ - [^:]+:[ ]+" don't think this prefix is useful here. + nil))) (provide 'info-look) |