From 0ddf6edb44913c170fbe23aea2ccd9ed677391db Mon Sep 17 00:00:00 2001 From: Philip Kaludercic Date: Wed, 29 May 2024 23:04:40 +0200 Subject: Pass the prefix arg to the transpose actions --- do-at-point.el | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/do-at-point.el b/do-at-point.el index dcd3fb2..9b47770 100644 --- a/do-at-point.el +++ b/do-at-point.el @@ -130,19 +130,19 @@ of this variable.") (word (?$ "Spell check" ,(lambda () (ispell-word))) (?d "Dictionary" ,#'dictionary-search) - (?t "Transpose" ,(lambda () (transpose-words 1)))) + (?t "Transpose" ,(lambda () (transpose-words (or current-prefix-arg 1))))) (symbol (?. "Xref" ,#'xref-find-definitions) (?o "Occur" ,(lambda (str) (occur (concat "\\_<\\(" (regexp-quote str) "\\)\\_>"))))) (string) (sexp - (?t "Transpose" ,(lambda () (transpose-sexps 1)))) + (?t "Transpose" ,(lambda () (transpose-sexps (or current-prefix-arg 1))))) (line - (?t "Transpose" ,(lambda () (transpose-lines 1)))) + (?t "Transpose" ,(lambda () (transpose-lines (or current-prefix-arg 1))))) (paragraph (?$) - (?t "Transpose" ,(lambda () (transpose-paragraphs 1)))) + (?t "Transpose" ,(lambda () (transpose-paragraphs (or current-prefix-arg 1))))) (defun (?e "Evaluate" ,(lambda () (eval-defun nil))))) "Association of things and their respective actions. -- cgit v1.0