Re: Transposing words over middle words

[Tomas Nordin <tomasn@posteo.net>]

> Than again, maybe M-t should work like `C-0 M-t` whenever the region
> is active so you don't even need the C-u at all.

Here is an advice to make that happen, respecting possible prefixes.

(defun tn-transpose-dwim-advice (transpose-subr &rest args)
  (if (and (use-region-p) (= (cadr args) 1))
      ;;                      MOVER  dwim  SPECIAL
      (apply transpose-subr (car args) 0 (cddr args))
    (apply transpose-subr args)))

(advice-add 'transpose-subr :around #'tn-transpose-dwim-advice)

;;; remove the hack with this:
;; (advice-remove 'transpose-subr #'tn-transpose-dwim-advice)