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

Fixes: debbugs:6095

* subr.el (accept-change-group): Fix arg usage.
Fixes: debbugs:6095
7511ded8 · Chong Yidong · 46c71e23 · 7511ded8 · 7511ded8
Commit 7511ded8 authored Apr 23, 2012 by Chong Yidong
Hide whitespace changes
Inline Side-by-side

Showing with 5 additions and 1 deletion

lisp/ChangeLog lisp/ChangeLog +4 -0

lisp/subr.el lisp/subr.el +1 -1

No files found.
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
+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):

--- 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)