Bagaimana tentang:
(defun replace-smart-quotes (beg end)
"Replace 'smart quotes' in buffer or region with ascii quotes."
(interactive "r")
(format-replace-strings '(("\x201C" . "\"")
("\x201D" . "\"")
("\x2018" . "'")
("\x2019" . "'"))
nil beg end))
Masukkan itu di Anda ~/.emacs
dan Anda harus dapat menggunakan M-x replace-smart-quotesuntuk memperbaiki semua kutipan di buffer saat ini atau wilayah yang dipilih.
Untuk menghindari memulai ulang Emacs agar ~/.emacs
perubahan diterapkan, pindahkan kursor Anda ke ujung defun
with M-C-edan evaluasi C-x C-e.
Perbarui kembali komentar:
Untuk secara otomatis melakukan ini ketika menarik (menempel), Anda dapat melakukan sesuatu seperti berikut:
(defun yank-and-replace-smart-quotes ()
"Yank (paste) and replace smart quotes from the source with ascii quotes."
(interactive)
(yank)
(replace-smart-quotes (mark) (point)))
Jika Anda ingin melakukannya saat menekan C-y, Anda dapat mengikatnya menggunakan:
(global-set-key (kbd "C-y") 'yank-and-replace-smart-quotes)
Namun mungkin lebih baik menggunakan kunci lain (mungkin C-c y) karena ini akan menggunakan beberapa yank
fungsi default .