Modified the fix-nonstandard-characters function to work interactively and to support...

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

diff --git a/fix-nonstandard-chars.el b/fix-nonstandard-chars.el
index e5c3464476659ea7a98c3757b567fde8603c6a0c..52f42df6c2b8d565eb80d191604ef8932648bc2b 100644 (file)
--- a/fix-nonstandard-chars.el
+++ b/fix-nonstandard-chars.el
@@ -1,9 +1,12 @@
-(defun fix-nonstandard-chars
+(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 "—" "—")
 )