switch-quote
#\"
と #\'
を入れ替え。
(defun switch-quote (&optional (n 1)) (interactive "p") (if (> n 0) (if (looking-at "[^\"']*?\\([\"']\\)") (let ((q (match-string 1))) (goto-char (match-end 1)) (delete-backward-char) (insert (if (string= q "'") #\" #\')) (switch-quote (1- n))) (message "no quotes forward"))))