* progmodes/python.el (python-nav-end-of-statement): Fix

cornercase when handling multiline strings.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c3264d817e45557489b7f1c2040e87fcd2618ddf..63dd9d0a093d1599d9ceb7a660a6217bb50067c8 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2013-01-10  Fabián Ezequiel Gallina  <fgallina@cuca>
+
+       * progmodes/python.el (python-nav-end-of-statement): Fix
+       cornercase when handling multiline strings.
+
 2013-01-10  Glenn Morris  <rgm@gnu.org>
 
        * emacs-lisp/authors.el (authors-ignored-files)

diff --git a/lisp/progmodes/python.el b/lisp/progmodes/python.el
index 7294984fc4afac903946ef66e544705c4399bf63..e58dfa169ef173d43d20c482b004b7467d254662 100644 (file)
--- a/lisp/progmodes/python.el
+++ b/lisp/progmodes/python.el
@@ -1188,7 +1188,16 @@ of the statement."
                 (not (eobp))
                 (cond ((setq string-start (python-syntax-context 'string))
                        (goto-char string-start)
-                       (python-nav-end-of-statement t))
+                       (if (python-syntax-context 'paren)
+                           ;; Ended up inside a paren, roll again.
+                           (python-nav-end-of-statement t)
+                         ;; This is not inside a paren, move to the
+                         ;; end of this string.
+                         (goto-char (+ (point)
+                                       (python-syntax-count-quotes
+                                        (char-after (point)) (point))))
+                         (or (re-search-forward (rx (syntax string-delimiter)) nil t)
+                             (goto-char (point-max)))))
                       ((python-syntax-context 'paren)
                        ;; The statement won't end before we've escaped
                        ;; at least one level of parenthesis.
@@ -1302,7 +1311,7 @@ backward to previous block."
   "Safe version of standard `forward-sexp'.
 When ARG > 0 move forward, else if ARG is < 0."
   (or arg (setq arg 1))
-  (let ((forward-sexp-function nil)
+  (let ((forward-sexp-function)
         (paren-regexp
          (if (> arg 0) (python-rx close-paren) (python-rx open-paren)))
         (search-fn