Mercurial > hg > xemacs-beta

comparison lisp/frame.el @ 442:abe6d1db359e r21-2-36

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-36
author cvs
date Mon, 13 Aug 2007 11:35:02 +0200
parents 8de8e3f6228a
children 576fb035e263
comparison
equal deleted inserted replaced
441:72a7cfa4a488 442:abe6d1db359e
500 This deletes all bindings in PLIST for `top', `left', `width', 500 This deletes all bindings in PLIST for `top', `left', `width',
501 `height', `user-size' and `user-position' properties. 501 `height', `user-size' and `user-position' properties.
502 Emacs uses this to avoid overriding explicit moves and resizings from 502 Emacs uses this to avoid overriding explicit moves and resizings from
503 the user during startup." 503 the user during startup."
504 (setq plist (canonicalize-lax-plist (copy-sequence plist))) 504 (setq plist (canonicalize-lax-plist (copy-sequence plist)))
505 (mapcar #'(lambda (propname) 505 (mapcar #'(lambda (property)
506 (if (lax-plist-member plist propname) 506 (if (lax-plist-member plist property)
507 (progn 507 (progn
508 (setq frame-initial-geometry-arguments 508 (setq frame-initial-geometry-arguments
509 (cons propname 509 (cons property
510 (cons (lax-plist-get plist propname) 510 (cons (lax-plist-get plist property)
511 frame-initial-geometry-arguments))) 511 frame-initial-geometry-arguments)))
512 (setq plist (lax-plist-remprop plist propname))))) 512 (setq plist (lax-plist-remprop plist property)))))
513 '(height width top left user-size user-position)) 513 '(height width top left user-size user-position))
514 plist) 514 plist)
515 515
516 (defun other-frame (arg) 516 (defun other-frame (arg)
517 "Select the ARG'th different visible frame, and raise it. 517 "Select the ARG'th different visible frame, and raise it.