From 828584f7c58a7e4efa70081cd0aa1d9d1fee810d Mon Sep 17 00:00:00 2001 From: Michael Orlitzky Date: Sun, 8 Mar 2026 09:53:19 -0400 Subject: [PATCH] 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. --- .emacs | 1 - fix-nonstandard-chars.el | 25 ------------------------- 2 files changed, 26 deletions(-) delete mode 100644 fix-nonstandard-chars.el diff --git a/.emacs b/.emacs index fedcc8b..6f09772 100644 --- 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 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)) - ) -) -- 2.51.0