changeset 97441:3f5d22fa3877

(c-emacs-features): argumentative-bod-function: bind mark-ring to avoid accumulating a spurious mark.
author Alan Mackenzie <acm@muc.de>
date Tue, 12 Aug 2008 20:00:18 +0000
parents 4844a1945892
children 5be4c494e1d5
files lisp/progmodes/cc-defs.el
diffstat 1 files changed, 2 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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)))))