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."
19 (dolist (replacement replacements nil)
20 ;; The mark gets all fucked up here. It's easiest to
21 ;; just return to the beginning of the buffer each time.
23 (replace-string (nth 0 replacement) (nth 1 replacement))