Mercurial > emacs

comparison lisp/term/x-win.el @ 10400:2743977604b1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Put height and width from geometry parm into default-frame-alist.
author Richard M. Stallman <rms@gnu.org>
date Wed, 11 Jan 1995 04:44:10 +0000
parents e36adc507c9b
children e7510a23df8e
comparison
equal deleted inserted replaced
10399:f70663b67154 10400:2743977604b1
691 (menu-bar-enable-clipboard)) 691 (menu-bar-enable-clipboard))
692 692
693 ;; Apply a geometry resource to the initial frame. Put it at the end 693 ;; Apply a geometry resource to the initial frame. Put it at the end
694 ;; of the alist, so that anything specified on the command line takes 694 ;; of the alist, so that anything specified on the command line takes
695 ;; precedence. 695 ;; precedence.
696 (let ((res-geometry (x-get-resource "geometry" "Geometry"))) 696 (let* ((res-geometry (x-get-resource "geometry" "Geometry"))
697 parsed)
697 (if res-geometry 698 (if res-geometry
698 (setq initial-frame-alist (append initial-frame-alist 699 (progn
699 (x-parse-geometry res-geometry))))) 700 (setq parsed (x-parse-geometry res-geometry))
701 ;; All geometry parms apply to the initial frame.
702 (setq initial-frame-alist (append initial-frame-alist parsed))
703 ;; The size parms apply to all frames.
704 (if (assq 'height parsed)
705 (setq default-frame-alist
706 (cons (cons 'height (cdr (assq 'height parsed)))
707 default-frame-alist)))
708 (if (assq 'width parsed)
709 (setq default-frame-alist
710 (cons (cons 'width (cdr (assq 'width parsed)))
711 default-frame-alist))))))
700 712
701 ;; Check the reverseVideo resource. 713 ;; Check the reverseVideo resource.
702 (let ((case-fold-search t)) 714 (let ((case-fold-search t))
703 (let ((rv (x-get-resource "reverseVideo" "ReverseVideo"))) 715 (let ((rv (x-get-resource "reverseVideo" "ReverseVideo")))
704 (if (and rv 716 (if (and rv