대문 최근에 바뀐 글 새소식 찾기 하우투 문제 제안

QueryExchange

(defun query-exchange (string-1 string-2)
  "Exchange string-1 and string-2 interactively. 
The user is prompted at each instance like query-replace."
  (interactive "sString 1: \nsString 2: ")
  (perform-replace
   (concat "\\(" string-1 "\\)\\|" string-2)
   '(replace-eval-replacement replace-quote 
                             (if (match-string 1) string-2 string-1))
   t t nil))