fix-nonstandard-chars.el

   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."
   4
   5   (interactive "P")
   6
   7   (replace-string "’" "'")
   8   (replace-string "“" "&ldquo;")
   9   (replace-string "”" "&rdquo;")
  10   (replace-string "–" "-")
  11   (replace-string "—" "&mdash;")
  12 )