本日のemacs小技
Emacsの置換で通常の置換と正規表現の置換を切り替える設定。C-uで正規表現の置換になる。
; Replacing (defun select-query-replace (enable-regexp) (interactive "P") (let ((args (query-replace-read-args (if enable-regexp "Query replace regexp" "Query replace") (if enable-regexp t nil)))) (if enable-regexp (query-replace-regexp (nth 0 args) (nth 1 args)) (query-replace (nth 0 args) (nth 1 args))))) (global-set-key "\M-%" 'select-query-replace)