Mercurial > hg > xemacs-beta

comparison lisp/window-xemacs.el @ 5473:ac37a5f7e5be

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Merge with trunk.
author Mats Lidell <matsl@xemacs.org>
date Thu, 17 Mar 2011 23:42:59 +0100
parents 308d34e9f07d f00192e1cd49
children 5d3bb1100832
comparison
equal deleted inserted replaced
5472:e79980ee5efe 5473:ac37a5f7e5be
547 If CONFIG is specified, push it instead of the current window configuration. 547 If CONFIG is specified, push it instead of the current window configuration.
548 Each frame has its own window-config stack." 548 Each frame has its own window-config stack."
549 (interactive) 549 (interactive)
550 (let ((wc (or config (current-window-configuration))) 550 (let ((wc (or config (current-window-configuration)))
551 (stack (window-config-stack))) 551 (stack (window-config-stack)))
552 (if (or (= 0 (undoable-stack-a-length stack)) 552 (if (or (eql 0 (undoable-stack-a-length stack))
553 (not (equal (undoable-stack-a-top stack) wc))) 553 (not (equal (undoable-stack-a-top stack) wc)))
554 (undoable-stack-push stack wc)))) 554 (undoable-stack-push stack wc))))
555 555
556 (defun pop-window-configuration () 556 (defun pop-window-configuration ()
557 "Pop the top window configuration off the window-config stack and set it. 557 "Pop the top window configuration off the window-config stack and set it.