कैसा रहेगा:
(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))
इसे अपने ~/.emacs
और आप M-x replace-smart-quotesवर्तमान बफ़र या चयनित क्षेत्र में सभी उद्धरणों को ठीक करने के लिए उपयोग करने में सक्षम होना चाहिए ।
के लिए Emacs को पुन: प्रारंभ से बचने के लिए ~/.emacs
परिवर्तन प्रभावी होने में, के अंत करने के लिए अपने कर्सर ले जाने के defun
साथ M-C-eऔर यह मूल्यांकन C-x C-e।
अपडेट पुनः टिप्पणी करें:
स्वचालित रूप से ऐसा करते समय (यार्किंग) चिपकाते हुए, आप निम्न की तरह कुछ कर सकते हैं:
(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)))
यदि आप तब ऐसा करना चाहते हैं जब आप हिट करते हैं C-y, तो आप इसका उपयोग करके बांध सकते हैं:
(global-set-key (kbd "C-y") 'yank-and-replace-smart-quotes)
यह शायद एक और कुंजी का उपयोग करने के लिए एक बेहतर विचार है (शायद C-c y) क्योंकि यह कुछ डिफ़ॉल्ट yank
कार्यक्षमता का उपयोग करेगा ।