Re: [Emacs-diffs] master b88e7c8: Make transpose-regions interactive (Bug#30343)

[Stefan Monnier]

> -DEFUN ("transpose-regions", Ftranspose_regions, Stranspose_regions, 4, 5, 0,
> +DEFUN ("transpose-regions", Ftranspose_regions, Stranspose_regions, 4, 5,
> +       "(if (< (length mark-ring) 2)\
> +         (error \"Other region must be marked before transposing two 
> regions\")\
> +       (let* ((num (if current-prefix-arg\
> +                      (prefix-numeric-value current-prefix-arg)\
> +                     0))\
> +              (ring-length (length mark-ring))\
> +              (eltnum (mod num ring-length))\
> +              (eltnum2 (mod (1+ num) ring-length)))\
> +         (list (point) (mark) (elt mark-ring eltnum) (elt mark-ring 
> eltnum2))))",

Am I the only one who dislikes seeing such Elisp code hidden within our
C files?


        Stefan