diff options
| author | Gerd Moellmann <gerd@gnu.org> | 2000-03-24 20:42:41 +0000 |
|---|---|---|
| committer | Gerd Moellmann <gerd@gnu.org> | 2000-03-24 20:42:41 +0000 |
| commit | 418d645c4d0126cc10662fd1b9d39bc4fe667632 (patch) | |
| tree | 8e134fc6901acef74117903119d56671b1781915 /lisp/emacs-lisp/lisp.el | |
| parent | 7973e637e40b667bcad19c113b609741a587df63 (diff) | |
| download | emacs-418d645c4d0126cc10662fd1b9d39bc4fe667632.tar.gz | |
(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.
Diffstat (limited to 'lisp/emacs-lisp/lisp.el')
| -rw-r--r-- | lisp/emacs-lisp/lisp.el | 3 |
1 files changed, 2 insertions, 1 deletions
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)) |