diff options
| author | Stefan Monnier | 2003-05-18 21:51:01 +0000 |
|---|---|---|
| committer | Stefan Monnier | 2003-05-18 21:51:01 +0000 |
| commit | b5ed9def806edaac3c7865ed5d07190a5b67d1bb (patch) | |
| tree | b21955935437af3090892f3c3cca38ef46f6cdbf | |
| parent | 1d88c1b3cd3ec303029eb5353b6d304b6b96b5a7 (diff) | |
| download | emacs-b5ed9def806edaac3c7865ed5d07190a5b67d1bb.tar.gz emacs-b5ed9def806edaac3c7865ed5d07190a5b67d1bb.zip | |
(beginning-of-defun-raw): Use shy-group.
| -rw-r--r-- | lisp/emacs-lisp/lisp.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/lisp.el b/lisp/emacs-lisp/lisp.el index ad553e508e9..c6ec7cf5b9e 100644 --- a/lisp/emacs-lisp/lisp.el +++ b/lisp/emacs-lisp/lisp.el | |||
| @@ -192,7 +192,7 @@ is called as a function to find the defun's beginning." | |||
| 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))) |