互動的Emacs Lisp函數交換兩個詞互相

Question

我首次涉足的Emacs Lisp的離奇世界是一個函數，它接受兩個字符串，並與海誓山盟交換他們：

(defun swap-strings (a b) 
    "Replace all occurances of a with b and vice versa" 
    (interactive "*sFirst Swap Word: \nsSecond Swap Word: ") 
    (save-excursion 
    (while (re-search-forward (concat a "\\|" b) nil t) 
     (if (equal (match-string 0) a) 
     (replace-match b) 
    (replace-match a))))) 

這工作 - 但我m卡在以下內容：

• 如何在每次更換前提示用戶確認？ （我不能得到perform-replace工作）
• 如何逃避字符串a和b所以他們不會被解釋爲正則表達式，如果他們包含任何正則表達式字符？

編輯：我已經使用了一段時間的最後複製pastable代碼：

(defun swap-words (a b) 
    "Replace all occurances of a with b and vice versa" 
    (interactive "*sFirst Swap Word: \nsSecond Swap Word: ") 
    (save-excursion 
    (while (re-search-forward (concat (regexp-quote a) "\\|" (regexp-quote b))) 
     (if (y-or-n-p "Swap?") 
     (if (equal (match-string 0) a) 
      (replace-match (regexp-quote b)) 
     (replace-match (regexp-quote a)))) 
    ))) 

不幸的是，它並不突出像我搜索確實在頁面上即將開始的比賽。

Answer 1

使用y-or-n-p第一個：(when (y-or-n-p "Swap?") do stuff

而且regexp-quote第二：(regexp-quote your-string)

Answer 2

regexp-quote是already mentioned。

至於確認，如果你想詢問之前的用戶每個的更換，你可以選擇query-replace-regexp，這正是你想要的。

（你仍然可以處理Emacs內置的transponse functions。）