procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(beginning-of-defun-raw): Add regexp

Browse source 
matching open parenthesis in column 0 to defun-prompt-regexp
only if open-paren-in-column-0-is-defun-start is set.
This commit is contained in:
Gerd Moellmann 2000-03-24 20:42:41 +00:00
parent 7973e637e4
commit 418d645c4d
1 changed files with 2 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
lisp/emacs-lisp/lisp.el
View file

@ -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))