From 05d1da31b577a38fc30b1d879aad17899ab98c40 Mon Sep 17 00:00:00 2001 From: Alan Mackenzie Date: Tue, 12 Aug 2008 20:00:18 +0000 Subject: [PATCH] (c-emacs-features): argumentative-bod-function: bind mark-ring to avoid accumulating a spurious mark. --- lisp/progmodes/cc-defs.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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))))) -- 2.39.2