aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorMorgan Willcock2023-12-31 20:47:17 +0000
committerEli Zaretskii2024-01-04 13:16:54 +0200
commit5765cc3a5a32bdecfb6b28180afda97d4b74ee6a (patch)
tree99ea19f833336059cdfea8fb12dfed17e944db88
parentff00b85acf8371a358a055ef3e7325220bb6e362 (diff)
downloademacs-5765cc3a5a32bdecfb6b28180afda97d4b74ee6a.tar.gz
emacs-5765cc3a5a32bdecfb6b28180afda97d4b74ee6a.zip
Ensure indent-region argument order in tempo.el is correct
* lisp/tempo.el (tempo-insert): Call 'indent-region' with the stored region markers to ensure that the start and end arguments are used in the correct order. (Bug#68185)
-rw-r--r--lisp/tempo.el5
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/tempo.el b/lisp/tempo.el
index df78690bd31..f32313d80d0 100644
--- a/lisp/tempo.el
+++ b/lisp/tempo.el
@@ -333,7 +333,8 @@ possible."
333 (`(r> . ,rest) (if on-region 333 (`(r> . ,rest) (if on-region
334 (progn 334 (progn
335 (goto-char tempo-region-stop) 335 (goto-char tempo-region-stop)
336 (indent-region (mark) (point) nil)) 336 (indent-region tempo-region-start
337 tempo-region-stop))
337 (tempo-insert-prompt-compat rest))) 338 (tempo-insert-prompt-compat rest)))
338 (`(s ,name) (tempo-insert-named name)) 339 (`(s ,name) (tempo-insert-named name))
339 (`(l . ,rest) (dolist (elt rest) (tempo-insert elt on-region))) 340 (`(l . ,rest) (dolist (elt rest) (tempo-insert elt on-region)))
@@ -344,7 +345,7 @@ possible."
344 ('r> (if on-region 345 ('r> (if on-region
345 (progn 346 (progn
346 (goto-char tempo-region-stop) 347 (goto-char tempo-region-stop)
347 (indent-region (mark) (point) nil)) 348 (indent-region tempo-region-start tempo-region-stop))
348 (tempo-insert-mark (point-marker)))) 349 (tempo-insert-mark (point-marker))))
349 ('> (indent-according-to-mode)) 350 ('> (indent-according-to-mode))
350 ('& (if (not (or (= (current-column) 0) 351 ('& (if (not (or (= (current-column) 0)