2009-03-20から1日間の記事一覧
#\" と #\' を入れ替え。 (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 "'") #\"…