|
|
|
@ -7,11 +7,17 @@
|
|
|
|
|
(while (re-search-forward "'" nil t)
|
|
|
|
|
(replace-match "’"))
|
|
|
|
|
(goto-char (region-beginning))
|
|
|
|
|
(while (re-search-forward "\\R\"" nil t)
|
|
|
|
|
(replace-match "\\R“"))
|
|
|
|
|
(while (re-search-forward "\n\"" nil t)
|
|
|
|
|
(replace-match "\n“"))
|
|
|
|
|
(goto-char (region-beginning))
|
|
|
|
|
(while (re-search-forward " \"" nil t)
|
|
|
|
|
(replace-match " “"))
|
|
|
|
|
(goto-char (region-beginning))
|
|
|
|
|
(while (re-search-forward "\"" nil t)
|
|
|
|
|
(replace-match "”")))
|
|
|
|
|
(replace-match "”"))
|
|
|
|
|
(goto-char (region-beginning))
|
|
|
|
|
(while (re-search-forward "“/" nil t)
|
|
|
|
|
(replace-match "/“"))
|
|
|
|
|
(goto-char (region-beginning))
|
|
|
|
|
(while (re-search-forward "/”" nil t)
|
|
|
|
|
(replace-match "”/")))
|
|
|
|
|