fixed perl bug

2 files changed, 13 insertions, 1 deletions

diff --git a/ChangeLog b/ChangeLog
index 65b5670..056da29 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,15 @@
+2001-12-05  Ryan C Yeske  <rcyeske@sfu.ca>
+
+	* contrib/genrpbindings: Fix perl typos.  From Doug Kearns
+	<djkea2@mugc.its.monash.edu.au>.
+
+2001-12-04  Ryan C Yeske  <rcyeske@sfu.ca>
+
+	* contrib/genrpbindings: New file.
+
+	* src/actions.c (user_commands): Add markup for genrpbindings.
+	(cmd_getenv): New function.
+
 2001-10-18  shawn  <sabetts@vcn.bc.ca>
 
 	* src/split.c (show_frame_indicator): call XSync after clearing the window.
diff --git a/contrib/genrpbindings b/contrib/genrpbindings
index 021d854..250e03d 100755
--- a/contrib/genrpbindings
+++ b/contrib/genrpbindings
@@ -74,7 +74,7 @@ while (<ACTIONS_C>) {
 	    last if (m!/\*\@end !);
 	    if (/{\"(.+)\".+},/) {
 	      $nbindings++;
-	      print PERL "sub abort { return rp_cmd (\"$1\"); }";
+	      print PERL "sub $1 { return rp_cmd (\"$1\", \@_); }";
 	      print ELISP "(defun-ratpoison $1)";
 	    }
 	}