emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[nongnu] elpa/paredit 33463ae 102/224: Third argument to `indent-region'


From: ELPA Syncer
Subject: [nongnu] elpa/paredit 33463ae 102/224: Third argument to `indent-region' is not optional in GNU Emacs 21.
Date: Sat, 7 Aug 2021 09:22:28 -0400 (EDT)

branch: elpa/paredit
commit 33463ae916e375ee71223187e665d9b71edab694
Author: Taylor R Campbell <campbell@mumble.net>
Commit: Taylor R Campbell <campbell@mumble.net>

    Third argument to `indent-region' is not optional in GNU Emacs 21.
    
    Ignore-this: 3a37e719407c3fbd2e3cfe9256d7598a
    
    darcs-hash:20110323045451-00fcc-dd611d727eb018f1ce6ab8ba4560bce2313ea54d
---
 paredit.el | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/paredit.el b/paredit.el
index 01aacb3..0b3a72c 100644
--- a/paredit.el
+++ b/paredit.el
@@ -2031,7 +2031,7 @@ Inside a string, unescape all backslashes, or signal an 
error if doing
               (setq indent-end (point)))
             (delete-region (point) end) ; ...to delete the open char.
             ;; Reindent only the region we preserved.
-            (indent-region indent-start indent-end))))))
+            (indent-region indent-start indent-end nil))))))
 
 (defun paredit-kill-surrounding-sexps-for-splice (argument)
   (cond ((or (paredit-in-string-p)
@@ -2110,7 +2110,7 @@ If the point is on an S-expression, such as a string or a 
symbol, not
       (delete-region (point) (scan-sexps (point) 1))
       (let* ((indent-start (point))
              (indent-end (save-excursion (insert sexps) (point))))
-        (indent-region indent-start indent-end)))))
+        (indent-region indent-start indent-end nil)))))
 
 (defun paredit-convolute-sexp (&optional n)
   "Convolute S-expressions.
@@ -2462,13 +2462,13 @@ Assumes that `paredit-in-string-p' is false, so that it 
need not handle
   (let* ((start (point))
          (end (paredit-handle-sexp-errors (progn (up-list) (point)) nil)))
     (if end
-        (indent-region start end))))
+        (indent-region start end nil))))
 
 (defun paredit-forward-and-indent ()
   "Move forward an S-expression, indenting it with `indent-region'."
   (let ((start (point)))
     (forward-sexp)
-    (indent-region start (point))))
+    (indent-region start (point) nil)))
 
 (defun paredit-skip-whitespace (trailing-p &optional limit)
   "Skip past any whitespace, or until the point LIMIT is reached.



reply via email to

[Prev in Thread] Current Thread [Next in Thread]