(interactive "p")
- (setq replacements '( ("’" "'")
- ("“" "“")
- ("”" "”")
- ("–" "-")
- ("—" "—") ))
+ (setq replacements
+ '( ("’" "'")
+ ("“" "“")
+ ("”" "”")
+ ("–" "-")
+ ("—" "—")
+ ("°" "°")
+ ("®" "®")
+ ("™" "™")
+ )
+ )
(dolist (replacement replacements nil)
;; The mark gets all fucked up here. It's easiest to