summaryrefslogtreecommitdiff
path: root/paredit.el
diff options
context:
space:
mode:
Diffstat (limited to 'paredit.el')
-rw-r--r--paredit.el5
1 files changed, 4 insertions, 1 deletions
diff --git a/paredit.el b/paredit.el
index 2f6a0f1..e00df9d 100644
--- a/paredit.el
+++ b/paredit.el
@@ -1679,7 +1679,8 @@ If there are no more S-expressions in this one before the closing
past the S-expression following the point."
(paredit-handle-sexp-errors
(forward-sexp)
- ;++ Is it necessary to use UP-LIST and not just FORWARD-CHAR?
+ ;; Use `up-list' if outside a string in case there is whitespace
+ ;; between the point and the end of the list.
(if (paredit-in-string-p) (forward-char) (up-list))))
(defun-saving-mark paredit-backward ()
@@ -1689,6 +1690,8 @@ If there are no more S-expressions in this one before the opening
move backward past the S-expression preceding the point."
(paredit-handle-sexp-errors
(backward-sexp)
+ ;; Use `backward-up-list' if outside a string in case there is
+ ;; whitespace between the point and the beginning of the list.
(if (paredit-in-string-p) (backward-char) (backward-up-list))))
;;; Why is this not in lisp.el?