# HG changeset patch
# User Alan Mackenzie <acm@muc.de>
# Date 1218571218 0
# Node ID 3f5d22fa387720bd75e0a01fac4dbd2ade6e3ec3
# Parent  4844a194589208aee92d29aaed46a98b510860b1
(c-emacs-features): argumentative-bod-function: bind mark-ring to avoid
accumulating a spurious mark.

diff -r 4844a1945892 -r 3f5d22fa3877 lisp/progmodes/cc-defs.el
--- a/lisp/progmodes/cc-defs.el	Tue Aug 12 19:59:41 2008 +0000
+++ b/lisp/progmodes/cc-defs.el	Tue Aug 12 20:00:18 2008 +0000
@@ -1444,7 +1444,8 @@
     ;; 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)))))