From: Stephen Eglen <stephen@gnu.org>
Date: Tue, 29 Sep 1998 08:45:12 +0000 (+0000)
Subject: Add support for Octave.
X-Git-Tag: emacs-20.4~1603
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=054e5c2010ca91e68c1ecfba6dd4da9b3416a0d9;p=emacs.git

Add support for Octave.
---

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)