(c-emacs-features): argumentative-bod-function: bind mark-ring to avoid

accumulating a spurious mark.

1 files changed, 2 insertions, 1 deletions

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)))))