;;; From Deborah Tatar
;;; Change transpose characters so that it changes the previous two
;;; characters, leaving the cursor in the same place.
;;;
;;; I put this on ^T.
(defun transpose-chars (arg)
  "Interchange the previous two characters.
With prefix arg ARG, effect is to take character before point
and drag it forward past ARG other characters (backward if ARG negative)."
  (interactive "*P")
  (when (null arg) (forward-char -1))
  (transpose-subr 'forward-char (prefix-numeric-value arg)))