Add support for Octave.

diff --git a/lisp/info-look.el b/lisp/info-look.el
index 10892600623990171a86c249813e2dbabc2ee779..d1d5661fb8a0a55fcb2b946cf02dc9fae2741b98 100644 (file)
--- 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)))
 \f
 (provide 'info-look)