From: Alan Mackenzie <acm@muc.de>
Date: Tue, 12 Aug 2008 20:00:18 +0000 (+0000)
Subject: (c-emacs-features): argumentative-bod-function: bind mark-ring to avoid
X-Git-Tag: emacs-pretest-23.0.90~3513
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=05d1da31b577a38fc30b1d879aad17899ab98c40;p=emacs.git

(c-emacs-features): argumentative-bod-function: bind mark-ring to avoid
accumulating a spurious mark.
---

diff --git a/lisp/progmodes/cc-defs.el b/lisp/progmodes/cc-defs.el
index 92ff4562b85..f9f5fdc8b15 100644
--- a/lisp/progmodes/cc-defs.el
+++ b/lisp/progmodes/cc-defs.el
@@ -1444,7 +1444,8 @@ non-nil, a caret is prepended to invert the set."
     ;; beginning-of-defun-function.  Assume end-of-defun does likewise.
     (let ((beginning-of-defun-function
 	   (lambda (&optional arg)
-	     (not (eq arg nil)))))
+	     (not (eq arg nil))))
+	  mark-ring)
       (save-excursion
 	(if (beginning-of-defun-raw 1)
 	    (setq list (cons 'argumentative-bod-function list)))))