X-Git-Url: http://gitweb.michael.orlitzky.com/?a=blobdiff_plain;f=fix-nonstandard-chars.el;h=e1ec2f563d8ddc7cd796c411c40a4f8dee56d7b3;hb=516bf83a0d45f0fb089077122b7d504674e7e3e7;hp=52f42df6c2b8d565eb80d191604ef8932648bc2b;hpb=75b76032baa809cde05b5b54ea6611a15b1b840a;p=emacs.d.git

diff --git a/fix-nonstandard-chars.el b/fix-nonstandard-chars.el
index 52f42df..e1ec2f5 100644
--- a/fix-nonstandard-chars.el
+++ b/fix-nonstandard-chars.el
@@ -2,11 +2,24 @@
   "Replace some typical nonstandard characters that result from
    copy-and-pasting word processor text into XHTML documents."
 
-  (interactive "P")
+  (interactive "p")
 
-  (replace-string "’" "'")
-  (replace-string "“" "“")
-  (replace-string "”" "”")
-  (replace-string "–" "-")
-  (replace-string "—" "—")
+  (setq replacements
+    '( ("’" "'")
+       ("“" "“")
+       ("”" "”")
+       ("–" "-")
+       ("—" "—")
+       ("°" "°")
+       ("®" "®")
+       ("™" "™")
+     )
+  )
+
+  (dolist (replacement replacements nil)
+    ;; The mark gets all fucked up here. It's easiest to
+    ;; just return to the beginning of the buffer each time.
+    (beginning-of-buffer)
+    (replace-string (nth 0 replacement) (nth 1 replacement))
+    )
 )