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