* src/actions.h: new prototype compat

* src/actions.c (initialize_default_keybindings): move def* aliases to cmd_compat
(cmd_compat): new function

1 files changed, 29 insertions, 19 deletions

diff --git a/src/actions.c b/src/actions.c
index 6d28540..076c186 100644
--- a/src/actions.c
+++ b/src/actions.c
@@ -322,6 +322,7 @@ init_user_commands()
   add_command ("putsel",	cmd_putsel,	1, 1, 1,
 	       "Text: ", arg_RAW);
   add_command ("getsel",	cmd_getsel,	0, 0, 0);
+  add_command ("compat",	cmd_compat,	0, 0, 0);
   /*@end (tag required for genrpbindings) */
 
   /* Commands to help debug ratpoison. */
@@ -676,25 +677,6 @@ initialize_default_keybindings (void)
   add_alias ("unbind", "undefinekey " ROOT_KEYMAP);
   add_alias ("bind", "definekey " ROOT_KEYMAP);
   add_alias ("split", "vsplit");
-  add_alias ("defresizeunit", "set resizeunit");
-  add_alias ("defwingravity", "set wingravity");
-  add_alias ("deftransgravity", "set transgravity");
-  add_alias ("defmaxsizegravity", "set maxsizegravity");
-  add_alias ("defbargravity", "set bargravity");
-  add_alias ("deffont", "set font");
-  add_alias ("defpadding", "set padding");
-  add_alias ("defborder", "set border");
-  add_alias ("defbarborder", "set barborder");
-  add_alias ("definputwidth", "set inputwidth");
-  add_alias ("defwaitcursor", "set waitcursor");
-  add_alias ("defwinfmt", "set winfmt");
-  add_alias ("defwinname", "set winname");
-  add_alias ("deffgcolor", "set fgcolor");
-  add_alias ("defbgcolor", "set bgcolor");
-  add_alias ("defbarpadding", "set barpadding");
-  add_alias ("defwinliststyle", "set winliststyle");
-  add_alias ("defframesels", "set framesels");
-  add_alias ("defmaxundos", "set maxundos");
 }
 
 static cmdret *
@@ -5188,3 +5170,31 @@ cmd_getsel (int interactive, struct cmdarg **args)
   free (sel);
   return ret;
 }
+
+/* This is a command that restores old commands that have been
+   recently depricated. */
+cmdret *
+cmd_compat (int interactive, struct cmdarg **args)
+{
+  add_alias ("defresizeunit", "set resizeunit");
+  add_alias ("defwingravity", "set wingravity");
+  add_alias ("deftransgravity", "set transgravity");
+  add_alias ("defmaxsizegravity", "set maxsizegravity");
+  add_alias ("defbargravity", "set bargravity");
+  add_alias ("deffont", "set font");
+  add_alias ("defpadding", "set padding");
+  add_alias ("defborder", "set border");
+  add_alias ("defbarborder", "set barborder");
+  add_alias ("definputwidth", "set inputwidth");
+  add_alias ("defwaitcursor", "set waitcursor");
+  add_alias ("defwinfmt", "set winfmt");
+  add_alias ("defwinname", "set winname");
+  add_alias ("deffgcolor", "set fgcolor");
+  add_alias ("defbgcolor", "set bgcolor");
+  add_alias ("defbarpadding", "set barpadding");
+  add_alias ("defwinliststyle", "set winliststyle");
+  add_alias ("defframesels", "set framesels");
+  add_alias ("defmaxundos", "set maxundos");
+
+  return cmdret_new (RET_SUCCESS, NULL);
+}