Don't get fooled by open parens in column 0 within strings

* lisp/emacs-lisp/lisp.el (beginning-of-defun-raw):
Skip defun-prompt-regexp and open-paren-in-0 within strings and comments.

diff --git a/lisp/emacs-lisp/lisp.el b/lisp/emacs-lisp/lisp.el
index 6952ef4cf494d2602c5221f5bdd3d85457c4c7ee..09aa51055e0a7350b885f6ac00b191e443a3408d 100644 (file)
--- a/lisp/emacs-lisp/lisp.el
+++ b/lisp/emacs-lisp/lisp.el
@@ -339,12 +339,18 @@ is called as a function to find the defun's beginning."
 
    ((or defun-prompt-regexp open-paren-in-column-0-is-defun-start)
     (and (< arg 0) (not (eobp)) (forward-char 1))
-    (and (re-search-backward (if defun-prompt-regexp
-                                (concat (if open-paren-in-column-0-is-defun-start
-                                            "^\\s(\\|" "")
-                                        "\\(?:" defun-prompt-regexp "\\)\\s(")
-                              "^\\s(")
-                            nil 'move arg)
+    (and (let (found)
+           (while
+               (and (setq found
+                          (re-search-backward
+                           (if defun-prompt-regexp
+                              (concat (if open-paren-in-column-0-is-defun-start
+                                          "^\\s(\\|" "")
+                                      "\\(?:" defun-prompt-regexp "\\)\\s(")
+                            "^\\s(")
+                                             nil 'move arg))
+                    (nth 8 (syntax-ppss))))
+           found)
         (progn (goto-char (1- (match-end 0)))
                 t)))