gforth/history.fs - diff

Return to history.fs CVS log

Up to [gforth] / gforth

version 1.69, 2007/12/31 18:40:24	version 1.72, 2008/07/15 16:11:49
Line 1	Line 1
\ command line edit and history support 16oct94py	\ command line edit and history support 16oct94py

\ Copyright (C) 1995,2000,2003,2004,2005,2006,2007 Free Software Foundation, Inc.	\ Copyright (C) 1995,2000,2003,2004,2005,2006,2007,2008 Free Software Foundation, Inc.

\ This file is part of Gforth.	\ This file is part of Gforth.

Line 206 require utf-8.fs	Line 206 require utf-8.fs

[IFUNDEF] #esc 27 Constant #esc [THEN]	[IFUNDEF] #esc 27 Constant #esc [THEN]

: at-deltaxy ( dx dy -- ) base @ >r decimal	: at-deltaxy ( dx dy -- )
	over 0< over 0= and IF drop abs backspaces EXIT THEN
	base @ >r decimal
?dup IF	?dup IF
#esc emit '[ emit dup abs 0 .r 0< IF 'A ELSE 'B THEN emit	#esc emit '[ emit dup abs 0 .r 0< IF 'A ELSE 'B THEN emit
THEN	THEN
Line 323 require utf-8.fs	Line 325 require utf-8.fs
['] xtab-expand #tab bindkey	['] xtab-expand #tab bindkey
['] (xins) IS insert-char	['] (xins) IS insert-char
['] kill-prefix IS everychar	['] kill-prefix IS everychar
	[ifdef] everyline
['] linew-off IS everyline	['] linew-off IS everyline
	[endif]
['] xback-restore IS back-restore	['] xback-restore IS back-restore
['] xcur-correct IS cur-correct	['] xcur-correct IS cur-correct
;	;