本日の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)