gforth/gforth.el - diff

Return to gforth.el CVS log

Up to [gforth] / gforth

Diff for /gforth/gforth.el between versions 1.80 and 1.84

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

version 1.80, 2010/09/04 10:15:57	version 1.84, 2010/12/31 18:09:02
Line 1	Line 1
;;; gforth.el --- major mode for editing (G)Forth sources	;;; gforth.el --- major mode for editing (G)Forth sources

;; Copyright (C) 1995,1996,1997,1998,2000,2001,2003,2004,2007,2008 Free Software Foundation, Inc.	;; Copyright (C) 1995,1996,1997,1998,2000,2001,2003,2004,2007,2008,2010 Free Software Foundation, Inc.

;; This file is part of Gforth.	;; This file is part of Gforth.

Line 256 PARSED-TYPE specifies what kind of text	Line 256 PARSED-TYPE specifies what kind of text
"[ \t\n]" t string (font-lock-string-face . 1))	"[ \t\n]" t string (font-lock-string-face . 1))
(("char") non-immediate (font-lock-keyword-face . 1)	(("char") non-immediate (font-lock-keyword-face . 1)
"[ \t\n]" t string (font-lock-string-face . 1))	"[ \t\n]" t string (font-lock-string-face . 1))
(("s\"" "c\"") immediate (font-lock-string-face . 1)	("'.'?" non-immediate (font-lock-string-face . 1))
	(("s\"" "c\"" "s\\\"") immediate (font-lock-string-face . 1)
"[\"\n]" nil string (font-lock-string-face . 1))	"[\"\n]" nil string (font-lock-string-face . 1))
((".\"") compile-only (font-lock-string-face . 1)	((".\"" ".\\\"") compile-only (font-lock-string-face . 1)
"[\"\n]" nil string (font-lock-string-face . 1))	"[\"\n]" nil string (font-lock-string-face . 1))
(("abort\"") compile-only (font-lock-keyword-face . 1)	(("abort\"") compile-only (font-lock-keyword-face . 1)
"[\"\n]" nil string (font-lock-string-face . 1))	"[\"\n]" nil string (font-lock-string-face . 1))
Line 306 PARSED-TYPE specifies what kind of text	Line 307 PARSED-TYPE specifies what kind of text

(("create" "variable" "constant" "2variable" "2constant" "fvariable"	(("create" "variable" "constant" "2variable" "2constant" "fvariable"
"fconstant" "value" "field" "user" "vocabulary"	"fconstant" "value" "field" "user" "vocabulary"
"create-interpret/compile")	"create-interpret/compile" "interpret/compile:")
non-immediate (font-lock-type-face . 2)	non-immediate (font-lock-type-face . 2)
"[ \t\n]" t name (font-lock-variable-name-face . 3))	"[ \t\n]" t name (font-lock-variable-name-face . 3))
("\\S-+%" non-immediate (font-lock-type-face . 2))	("\\S-+%" non-immediate (font-lock-type-face . 2))
Line 760 End:\" construct).")	Line 761 End:\" construct).")
(defvar forth-defining-words	(defvar forth-defining-words
'("VARIABLE" "CONSTANT" "2VARIABLE" "2CONSTANT" "FVARIABLE" "FCONSTANT"	'("VARIABLE" "CONSTANT" "2VARIABLE" "2CONSTANT" "FVARIABLE" "FCONSTANT"
"USER" "VALUE" "field" "end-struct" "VOCABULARY" "CREATE" ":" "CODE"	"USER" "VALUE" "field" "end-struct" "VOCABULARY" "CREATE" ":" "CODE"
"DEFER" "ALIAS")	"DEFER" "ALIAS" "interpret/compile:")
"List of words, that define the following word.	"List of words, that define the following word.
Used for imenu index generation.")	Used for imenu index generation.")

Line 1115 exceeds 64 characters."	Line 1116 exceeds 64 characters."
(define-key forth-mode-map "\C-x\\" 'comment-region)	(define-key forth-mode-map "\C-x\\" 'comment-region)
(define-key forth-mode-map "\C-x~" 'forth-remove-tracers)	(define-key forth-mode-map "\C-x~" 'forth-remove-tracers)
(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 "\t" 'forth-indent-command)	(define-key forth-mode-map "\t" 'forth-indent-command)
(define-key forth-mode-map "\C-m" 'forth-reindent-then-newline-and-indent)	(define-key forth-mode-map "\C-m" 'forth-reindent-then-newline-and-indent)
(define-key forth-mode-map "\M-q" 'forth-fill-paragraph)	(define-key forth-mode-map "\M-q" 'forth-fill-paragraph)

Removed from v.1.80
changed lines
	Added in v.1.84