function - Emacs:函数中的通用参数 (C-u)

Question

我想在函数(例如，正则表达式)中使用 C-u，其中使用 C-u 调用它会产生不同的效果。我怎样才能在 Emacs 中做到这一点？该文档没有展示如何使用 Emacs 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
    )
  )

希望有帮助。