comparison lisp/emacs-lisp/lisp.el @ 51084:c27a29e35a85

(beginning-of-defun-raw): Use shy-group.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Sun, 18 May 2003 21:51:01 +0000
parents d9a861a5b9d6
children aece5dd1efda
comparison
equal deleted inserted replaced
51083:52ad052cb312 51084:c27a29e35a85
190 (funcall beginning-of-defun-function) 190 (funcall beginning-of-defun-function)
191 (and arg (< arg 0) (not (eobp)) (forward-char 1)) 191 (and arg (< arg 0) (not (eobp)) (forward-char 1))
192 (and (re-search-backward (if defun-prompt-regexp 192 (and (re-search-backward (if defun-prompt-regexp
193 (concat (if open-paren-in-column-0-is-defun-start 193 (concat (if open-paren-in-column-0-is-defun-start
194 "^\\s(\\|" "") 194 "^\\s(\\|" "")
195 "\\(" defun-prompt-regexp "\\)\\s(") 195 "\\(?:" defun-prompt-regexp "\\)\\s(")
196 "^\\s(") 196 "^\\s(")
197 nil 'move (or arg 1)) 197 nil 'move (or arg 1))
198 (progn (goto-char (1- (match-end 0)))) t))) 198 (progn (goto-char (1- (match-end 0)))) t)))
199 199
200 (defvar end-of-defun-function nil 200 (defvar end-of-defun-function nil