From 045b190821781a78d6618b296d97369612ad4bd2 Mon Sep 17 00:00:00 2001 From: YAMAMOTO Mitsuharu Date: Thu, 19 Oct 2006 08:02:23 +0000 Subject: *** empty log message *** --- lisp/ChangeLog | 6 ++++++ lisp/term/mac-win.el | 9 ++++++--- 2 files changed, 12 insertions(+), 3 deletions(-) (limited to 'lisp') diff --git a/lisp/ChangeLog b/lisp/ChangeLog index ef70b48a19..7aeb848712 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,9 @@ +2006-10-19 YAMAMOTO Mitsuharu + + * version.el (emacs-version): Use mac-carbon-version-string. + + * term/macterm.el (res-geometry): Apply 2006-10-18 change for x-win.el. + 2006-10-19 Jan Dj,Ad(Brv * select.el (ccl-check-utf-8, string-utf-8-p): New functions diff --git a/lisp/term/mac-win.el b/lisp/term/mac-win.el index bda2e398cb..3f67c2c661 100644 --- a/lisp/term/mac-win.el +++ b/lisp/term/mac-win.el @@ -2526,12 +2526,15 @@ ascii:-*-Monaco-*-*-*-*-12-*-*-*-*-*-mac-roman") (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)))))) -- cgit v1.2.3