Mercurial > emacs
comparison lisp/emacs-lisp/lisp.el @ 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 | 59243c413664 |
| children | 72284d9d7a11 |
comparison
equal
deleted
inserted
replaced
| 28298:4ec88f0050a1 | 28299:ed528bfe1b9e |
|---|---|
| 171 (interactive "p") | 171 (interactive "p") |
| 172 (if beginning-of-defun-function | 172 (if beginning-of-defun-function |
| 173 (funcall beginning-of-defun-function) | 173 (funcall beginning-of-defun-function) |
| 174 (and arg (< arg 0) (not (eobp)) (forward-char 1)) | 174 (and arg (< arg 0) (not (eobp)) (forward-char 1)) |
| 175 (and (re-search-backward (if defun-prompt-regexp | 175 (and (re-search-backward (if defun-prompt-regexp |
| 176 (concat "^\\s(\\|" | 176 (concat (if open-paren-in-column-0-is-defun-start |
| 177 "^\\s(\\|" "") | |
| 177 "\\(" defun-prompt-regexp "\\)\\s(") | 178 "\\(" defun-prompt-regexp "\\)\\s(") |
| 178 "^\\s(") | 179 "^\\s(") |
| 179 nil 'move (or arg 1)) | 180 nil 'move (or arg 1)) |
| 180 (progn (goto-char (1- (match-end 0)))) t))) | 181 (progn (goto-char (1- (match-end 0)))) t))) |
| 181 | 182 |