(defun fix-nonstandard-chars
  "Replace some typical nonstandard characters that result from
   copy-and-pasting word processor text into XHTML documents."

  (replace-string "’" "'")
  (replace-string "“" "“")
  (replace-string "”" "”")
  (replace-string "–" "-")
)