[xyzzy:07185] % を押すと対応する括弧に飛ぶ

["Mizuki Yoshino" <mizuki@xxxxxxxxxxxxx>]

亀井さん、ＭＬの皆さんこんにちは。
お世話になっております、みずきです。

また質問で申し訳ないのですが、
ご存知の方、教えていただけませんか。

% を押すと対応する括弧に飛ぶようにしたいのです。

そこで、.xyzzy に、以下のような記述を加えたのですが、
実行させようとしたら（括弧の上で % を押したら）
「引数が少なすぎます」と言われてしまいました。
何の引数を足せばよいのか、教えていただけないでしょうか。

(defun match-paren (arg)
  "Go to the matching parenthesis if on parenthesis otherwise insert %."
  (interactive "p")
  (cond 
    ((looking-at "[([{]") (forward-sexp 1) (backward-char))
    ((looking-at "[])}]") (forward-char) (backward-sexp 1))
    (t (self-insert-command (or arg 1)))))
(global-set-key #\% 'match-paren)

よろしくお願い致します。