;;; If user's init.p not compiled, then compile it
vars initfiledone;
unless initfiledone == true then
    trycompile('$poplib/init.p') ->
endunless;

false -> vedscrollscreen;

global vars
	vednosunviewkeys = true;	;;; change if using Sunview keys on left

trycompile('$poplib/vedfiletypes.p') ->;

;;; Next command makes VED mouse work, but then requires SHIFT
;;; key for select and paste in xterm window. Make true if desired
;;; See HELP vedxgotomouse
global vars vedgotomouse = false;


unless sysfileok('$poplib') = sysfileok('~') then
 	[^^vedsearchlist '$poplib'] -> vedsearchlist
endunless;

;;; turn on autosaving
uses ved_autosave;
0 -> vedautosave_min_write;     ;;; Minimum number of changes required for save
5 -> vedautosave_minutes;       ;;; Frequency of saving
5000 -> vedautowrite;			;;; number of changes since last write

;;; See HELP VEDEXPAND for the following
;;; `^` -> vedexpandchar;

;;; define a procedure to run if poplog is run in an xterm window
define lconstant setupxterm();
	useslib("popxlib");
	useslib("vedxterm");
	compile([vedxterm();]);
	vedsetkey('\^L', "vedxrefresh");

	;;; speed up xterm compared with VT100
	false -> vednocharinsert;
	false -> vednochardelete;
	'\^[[P' -> vvedscreendeletechar;
	'\^[[h' -> vvedscreeninsertmode;
	'\^[[l' -> vvedscreenovermode;
	'\^[[@' -> vvedscreeninsertchar;
enddefine;

define vedinit();
    setupxterm();

    ;;; garbage collect this procedure after use.
    identfn -> vedinit;

enddefine;