Mercurial > emacs
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))