Add support for maxima-mode. Update commentary

because info-lookup-symbol is now bound to C-h S.

2 files changed, 17 insertions, 1 deletions

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