# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 953930561 0
# Node ID ed528bfe1b9eaa5795e76c0d30a790b26ef578f6
# Parent  4ec88f0050a173a5db65e95f0c290a4e6ac05705
(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 -r 4ec88f0050a1 -r ed528bfe1b9e lisp/emacs-lisp/lisp.el
--- a/lisp/emacs-lisp/lisp.el	Fri Mar 24 20:25:34 2000 +0000
+++ b/lisp/emacs-lisp/lisp.el	Fri Mar 24 20:42:41 2000 +0000
@@ -173,7 +173,8 @@
       (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))