version 1.6, 1994/08/10 17:22:36
|
version 1.7, 1994/08/19 17:47:20
|
Line 72 OBS! All words in forth-negatives must b
|
Line 72 OBS! All words in forth-negatives must b
|
(global-set-key "\e " 'forth-reload) |
(global-set-key "\e " 'forth-reload) |
|
|
(define-key forth-mode-map "\M-\C-x" 'compile) |
(define-key forth-mode-map "\M-\C-x" 'compile) |
|
(define-key forth-mode-map "\C-x\\" 'comment-region) |
|
(define-key forth-mode-map "\C-x|" 'uncomment-region) |
|
(define-key forth-mode-map "\C-x~" 'forth-remove-tracers) |
(define-key forth-mode-map "\e\C-m" 'forth-send-paragraph) |
(define-key forth-mode-map "\e\C-m" 'forth-send-paragraph) |
(define-key forth-mode-map "\eo" 'forth-send-buffer) |
(define-key forth-mode-map "\eo" 'forth-send-buffer) |
(define-key forth-mode-map "\C-x\C-m" 'forth-split) |
(define-key forth-mode-map "\C-x\C-m" 'forth-split) |
(define-key forth-mode-map "\e " 'forth-reload) |
(define-key forth-mode-map "\e " 'forth-reload) |
(define-key forth-mode-map "\t" 'forth-indent-command) |
(define-key forth-mode-map "\t" 'forth-indent-command) |
(define-key forth-mode-map "\C-m" 'reindent-then-newline-and-indent) |
(define-key forth-mode-map "\C-m" 'reindent-then-newline-and-indent) |
|
(define-key forth-mode-map "\M-q" 'forth-fill-paragraph) |
|
|
(defvar forth-mode-syntax-table nil |
(defvar forth-mode-syntax-table nil |
"Syntax table in use in Forth-mode buffers.") |
"Syntax table in use in Forth-mode buffers.") |
Line 214 Variables controling documentation searc
|
Line 218 Variables controling documentation searc
|
(setq forth-mode-hook |
(setq forth-mode-hook |
'(lambda () (setq compile-command "gforth "))) |
'(lambda () (setq compile-command "gforth "))) |
|
|
|
(defun forth-fill-paragraph () |
|
"Fill comments (starting with '\'; do not fill code (block style |
|
programmers who tend to fill code won't use emacs anyway:-)." |
|
; currently only comments at the start of the line are |
|
; filled. something like lisp-fill-paragraph may be better |
|
(interactive) |
|
(save-excursion |
|
(beginning-of-line) |
|
(if (looking-at "[ \t]*\\\\[ \t]+") |
|
(progn (goto-char (match-end 0)) |
|
(set-fill-prefix) |
|
(fill-paragraph nil))))) |
|
|
(defun forth-comment-indent () |
(defun forth-comment-indent () |
(save-excursion |
(save-excursion |
(beginning-of-line) |
(beginning-of-line) |
Line 339 the input stream (comments, arguments, e
|
Line 356 the input stream (comments, arguments, e
|
|
|
;; Forth commands |
;; Forth commands |
|
|
|
(defun forth-remove-tracers () |
|
"Remove tracers of the form `~~ '. Queries the user for each occurrence." |
|
(interactive) |
|
(query-replace "~~ " "")) |
|
|
(defvar forth-program-name "gforth" |
(defvar forth-program-name "gforth" |
"*Program invoked by the `run-forth' command.") |
"*Program invoked by the `run-forth' command.") |
|
|
Line 714 The region is sent terminated by a newli
|
Line 736 The region is sent terminated by a newli
|
(error "forth-help-load-path not specified"))) |
(error "forth-help-load-path not specified"))) |
|
|
|
|
(define-key forth-mode-map "\C-hf" 'forth-documentation) |
;(define-key forth-mode-map "\C-hf" 'forth-documentation) |
|
|
(defun forth-documentation (function) |
(defun forth-documentation (function) |
"Display the full documentation of FORTH word." |
"Display the full documentation of FORTH word." |