summaryrefslogtreecommitdiff
path: root/paredit.el
diff options
context:
space:
mode:
authorTaylor R Campbell <campbell@mumble.net>2011-03-23 04:54:51 +0000
committerTaylor R Campbell <campbell@mumble.net>2011-03-23 04:54:51 +0000
commit33463ae916e375ee71223187e665d9b71edab694 (patch)
treea61419d36a3c5672103d288d81e21b198cfcf951 /paredit.el
parent4800e25a741198a6b1758cf6b17f8ed89552bebb (diff)
Third argument to `indent-region' is not optional in GNU Emacs 21.
Ignore-this: 3a37e719407c3fbd2e3cfe9256d7598a darcs-hash:20110323045451-00fcc-dd611d727eb018f1ce6ab8ba4560bce2313ea54d
Diffstat (limited to 'paredit.el')
-rw-r--r--paredit.el8
1 files 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.