diff options
| author | Alan Mackenzie <acm@muc.de> | 2008-08-12 20:00:18 +0000 |
|---|---|---|
| committer | Alan Mackenzie <acm@muc.de> | 2008-08-12 20:00:18 +0000 |
| commit | 05d1da31b577a38fc30b1d879aad17899ab98c40 (patch) | |
| tree | fb68e601c17fc19df34ee79f4f5e17af7ab4da1f /lisp | |
| parent | d8ff76929d002c8f195a4887954022bbb6c5e127 (diff) | |
| download | emacs-05d1da31b577a38fc30b1d879aad17899ab98c40.tar.gz | |
(c-emacs-features): argumentative-bod-function: bind mark-ring to avoid
accumulating a spurious mark.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/progmodes/cc-defs.el | 3 |
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))))) |