гадюки-вставка неверное число ошибок аргументов

Question

У меня есть следующие функции и в моем данное сочетание клавиш файла .viper:

(defun th-change-to-regexp (regexp) 
    (interactive "s") 
    (kill-region (point) (progn 
         (re-search-forward regexp nil nil 1) 
         (- (point) 1))) 
    (backward-char) 
    (viper-insert)) 

(define-key viper-vi-global-user-map "ct" 'th-change-to-regexp) 

Я получаю следующее сообщение об ошибке по команде гадюки-вставки, я думаю -

Wrong number of arguments: #[(arg) "Ä \210^H\211^X\204^M^@Å\202(^@^H:\203'@\203^^^@H 
@Æ\232\203\"^@Å\202(^@^H@\202(^@^H)^YÇÈ ÉÊ\211\211¯^F!\210Ë=\203S@ \211^[ÌV 
\205O^@ÊÍÎ\217\210^KS\211^S\202>^@)\202U^@Ï)\207" 
[arg val viper-intermediate-command count viper-set-complex-command-for-undo 1 (nil) 
viper-set-destructive-command viper-insert 114 ...] 8 ("/contrib/projects/emacs23/32bit 
/share/emacs/23.1/lisp/emulation/viper-cmd.elc" . 54774) "P"], 0 

Благодаря

Answer 1

Я не пользователь гадюки, так что я могу быть абсолютно об этом, но viper-insert принимает 1 обязательный аргумент, и вы не давая ему никаких аргументов. Вы можете отправить ему текущий префиксный аргумент

(viper-insert current-prefix-arg)