xyzzyで現在行をコメントアウトしたり戻したりする設定

Ctrl+/で行頭に//を追加したり戻したり。
実行後に何故かカーソルが先頭に移動するけど私は元気です。
とりあえず動けば良いよね。
↑頂いたコメント通り修正したら飛ばなくなりました。

(global-set-key '#\C-/ #'(lambda () (interactive "p")
                           (save-excursion
                             (save-restriction
                               (narrow-to-region
                                (progn (beginning-of-line) (point))
                                (progn (end-of-line) (point)))
                               (beginning-of-line)
;                               (if (scan-buffer "^[ \t]*// ?\\(.*\\)$" :regexp t)
;                                   (replace-match "\\1")
                               (if (scan-buffer "^[ \t]*// ?" :regexp t)
                                   (replace-match "")
                                 (insert "// "))))))