--- gforth/gforth.el	1999/07/08 09:46:42	1.33
+++ gforth/gforth.el	1999/10/15 23:18:20	1.35
@@ -41,19 +41,19 @@
 
 (defvar forth-positives
   " : :noname m: :m code interpretation: ;code does> begin do ?do +do -do u+do u-do while if ?dup-if ?dup-0=-if else case of struct [if] [ifdef] [ifundef] [else] with public: private: class "
-  "Contains all words which will cause the indent-level to be incremented
+  "*Contains all words which will cause the indent-level to be incremented
 on the next line.
 OBS! All words in forth-positives must be surrounded by spaces.")
 
 (defvar forth-negatives
   " ; ;m end-code ;code does> until repeat while +loop loop -loop s+loop else then endif again endcase endof end-struct [then] [else] [endif] endwith end-class class; how: "
-  "Contains all words which will cause the indent-level to be decremented
+  "*Contains all words which will cause the indent-level to be decremented
 on the current line.
 OBS! All words in forth-negatives must be surrounded by spaces.")
 
 (defvar forth-zeroes
   " : :noname code interpretation: public: private: how: implements class class; "
-  "Contains all words which causes the indent to go to zero")
+  "*Contains all words which causes the indent to go to zero")
 
 (setq forth-zero 0)
 
@@ -92,6 +92,16 @@ OBS! All words in forth-negatives must b
 (define-key forth-mode-map "\M-q" 'forth-fill-paragraph)
 (define-key forth-mode-map "\e." 'forth-find-tag)
 
+;setup for C-h C-i to work
+(if (fboundp 'info-lookup-add-help)
+    (info-lookup-add-help
+     :topic 'symbol
+     :mode 'forth-mode
+     :regexp "[^ 	
+]+"
+     :ignore-case t
+     :doc-spec '(("(gforth)Name Index" nil "`" "'  "))))
+
 (load "etags")
 
 (defun forth-find-tag (tagname &optional next-p regexp-p)