fix-nonstandard-chars.el: remove

I haven't used this in over a decade, and who knows if the encoding
would even still work on a copy-paste from a modern Word document.
I can't even open one.

diff --git a/.emacs b/.emacs
index fedcc8b4f742680ea98a2d66200f0e29556a75ee..6f097721f2ea7f85dc30d2bb215e0e7d4ca20881 100644 (file)
--- a/.emacs
+++ b/.emacs
@@ -78,7 +78,6 @@
 (load-library "diff-buffer-against-file")
 (global-set-key "\C-cd" 'diff-buffer-against-file)
 
-(load-library "fix-nonstandard-chars")
 (load-library "latex-query-replace-regexp-math")
 
 

diff --git a/fix-nonstandard-chars.el b/fix-nonstandard-chars.el
deleted file mode 100644 (file)
index e1ec2f5..0000000
--- a/fix-nonstandard-chars.el
+++ /dev/null
@@ -1,25 +0,0 @@
-(defun fix-nonstandard-chars (context)
-  "Replace some typical nonstandard characters that result from
-   copy-and-pasting word processor text into XHTML documents."
-
-  (interactive "p")
-
-  (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))
-    )
-)