- (replace-string "’" "'")
- (replace-string "“" "“")
- (replace-string "”" "”")
- (replace-string "–" "-")
+ (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))
+ )