Create aliases for functions

sh.func.c

@@ -2783,7 +2783,8 @@ dofunction(Char **v, struct command *c)
 	    stderror(ERR_FUNC, Sgoal);
 	{
 	    Char funcexit[] = { 'r', 'e', 't', 'u', 'r', 'n', '\0' },
-		 *(*varvec)[2];
+		 alarg[] = { '!', '*', '\0' },
+		 *(*varvec)[4];
 	    struct Strbuf aword = Strbuf_INIT,
 			  func = Strbuf_INIT;
 	    struct wordent *histent = NULL,
@@ -2847,9 +2848,16 @@ dofunction(Char **v, struct command *c)
 	    if (!func.len)
 		return;
 	    func.s[--func.len] = 0;
-	    **(varvec = xmalloc(sizeof *varvec)) = func.s;
-	    *varvec[1] = NULL;
+	    **(varvec = xcalloc(1, sizeof *varvec -
+				(sizeof **varvec * 2))) = func.s;
 	    setq(Sgoal, *varvec, &functions, VAR_READONLY);
+	    **(varvec =
+	       xcalloc(1, sizeof *varvec)) = Strsave(str2short(bname));
+	    (*varvec)[1] = Strsave(Sgoal);
+	    (*varvec)[2] = Strsave(alarg);
+	    setq(Sgoal, *varvec, &aliases, VAR_READWRITE);
+
+	    tw_cmd_free();
 	}
     }
 }

tcsh.man.in

@@ -5530,6 +5530,9 @@ loop at the terminal you can rub it out.
 .It Ic function Ar name Xo
 .Op Ar arg No ...
 (+)
+.It Ar name Xo
+.Op Ar arg No ...
+(+)
 .Xc
 The first form of the command prints the value of all shell functions.
 .Pp
@@ -5552,6 +5555,10 @@ optionally, preceded by
 which is a list of arguments to be passed.
 Function calls may be nested or recursive,
 but too deep a nest or recursion will raise an error.
+.Pp
+The fourth form is an
+.Ic alias
+for the third form.
 .
 .El
 .Bl -tag -width 6n