diff options
| author | Morgan Willcock | 2023-12-31 20:47:17 +0000 |
|---|---|---|
| committer | Eli Zaretskii | 2024-01-04 13:16:54 +0200 |
| commit | 5765cc3a5a32bdecfb6b28180afda97d4b74ee6a (patch) | |
| tree | 99ea19f833336059cdfea8fb12dfed17e944db88 | |
| parent | ff00b85acf8371a358a055ef3e7325220bb6e362 (diff) | |
| download | emacs-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.el | 5 |
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) |