changeset 28299:ed528bfe1b9e

(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.
author Gerd Moellmann <gerd@gnu.org>
date Fri, 24 Mar 2000 20:42:41 +0000
parents 4ec88f0050a1
children 4a7a0fc36977
files lisp/emacs-lisp/lisp.el
diffstat 1 files changed, 2 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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))