From 418d645c4d0126cc10662fd1b9d39bc4fe667632 Mon Sep 17 00:00:00 2001 From: Gerd Moellmann Date: Fri, 24 Mar 2000 20:42:41 +0000 Subject: [PATCH] (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. --- lisp/emacs-lisp/lisp.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/lisp/emacs-lisp/lisp.el b/lisp/emacs-lisp/lisp.el index 9759c41d975..c484a12dc8d 100644 --- 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)) -- 2.39.5