(beginning-of-defun-raw): Add regexp

matching open parenthesis in column 0 to defun-prompt-regexp
only if open-paren-in-column-0-is-defun-start is set.

diff --git a/lisp/emacs-lisp/lisp.el b/lisp/emacs-lisp/lisp.el
index 9759c41d9759c2fb32cf4fc0f529d62bc75c11e6..c484a12dc8d3aec071e48861c5eec651d16f7487 100644 (file)
--- a/lisp/emacs-lisp/lisp.el
+++ b/lisp/emacs-lisp/lisp.el
@@ -173,7 +173,8 @@ is called as a function to find the defun's beginning."
       (funcall beginning-of-defun-function)
     (and arg (< arg 0) (not (eobp)) (forward-char 1))
     (and (re-search-backward (if defun-prompt-regexp
-                                (concat "^\\s(\\|"
+                                (concat (if open-paren-in-column-0-is-defun-start
+                                            "^\\s(\\|" "")
                                         "\\(" defun-prompt-regexp "\\)\\s(")
                               "^\\s(")
                             nil 'move (or arg 1))