如何定義一個在傳遞參數時重複自己的函數

Question

是否有一種簡單的方法來定義一個函數，當傳遞參數時重複它自己？

舉例來說，我已經定義了以下功能

(defun swap-sign() 
    (interactive) 
    (search-forward-regexp "[+-]") 
    (if (equal (match-string 0) "-") 
     (replace-match "+") 
    (replace-match "-")) 
) 

我想C-u swap-sign調用swap-sign四倍。

我已經試過

(defun swap-sign (&optional num) 
    (interactive) 
    (let ((counter 0) 
(num (if num (string-to-number num) 0))) 
    (while (<= counter num) 
     (search-forward-regexp "[+-]") 
     (if (equal (match-string 0) "-") 
    (replace-match "+") 
(replace-match "-"))   
     (setq counter (1+ counter))))) 

但C-u swap-sign仍只運行交換號（或者更精確地說，while循環體）一次。我猜測這是因爲if num不是測試num是否爲空字符串的正確方法。

我在正確的軌道上，還是有更好/更簡單的方式來延長swap-sign？

Answer 1

(defun swap-sign (arg) 
    (interactive "p") 
    (dotimes (i arg) 
    (search-forward-regexp "[+-]") 
    (if (equal (match-string 0) "-") 
     (replace-match "+") 
     (replace-match "-")))) 

見interactive特殊形式的文檔瞭解更多信息： C-H˚FinteractiveRET。

Answer 2

您需要通過添加「p」作爲交互參數規範（M-x apropos interactive以獲取文檔）來告訴emacs期望並傳入參數。在這裏，我已經對代碼做了最小的改動，以使它能夠正常工作 - 但是請注意，您不需要let/while來進行迭代，並且arg不需要是可選的。

(defun swap-sign (&optional num) 
    (interactive "p") 
    (let ((counter 1)) 
    (while (<= counter num) 
     (search-forward-regexp "[+-]") 
     (if (equal (match-string 0) "-") 
     (replace-match "+") 
    (replace-match "-"))   
     (setq counter (1+ counter))))) 

請注意，您不需要從字符串轉換參數 - 使用「p」可告訴emacs爲您執行此操作。