version 1.29, 1998/05/09 21:27:16
|
version 1.31, 1998/12/08 22:02:43
|
Line 1
|
Line 1
|
;; Forth mode for Emacs |
;; Forth mode for Emacs |
;; This file is part of GForth. |
|
;; Changes by anton |
;; Copyright (C) 1995,1996,1997,1998 Free Software Foundation, Inc. |
;; This is a variant of forth.el that came with TILE. |
|
;; I left most of this stuff untouched and made just a few changes for |
;; This file is part of Gforth. |
;; the things I use (mainly indentation and syntax tables). |
|
;; So there is still a lot of work to do to adapt this to gforth. |
|
|
|
;; GForth is distributed in the hope that it will be useful, |
;; GForth is distributed in the hope that it will be useful, |
;; but WITHOUT ANY WARRANTY. No author or distributor |
;; but WITHOUT ANY WARRANTY. No author or distributor |
Line 21
|
Line 19
|
;; file named COPYING. Among other things, the copyright notice |
;; file named COPYING. Among other things, the copyright notice |
;; and this notice must be preserved on all copies. |
;; and this notice must be preserved on all copies. |
|
|
|
;; Changes by anton |
|
;; This is a variant of forth.el that came with TILE. |
|
;; I left most of this stuff untouched and made just a few changes for |
|
;; the things I use (mainly indentation and syntax tables). |
|
;; So there is still a lot of work to do to adapt this to gforth. |
|
|
;;------------------------------------------------------------------- |
;;------------------------------------------------------------------- |
;; A Forth indentation, documentation search and interaction library |
;; A Forth indentation, documentation search and interaction library |
;;------------------------------------------------------------------- |
;;------------------------------------------------------------------- |
Line 951 The region is sent terminated by a newli
|
Line 955 The region is sent terminated by a newli
|
(setq outline-level 'f-outline-level) |
(setq outline-level 'f-outline-level) |
|
|
(outline-minor-mode) |
(outline-minor-mode) |
(define-key outline-minor-mode-map '(shift up) 'hide-sublevels) |
(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 right) 'show-children) |
(define-key outline-minor-mode-map '(shift left) 'hide-subtree) |
(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 down) 'show-subtree) |
|
|
) |
) |
|
|
Line 972 The region is sent terminated by a newli
|
Line 976 The region is sent terminated by a newli
|
(require 'func-menu) |
(require 'func-menu) |
;; (define-key global-map 'f8 'function-menu) |
;; (define-key global-map 'f8 'function-menu) |
(add-hook 'find-fible-hooks 'fume-add-menubar-entry) |
(add-hook 'find-fible-hooks 'fume-add-menubar-entry) |
(define-key global-map "\C-cg" 'fume-prompt-function-goto) |
; (define-key global-map "\C-cg" 'fume-prompt-function-goto) |
(define-key global-map '(shift button3) 'mouse-function-menu) |
; (define-key global-map '(shift button3) 'mouse-function-menu) |
)) |
)) |
|
|
;; end |
;; end |