X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~mdw/git/ircbot/blobdiff_plain/49a4dc8f0c0c5749f2a5a04d298ab24a7263808c..37ad12bae5d4079ec854f36acc4b0e3b56cc6f0a:/parsecmd.tcl

diff --git a/parsecmd.tcl b/parsecmd.tcl
index 6c6f81d..925eed3 100644
--- a/parsecmd.tcl
+++ b/parsecmd.tcl
@@ -70,6 +70,10 @@ proc def_ucmd {cmdname body} {
     proc ucmd/$cmdname {p dest} "    upvar 1 text text\n$body"
 }
 
+proc def_ucmd_alias {alias canon} {
+    proc ucmd/$alias {p dest} "    uplevel 1 \[list ucmd/$canon \$p \$dest\]\n"
+}
+
 proc ucmdr {priv pub args} {
     return -code return [concat [list $priv $pub] $args]
 }