@NEWMASTER@ C.unix/com/mkvedemacs aledm Thu Jun 11 19:43:18 GMT 1987
42d
20c
if syssave('$poplocalbin/vedemacs.psv') then                  
.
18c
lib vedemacs;
.
@NEWMASTER@ aarons Wed Aug 9 01:35:06 BST 1989
43,44d
25c
    unless poparglist == [] do
.
20,22c
if syssave('$poplocalbin/vedemacs.psv') then
    pr(popheader); pr(newline);
.
2,3c
# --- Copyright University of Sussex 1986.  All rights reserved. ---------
# File:            $usepop/master/C.unix/com/mkvedemacs
.
@NEWMASTER@ johnw Wed Jan 24 17:57:16 GMT 1990
9c
# make a saved image for VED with LIB VEDEMACS using $popsys/pop11 and store
# it in $poplocalbin

cd $usepop/pop      # no init.p vedinit.p etc
poplib=""
export poplib

$popsys/pop11 << \\\\

lib vedemacs
false -> popgctrace;
if sys_lock_system('$poplocalbin/vedemacs.psv', true, 'VEDEMACS') then
	printf(pop_system_version,popheader,'%p\n%p\n');
	erase(trycompile('$poplib/init.p') or trycompile('init.p'));
	true -> pop_first_setpop;
	setpop -> interrupt;
	unless poparglist == [] then
		if member(hd(poparglist), ['ref' 'help' 'teach' 'doc'])
		and length(poparglist) > 1 then
			popval(consword(hd(poparglist)) :: (tl(poparglist) ))
		else
			popval([ved ^^poparglist ])
		endif
	endunless;
	setpop();
endif;
sysexit();

\\

rm -f $poplocalbin/vedemacs.psv-
echo "vedemacs.psv done"

# --- Revision History ---------------------------------------------------
# --- Aaron Sloman, Aug  9 1989 Changed to use sys_lock_system.
#       Doesn't run vedinit.p till you run ved.
# --- Aled Morris, Jun 11 1987 removed semicolon after "lib vedemacs"
# --- Aaron Sloman, Aug 15 1986 fixed environment
.
7c
# Related Files:   LIB * VEDEMACS
.
4,5c
# Purpose:         make a saved image with lib vedemacs
# Author:          Mark Rubinstein, May  7 1986 (see revisions)
.
2c
# --- Copyright University of Sussex 1989.  All rights reserved. ---------
.
@NEWMASTER@ robd Mon May 20 15:45:09 BST 1991
9,12c
$popsys/pop11 mkvedimage $poplocalbin/vedemacs.psv vedemacs
.
7c
# Related Files:    LIB * MKVEDIMAGE
.
5c
# Author:           John Williams, Jan 24 1990
.
2c
# --- Copyright University of Sussex 1990. All rights reserved. ----------
.
@NEWMASTER@ johng Fri May 24 23:57:26 BST 1991
12d
9c
$popsys/pop11 mkimage -ved $poplocalbin/vedemacs.psv vedemacs
.
@NEWMASTER@ robd Wed May 29 12:41:02 BST 1991
13d
10d
