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 c5a5ffe16ae1888a6eb89c28db94add35a55709b..f4cdf9028bdb2799faf75787f87927890d74c414 100644 (file)
--- 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 a184567ea9c753a883625e093eabadf11e34866a..89eb1d7e4110e19ecbf015aba3f56cfd16f029b3 100644 (file)
--- 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