Emacsa Universal argument (C-U) w funkcji

Question

ja jak używać C-u w funkcji (na przykład, wyrażenie regularne), w którym wywołanie to C u inny efekt. Jak mogę to zrobić w Emacs? Dokumentacja nie pokazuje, jak to zrobić z Emacsem Lisp.

(defun test() 
    (interactive) 
    (align-regexp)) ; I would like to add the C-u prefix to this. 

Answer 1

(defun my/test() 
    (interactive) 
    (let ((current-prefix-arg 4)) ;; emulate C-u 
    (call-interactively 'align-regexp) ;; invoke align-regexp interactively 
    ) 
) 

nadzieję, że pomoże.