gforth/gforth.el - diff

Return to gforth.el CVS log

Up to [gforth] / gforth

version 1.24, 1997/10/04 17:33:52	version 1.26, 1998/04/14 16:43:06
Line 54 OBS! All words in forth-negatives must b	Line 54 OBS! All words in forth-negatives must b
(setq forth-zero 0)	(setq forth-zero 0)

(defvar forth-zup	(defvar forth-zup
" how: "	" how: implements "
"Contains all words which causes zero indent level to change")	"Contains all words which causes zero indent level to change")

(defvar forth-zdown	(defvar forth-zdown
Line 417 part of the screen."	Line 417 part of the screen."
(forth-split)	(forth-split)
(forth-set-runlight forth-runlight:input))	(forth-set-runlight forth-runlight:input))

	(defun run-forth-if-not ()
	(if (not (forth-process-running-p))
	(run-forth forth-program-name)))

(defun reset-forth ()	(defun reset-forth ()
"Reset the Forth process."	"Reset the Forth process."
(interactive)	(interactive)
Line 710 The region is sent terminated by a newli	Line 714 The region is sent terminated by a newli
(interactive)	(interactive)
(let ((process (get-process forth-program-name)))	(let ((process (get-process forth-program-name)))
(if process (kill-process process t)))	(if process (kill-process process t)))
(sleep-for-millisecs 100)	(sleep-for 0 100)
(forth-mode))	(forth-mode))