From: Stephen Eglen <stephen@gnu.org>
Date: Sun, 1 Feb 2004 13:52:33 +0000 (+0000)
Subject: Add support for maxima-mode.  Update commentary
X-Git-Tag: ttn-vms-21-2-B4~7778
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b3a3e4e1628a48e4f3ca5004d2a7a48e6cc8052c;p=emacs.git

Add support for maxima-mode.  Update commentary
because info-lookup-symbol is now bound to C-h S.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c5a5ffe16ae..f4cdf9028bd 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2004-02-01  Stephen Eglen  <stephen@gnu.org>
+
+	* info-look.el: Add support for maxima-mode.  Update commentary
+	because info-lookup-symbol is now bound to C-h S.
+
 2004-01-31  Luc Teirlinck  <teirllm@auburn.edu>
 
 	* simple.el (edit-and-eval-command): Bind print-level and
diff --git a/lisp/info-look.el b/lisp/info-look.el
index a184567ea9c..89eb1d7e411 100644
--- a/lisp/info-look.el
+++ b/lisp/info-look.el
@@ -27,7 +27,7 @@
 ;;; Commentary:
 
 ;; Really cool code to lookup info indexes.
-;; Try especially info-lookup-symbol (aka C-h TAB).
+;; Try especially info-lookup-symbol (aka C-h S).
 
 ;;; Code:
 
@@ -830,6 +830,17 @@ Return nil if there is nothing appropriate in the buffer near point."
 	      nil; "^ - [^:]+:[ ]+" don't think this prefix is useful here.
 	      nil)))
 
+(info-lookup-maybe-add-help
+ :mode 'maxima-mode
+ :ignore-case t
+ :regexp "[a-zA-Z_%]+"
+ :doc-spec '( ("(maxima)Function and Variable Index" nil 
+	       "^ - [^:]+:[ ]+\\(\\[[^=]*=[ ]+\\)?" nil)))
+
+(info-lookup-maybe-add-help
+ :mode 'inferior-maxima-mode
+ :other-modes '(maxima-mode))
+
 ;; coreutils and bash builtins overlap in places, eg. printf, so there's a
 ;; question which should come first.  Some of the coreutils descriptions are
 ;; more detailed, but if bash is usually /bin/sh on a GNU system then the