gforth/gforth.el - diff

Return to gforth.el CVS log

Up to [gforth] / gforth

Diff for /gforth/gforth.el between versions 1.6 and 1.10

version 1.6, 1994/08/10 17:22:36	version 1.10, 1995/01/25 18:53:48
Line 71 OBS! All words in forth-negatives must b	Line 71 OBS! All words in forth-negatives must b
(global-set-key "\C-x\C-m" 'forth-split)	(global-set-key "\C-x\C-m" 'forth-split)
(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~" '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 139 OBS! All words in forth-negatives must b	Line 142 OBS! All words in forth-negatives must b
(defun forth-mode ()	(defun forth-mode ()
"	"
Major mode for editing Forth code. Tab indents for Forth code. Comments	Major mode for editing Forth code. Tab indents for Forth code. Comments
are delimited with ( ). Paragraphs are separated by blank lines only.	are delimited with \\ and newline. Paragraphs are separated by blank lines
Delete converts tabs to spaces as it moves back.	only. Delete converts tabs to spaces as it moves back.
\\{forth-mode-map}	\\{forth-mode-map}
Forth-split	Forth-split
Positions the current buffer on top and a forth-interaction window	Positions the current buffer on top and a forth-interaction window
Line 212 Variables controling documentation searc	Line 215 Variables controling documentation searc
(run-hooks 'forth-mode-hook))	(run-hooks 'forth-mode-hook))

(setq forth-mode-hook	(setq forth-mode-hook
'(lambda () (setq compile-command "gforth ")))	'(lambda ()
	(make-local-variable 'compile-command)
	(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. We cannot use
	; fill-paragraph, because it removes the \ from the first comment
	; line. Therefore we have to look for the first line of the comment
	; and use fill-region.
	(interactive)
	(save-excursion
	(beginning-of-line)
	(while (and
	(= (forward-line -1) 0)
	(looking-at "[ \t]*\\\\[ \t]+")))
	(if (not (looking-at "[ \t]*\\\\[ \t]+"))
	(forward-line 1))
	(let ((from (point))
	(to (save-excursion (forward-paragraph) (point))))
	(if (looking-at "[ \t]*\\\\[ \t]+")
	(progn (goto-char (match-end 0))
	(set-fill-prefix)
	(fill-region from to nil))))))

(defun forth-comment-indent ()	(defun forth-comment-indent ()
(save-excursion	(save-excursion
Line 339 the input stream (comments, arguments, e	Line 367 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 409 When called, the current buffer will be	Line 442 When called, the current buffer will be
(defvar forth-signal-death-message nil	(defvar forth-signal-death-message nil
"If non-nil, causes a message to be generated when the Forth process dies.")	"If non-nil, causes a message to be generated when the Forth process dies.")

(defvar forth-percent-height 62	(defvar forth-percent-height 50
"Tells run-forth how high the upper window should be in percent.")	"Tells run-forth how high the upper window should be in percent.")

(defconst forth-runlight:input ?I	(defconst forth-runlight:input ?I
Line 714 The region is sent terminated by a newli	Line 747 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."
Line 818 The region is sent terminated by a newli	Line 851 The region is sent terminated by a newli
res))	res))


(define-key forth-mode-map "\C-x\C-e" 'forth-compile)	(define-key forth-mode-map "\C-x\C-e" 'compile)
(define-key forth-mode-map "\C-x\C-n" 'next-error)	(define-key forth-mode-map "\C-x\C-n" 'next-error)
(require 'compile "compile")	(require 'compile "compile")

(defvar forth-compile-command "gforth ")	(defvar forth-compile-command "gforth ")
(defvar forth-compilation-window-percent-height 30)	;(defvar forth-compilation-window-percent-height 30)

(defun forth-compile (command)	(defun forth-compile (command)
(interactive (list (setq forth-compile-command (read-string "Compile command: " forth-compile-command))))	(interactive (list (setq forth-compile-command (read-string "Compile command: " forth-compile-command))))

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.6
changed lines
	Added in v.1.10