[nongnu] elpa/paredit 3f6b294 062/224: Fix comment in `paredit-forward' on `up-list' vs `forward-char'.

[ELPA Syncer]

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

    Fix comment in `paredit-forward' on `up-list' vs `forward-char'.
    
    Ignore-this: 87926a2083bf8b1444aa83d80c5346fb
    
    Add analogous comment to `paredit-backward'.
    
    Thanks, Eitan Postavsky.
    
    darcs-hash:20110320171805-00fcc-e0817b0a6f305681267cc804a680e64d9eff1b96
---
 paredit.el | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

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?