gforth/gforth.el - diff

Return to gforth.el CVS log

Up to [gforth] / gforth

Diff for /gforth/gforth.el between versions 1.62 and 1.64

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

version 1.62, 2002/04/18 17:07:56	version 1.64, 2002/12/21 17:27:13
Line 266 PARSED-TYPE specifies what kind of text	Line 266 PARSED-TYPE specifies what kind of text
"[ \t\n]" t name (font-lock-function-name-face . 3))	"[ \t\n]" t name (font-lock-function-name-face . 3))
(("if" "begin" "ahead" "do" "?do" "+do" "u+do" "-do" "u-do" "for"	(("if" "begin" "ahead" "do" "?do" "+do" "u+do" "-do" "u-do" "for"
"case" "of" "?dup-if" "?dup-0=-if" "then" "endif" "until"	"case" "of" "?dup-if" "?dup-0=-if" "then" "endif" "until"
"repeat" "again"	"repeat" "again" "leave" "?leave"
"loop" "+loop" "-loop" "next" "endcase" "endof" "else" "while" "try"	"loop" "+loop" "-loop" "next" "endcase" "endof" "else" "while" "try"
"recover" "endtry" "assert(" "assert0(" "assert1(" "assert2("	"recover" "endtry" "assert(" "assert0(" "assert1(" "assert2("
"assert3(" ")" "<interpretation" "<compilation" "interpretation>"	"assert3(" ")" "<interpretation" "<compilation" "interpretation>"
Line 390 TYPE might be omitted. If it's specified	Line 390 TYPE might be omitted. If it's specified
have any effect on indentation inside definitions. (:NONAME is a good	have any effect on indentation inside definitions. (:NONAME is a good
example for this kind of word).	example for this kind of word).

INDENT1 specifies how to indent a word that's located at a line's begin,	INDENT1 specifies how to indent a word that's located at the beginning
following any number of whitespaces.	of a line, following any number of whitespaces.

INDENT2 specifies how to indent words that are not located at a line's begin.	INDENT2 specifies how to indent words that are not located at the
	beginning of a line.

INDENT1 and INDENT2 are indentation specifications of the form	INDENT1 and INDENT2 are indentation specifications of the form
(SELF-INDENT . NEXT-INDENT), where SELF-INDENT is a numerical value,	(SELF-INDENT . NEXT-INDENT), where SELF-INDENT is a numerical value,
Line 416 INDENT1 and INDENT2 are indentation spec	Line 417 INDENT1 and INDENT2 are indentation spec
(0 . 2) (0 . 2) non-immediate)	(0 . 2) (0 . 2) non-immediate)
("\\S-+%$" (0 . 2) (0 . 0) non-immediate)	("\\S-+%$" (0 . 2) (0 . 0) non-immediate)
((";" ";m") (-2 . 0) (0 . -2))	((";" ";m") (-2 . 0) (0 . -2))
(("again" "repeat" "then" "endif" "endtry" "endcase" "endof"	(("again" "then" "endif" "endtry" "endcase" "endof"
"[then]" "[endif]" "[loop]" "[+loop]" "[next]"	"[then]" "[endif]" "[loop]" "[+loop]" "[next]"
"[until]" "[repeat]" "[again]" "loop")	"[until]" "[again]" "loop")
(-2 . 0) (0 . -2))	(-2 . 0) (0 . -2))
(("end-code" "end-class" "end-interface" "end-class-noname"	(("end-code" "end-class" "end-interface" "end-class-noname"
"end-interface-noname" "end-struct" "class;")	"end-interface-noname" "end-struct" "class;")
Line 426 INDENT1 and INDENT2 are indentation spec	Line 427 INDENT1 and INDENT2 are indentation spec
(("protected" "public" "how:") (-1 . 1) (0 . 0) non-immediate)	(("protected" "public" "how:") (-1 . 1) (0 . 0) non-immediate)
(("+loop" "-loop" "until") (-2 . 0) (-2 . 0))	(("+loop" "-loop" "until") (-2 . 0) (-2 . 0))
(("else" "recover" "[else]") (-2 . 2) (0 . 0))	(("else" "recover" "[else]") (-2 . 2) (0 . 0))
(("while" "does>" "[while]") (-1 . 1) (0 . 0))	(("does>") (-1 . 1) (0 . 0))
	(("while" "[while]") (-2 . 4) (0 . 2))
	(("repeat" "[repeat]") (-4 . 0) (0 . -4))
(("\\g") (-2 . 2) (0 . 0))))	(("\\g") (-2 . 2) (0 . 0))))

(defvar forth-local-indent-words nil	(defvar forth-local-indent-words nil

Removed from v.1.62
changed lines
	Added in v.1.64