From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Sun, 18 May 2003 21:51:01 +0000 (+0000)
Subject: (beginning-of-defun-raw): Use shy-group.
X-Git-Tag: ttn-vms-21-2-B4~10086
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b5ed9def806edaac3c7865ed5d07190a5b67d1bb;p=emacs.git

(beginning-of-defun-raw): Use shy-group.
---

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."
     (and (re-search-backward (if defun-prompt-regexp
 				 (concat (if open-paren-in-column-0-is-defun-start
 					     "^\\s(\\|" "")
-					 "\\(" defun-prompt-regexp "\\)\\s(")
+					 "\\(?:" defun-prompt-regexp "\\)\\s(")
 			       "^\\s(")
 			     nil 'move (or arg 1))
 	 (progn (goto-char (1- (match-end 0)))) t)))