From: Jan Djärv Date: Wed, 18 Oct 2006 14:05:16 +0000 (+0000) Subject: * term/x-win.el (res-geometry): Don't set geometry from Xresources X-Git-Tag: emacs-pretest-22.0.90~80 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=26e328390177d7fe19b764a55ff1beb01296bd94;p=emacs.git * term/x-win.el (res-geometry): Don't set geometry from Xresources to default-frame-alist if default-frame-alist already contains widht/height. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index ec8bc9368b6..bba8f8689ea 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,9 @@ +2006-10-18 Jan Dj,Ad(Brv + + * term/x-win.el (res-geometry): Don't set geometry from Xresources + to default-frame-alist if default-frame-alist already contains + widht/height. + 2006-10-18 Richard Stallman * emacs-lisp/pp.el (pp-eval-expression): Use `X' to read value. diff --git a/lisp/term/x-win.el b/lisp/term/x-win.el index 8123d509f1c..69bc9b10d78 100644 --- a/lisp/term/x-win.el +++ b/lisp/term/x-win.el @@ -2448,12 +2448,15 @@ order until succeed.") (cons '(user-size . t) parsed)))) ;; All geometry parms apply to the initial frame. (setq initial-frame-alist (append initial-frame-alist parsed)) - ;; The size parms apply to all frames. - (if (assq 'height parsed) + ;; The size parms apply to all frames. Don't set it if there are + ;; sizes there already (from command line). + (if (and (assq 'height parsed) + (not (assq 'height default-frame-alist))) (setq default-frame-alist (cons (cons 'height (cdr (assq 'height parsed))) default-frame-alist))) - (if (assq 'width parsed) + (if (and (assq 'width parsed) + (not (assq 'width default-frame-alist))) (setq default-frame-alist (cons (cons 'width (cdr (assq 'width parsed))) default-frame-alist))))))