[nongnu] elpa/paredit fc78011 121/224: Tweak `paredit-check-region' and `paredit-region-ok-p'.

[ELPA Syncer]

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

    Tweak `paredit-check-region' and `paredit-region-ok-p'.
    
    Ignore-this: c75566b3db4425b39ca633d55c6d400e
    
    In `paredit-check-region', call `paredit-region-ok-p' to discern
    whether the region is OK before narrowing and calling `check-parens'
    to report any errors.  This avoids unwanted point motion if the
    region is OK, or if it isn't, lets `check-parens' move the point to
    the part where the region is not OK.
    
    Write docstrings for the two routines.
    
    darcs-hash:20110411180300-00fcc-674d77c0c9566bcfb8ef7cfe88a50de34a373853
---
 paredit.el | 14 +++++++++++---
 1 file changed, 11 insertions(+), 3 deletions(-)

diff --git a/paredit.el b/paredit.el
index 2f27690..3a05af6 100644
--- a/paredit.el
+++ b/paredit.el
@@ -2582,11 +2582,19 @@ If no parse state is supplied, compute one from the 
beginning of the
       (error "Invalid context for command `%s'." command)))
 
 (defun paredit-check-region (start end)
-  (save-restriction
-    (narrow-to-region start end)
-    (check-parens)))
+  "Signal an error if text between `start' and `end' is unbalanced."
+  ;; `narrow-to-region' will move the point, so avoid calling it if we
+  ;; don't need to.  We don't want to use `save-excursion' because we
+  ;; want the point to move if `check-parens' reports an error.
+  (if (not (paredit-region-ok-p start end))
+      (save-restriction
+        (narrow-to-region start end)
+        (check-parens))))
 
 (defun paredit-region-ok-p (start end)
+  "Return true iff the region between `start' and `end' is balanced.
+This is independent of context -- it doesn't check what state the
+  text at `start' is in."
   (save-excursion
     (paredit-handle-sexp-errors
         (progn