--- gforth/gforth.el	1998/05/09 21:27:16	1.29
+++ gforth/gforth.el	1998/05/13 16:47:23	1.30
@@ -951,10 +951,10 @@ The region is sent terminated by a newli
    (setq outline-level 'f-outline-level)
 
    (outline-minor-mode)
-(define-key outline-minor-mode-map '(shift up) 'hide-sublevels)
-(define-key outline-minor-mode-map '(shift right) 'show-children)
-(define-key outline-minor-mode-map '(shift left) 'hide-subtree)
-(define-key outline-minor-mode-map '(shift down) 'show-subtree)
+   (define-key outline-minor-mode-map '(shift up) 'hide-sublevels)
+   (define-key outline-minor-mode-map '(shift right) 'show-children)
+   (define-key outline-minor-mode-map '(shift left) 'hide-subtree)
+   (define-key outline-minor-mode-map '(shift down) 'show-subtree)
 
 )
 
@@ -972,8 +972,8 @@ The region is sent terminated by a newli
        (require 'func-menu)
 ;;       (define-key global-map 'f8 'function-menu)
        (add-hook 'find-fible-hooks 'fume-add-menubar-entry)
-       (define-key global-map "\C-cg" 'fume-prompt-function-goto)
-       (define-key global-map '(shift button3) 'mouse-function-menu)
+;       (define-key global-map "\C-cg" 'fume-prompt-function-goto)
+;       (define-key global-map '(shift button3) 'mouse-function-menu)
 ))
 
 ;; end