Mercurial > hg > xemacs-beta
diff lisp/window-xemacs.el @ 5473:ac37a5f7e5be
Merge with trunk.
author | Mats Lidell <matsl@xemacs.org> |
---|---|
date | Thu, 17 Mar 2011 23:42:59 +0100 |
parents | 308d34e9f07d f00192e1cd49 |
children | 5d3bb1100832 |
line wrap: on
line diff
--- a/lisp/window-xemacs.el Tue Feb 22 22:56:02 2011 +0100 +++ b/lisp/window-xemacs.el Thu Mar 17 23:42:59 2011 +0100 @@ -549,7 +549,7 @@ (interactive) (let ((wc (or config (current-window-configuration))) (stack (window-config-stack))) - (if (or (= 0 (undoable-stack-a-length stack)) + (if (or (eql 0 (undoable-stack-a-length stack)) (not (equal (undoable-stack-a-top stack) wc))) (undoable-stack-push stack wc))))