Added a new function, fix-nonstandard-chars.

[emacs.d.git] / fix-nonstandard-chars.el

diff --git a/fix-nonstandard-chars.el b/fix-nonstandard-chars.el
new file mode 100644 (file)
index 0000000..e5c3464
--- /dev/null
+++ b/fix-nonstandard-chars.el
@@ -0,0 +1,9 @@
+(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 "–" "-")
+)