--- gforth/gforth.el	1999/07/24 13:07:19	1.34
+++ gforth/gforth.el	1999/10/15 23:18:20	1.35
@@ -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)