version 1.69, 2003/08/04 21:21:13
|
version 1.70, 2004/04/08 10:42:26
|
Line 434 INDENT1 and INDENT2 are indentation spec
|
Line 434 INDENT1 and INDENT2 are indentation spec
|
(("else" "recover" "[else]") (-2 . 2) (0 . 0)) |
(("else" "recover" "[else]") (-2 . 2) (0 . 0)) |
(("does>") (-1 . 1) (0 . 0)) |
(("does>") (-1 . 1) (0 . 0)) |
(("while" "[while]") (-2 . 4) (0 . 2)) |
(("while" "[while]") (-2 . 4) (0 . 2)) |
(("repeat" "[repeat]") (-4 . 0) (0 . -4)) |
(("repeat" "[repeat]") (-4 . 0) (0 . -4)))) |
(("\\g") (-2 . 2) (0 . 0)))) |
|
|
|
(defvar forth-local-indent-words nil |
(defvar forth-local-indent-words nil |
"List of Forth words to prepend to `forth-indent-words', when a forth-mode |
"List of Forth words to prepend to `forth-indent-words', when a forth-mode |
Line 827 Used for imenu index generation.")
|
Line 826 Used for imenu index generation.")
|
|
|
;; Return the column increment, that the current line of forth code does to |
;; Return the column increment, that the current line of forth code does to |
;; the current or following lines. `which' specifies which indentation values |
;; the current or following lines. `which' specifies which indentation values |
;; to use. 0 means the indentation of following lines relative to current |
;; to use. 1 means the indentation of following lines relative to current |
;; line, 1 means the indentation of the current line relative to the previous |
;; line, 0 means the indentation of the current line relative to the previous |
;; line. Return `nil', if there are no indentation words on the current line. |
;; line. Return `nil', if there are no indentation words on the current line. |
(defun forth-get-column-incr (which) |
(defun forth-get-column-incr (which) |
(save-excursion |
(save-excursion |
Line 1680 next one.")
|
Line 1679 next one.")
|
forth-source-modes t)) ; T because LOAD |
forth-source-modes t)) ; T because LOAD |
; needs an exact name |
; needs an exact name |
(comint-check-source file-name) ; Check to see if buffer needs saved. |
(comint-check-source file-name) ; Check to see if buffer needs saved. |
(setq forth-prev-l/c-dir/file (cons (file-name-directory file-name) |
(setq forth-prev-l/c-dir/file (cons (file-name-directory file-name) |
(file-name-nondirectory file-name))) |
(file-name-nondirectory file-name))) |
(comint-send-string (forth-proc) (concat "(load \"" |
(comint-send-string (forth-proc) |
file-name |
(concat "s\" " file-name "\" included\n"))) |
"\"\)\n"))) |
|
|
|
|
|
|
|
(defvar forth-process-buffer nil "*The current Forth process buffer. |
(defvar forth-process-buffer nil "*The current Forth process buffer. |