(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 92ff4562b85d41782efe78538588817f6c75a6e9..f9f5fdc8b1519c95c3961e84d0ed09b24308cb05 100644 (file)
--- 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)))))