Emacs: Advise casing functions.