diff options
| author | rcyeske <rcyeske> | 2001-12-06 05:49:43 +0000 |
|---|---|---|
| committer | rcyeske <rcyeske> | 2001-12-06 05:49:43 +0000 |
| commit | 4906c254eb9dff1b760e0a3cb0224cb491738866 (patch) | |
| tree | 9b6c4b00db96d2b6d50641e820f74c2af9cd7a89 /contrib/genrpbindings | |
| parent | 4609f74d3b5e05f1f947b7398490f211fc039586 (diff) | |
| download | ratpoison-4906c254eb9dff1b760e0a3cb0224cb491738866.zip | |
fixed perl bug
Diffstat (limited to 'contrib/genrpbindings')
| -rwxr-xr-x | contrib/genrpbindings | 2 |
1 files changed, 1 insertions, 1 deletions
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)"; } } |