edit

来自「EPIC IRC客户端。来源于IRCII客户端但做了很多性能和功能的优化。」· 代码 · 共 25 行

# The original (hack-around) was written 4/20/93
# by Mycroft![e-mail] (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![e-mail] (Jeremy Nelson)
# who hacked the $aliasctl() function into EPIC3pre5-fixit1
# which allows you to do this cleanly.
#
alias edit 
{
	^local edit.name $toupper($0)
	^local edit.stuff $aliasctl(ALIAS GET $edit.name)

	if (edit.stuff)
	{
		type ^U
		xtype -literal /alias $^\edit.name $^\edit.stuff
	}
	{
		xecho -w 0 *** Unknown alias: $edit.name
	}
}