# The original (hack-around) was written 4/20/93
# by Mycroft!mycroft@gnu.ai.mit.edu (Charles Hannum)
# who deserves bonus points for coming up with a clever way
# to get around stupid limitations in the client
#
# This version was written 12/3/95
# by hop!jnelson@acronet.net (Jeremy Nelson)
# who hacked the $aliasctl() function into EPIC3pre5-fixit1
# which allows you to do this cleanly.
# (Later updated to use symbolctl for epic5)
#
alias edit 
{
	^local edit.name $toupper($0)
	^local edit.stuff $symbolctl(GET $edit.name 1 ALIAS VALUE)

	if (edit.stuff) {
		parsekey erase_line
		xtype -literal /alias $edit.name $edit.stuff
	} else {
		xecho -b -c Unknown alias: $edit.name
	}
}
