fix-nonstandard-chars.el

   1 (defun fix-nonstandard-chars
   2   "Replace some typical nonstandard characters that result from
   3    copy-and-pasting word processor text into XHTML documents."
   4
   5   (replace-string "’" "'")
   6   (replace-string "“" "&ldquo;")
   7   (replace-string "”" "&rdquo;")
   8   (replace-string "–" "-")
   9 )