1 (defun fix-nonstandard-chars (context)
2 "Replace some typical nonstandard characters that result from
3 copy-and-pasting word processor text into XHTML documents."
7 (setq replacements '( ("’" "'")
13 (dolist (replacement replacements nil)
14 ;; The mark gets all fucked up here. It's easiest to
15 ;; just return to the beginning of the buffer each time.
17 (replace-string (nth 0 replacement) (nth 1 replacement))