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

  (interactive "P")

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