From 7511ded8c94e37aea836e3c13ccc9a5f77b07857 Mon Sep 17 00:00:00 2001 From: Chong Yidong Date: Mon, 23 Apr 2012 23:48:22 +0800 Subject: [PATCH] * subr.el (accept-change-group): Fix arg usage. Fixes: debbugs:6095 --- lisp/ChangeLog | 4 ++++ lisp/subr.el | 2 +- 2 files changed, 5 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 173b2345c58..c6a024a36e0 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2012-04-23 Andreas Politz + + * subr.el (accept-change-group): Fix arg usage (Bug#6095). + 2012-04-23 Chong Yidong * cus-edit.el (customize-apropos, customize-apropos-options): diff --git a/lisp/subr.el b/lisp/subr.el index 8e296aa7422..2404f6a56d2 100644 --- a/lisp/subr.el +++ b/lisp/subr.el @@ -2391,7 +2391,7 @@ to `accept-change-group' or `cancel-change-group'." This finishes the change group by accepting its changes as final." (dolist (elt handle) (with-current-buffer (car elt) - (if (eq elt t) + (if (eq (cdr elt) t) (setq buffer-undo-list t))))) (defun cancel-change-group (handle) -- 2.39.2