From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Wed, 9 Nov 2011 15:00:32 +0000 (-0500)
Subject: * lisp/progmodes/python.el (python-beginning-of-statement): Rewrite.
X-Git-Tag: emacs-pretest-24.0.92~121^2~8
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=90132c14854a1b92cc2141ea2a863bc0cbdcfcff;p=emacs.git

* lisp/progmodes/python.el (python-beginning-of-statement): Rewrite.

Fixes: debbugs:2703
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c71cef7cdf9..83a27336855 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2011-11-09  Stefan Monnier  <monnier@iro.umontreal.ca>
 
+	* progmodes/python.el (python-beginning-of-statement):
+	Rewrite (bug#2703).
+
 	* progmodes/compile.el: Better handle TABs (bug#9749).
 	(compilation-internal-error-properties)
 	(compilation-next-error-function): Obey the target buffer's
diff --git a/lisp/progmodes/python.el b/lisp/progmodes/python.el
index 38bf9552b2a..8615400bf6a 100644
--- a/lisp/progmodes/python.el
+++ b/lisp/progmodes/python.el
@@ -948,22 +948,12 @@ Finds end of innermost nested class or method definition."
   "Go to start of current statement.
 Accounts for continuation lines, multi-line strings, and
 multi-line bracketed expressions."
-  (beginning-of-line)
-  (python-beginning-of-string)
-  (let (point)
-    (while (and (python-continuation-line-p)
-		(if point
-		    (< (point) point)
-		  t))
-      (beginning-of-line)
+  (while
       (if (python-backslash-continuation-line-p)
-	  (progn
-	    (forward-line -1)
-	    (while (python-backslash-continuation-line-p)
-	      (forward-line -1)))
-	(python-beginning-of-string)
-	(python-skip-out))
-      (setq point (point))))
+          (progn (forward-line -1) t)
+        (beginning-of-line)
+        (or (python-beginning-of-string)
+            (python-skip-out))))
   (back-to-indentation))
 
 (defun python-skip-out (&optional forward syntax)
@@ -971,6 +961,7 @@ multi-line bracketed expressions."
 Skip forward if FORWARD is non-nil, else backward.
 If SYNTAX is non-nil it is the state returned by `syntax-ppss' at point.
 Return non-nil if and only if skipping was done."
+  ;; FIXME: Use syntax-ppss-toplevel-pos.
   (let ((depth (syntax-ppss-depth (or syntax (syntax-ppss))))
 	(forward (if forward -1 1)))
     (unless (zerop depth)