From: Chong Yidong <cyd@gnu.org>
Date: Mon, 23 Apr 2012 15:48:22 +0000 (+0800)
Subject: * subr.el (accept-change-group): Fix arg usage.
X-Git-Tag: emacs-24.2.90~471^2~296
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=7511ded8c94e37aea836e3c13ccc9a5f77b07857;p=emacs.git

* subr.el (accept-change-group): Fix arg usage.

Fixes: debbugs:6095
---

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  <politza@fh-trier.de>
+
+	* subr.el (accept-change-group): Fix arg usage (Bug#6095).
+
 2012-04-23  Chong Yidong  <cyd@gnu.org>
 
 	* 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)