From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: "Drew Adams" Newsgroups: gmane.emacs.bugs Subject: bug#14032: 24.3.50; regression: `modify-frame-parameters' no longer works correctly Date: Fri, 22 Mar 2013 11:57:17 -0700 Message-ID: <4A3C3DCFC6FB4848AEB33045882CAF17@us.oracle.com> NNTP-Posting-Host: plane.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset="us-ascii" Content-Transfer-Encoding: 7bit X-Trace: ger.gmane.org 1363978690 28743 80.91.229.3 (22 Mar 2013 18:58:10 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Fri, 22 Mar 2013 18:58:10 +0000 (UTC) To: 14032@debbugs.gnu.org Original-X-From: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Fri Mar 22 19:58:37 2013 Return-path: Envelope-to: geb-bug-gnu-emacs@m.gmane.org Original-Received: from lists.gnu.org ([208.118.235.17]) by plane.gmane.org with esmtp (Exim 4.69) (envelope-from ) id 1UJ7Ai-0003Bh-An for geb-bug-gnu-emacs@m.gmane.org; Fri, 22 Mar 2013 19:58:36 +0100 Original-Received: from localhost ([::1]:37505 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1UJ7AK-0000mn-Vi for geb-bug-gnu-emacs@m.gmane.org; Fri, 22 Mar 2013 14:58:12 -0400 Original-Received: from eggs.gnu.org ([208.118.235.92]:33313) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1UJ7AG-0000ls-V4 for bug-gnu-emacs@gnu.org; Fri, 22 Mar 2013 14:58:10 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1UJ7AE-0003AA-Hj for bug-gnu-emacs@gnu.org; Fri, 22 Mar 2013 14:58:08 -0400 Original-Received: from debbugs.gnu.org ([140.186.70.43]:37108) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1UJ7AE-0003A6-EZ for bug-gnu-emacs@gnu.org; Fri, 22 Mar 2013 14:58:06 -0400 Original-Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.72) (envelope-from ) id 1UJ7C7-0000dr-DD for bug-gnu-emacs@gnu.org; Fri, 22 Mar 2013 15:00:03 -0400 X-Loop: help-debbugs@gnu.org Resent-From: "Drew Adams" Original-Sender: debbugs-submit-bounces@debbugs.gnu.org Resent-CC: bug-gnu-emacs@gnu.org Resent-Date: Fri, 22 Mar 2013 19:00:02 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: report 14032 X-GNU-PR-Package: emacs X-GNU-PR-Keywords: X-Debbugs-Original-To: Original-Received: via spool by submit@debbugs.gnu.org id=B.13639787792406 (code B ref -1); Fri, 22 Mar 2013 19:00:02 +0000 Original-Received: (at submit) by debbugs.gnu.org; 22 Mar 2013 18:59:39 +0000 Original-Received: from localhost ([127.0.0.1]:41217 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.72) (envelope-from ) id 1UJ7Bg-0000cj-KT for submit@debbugs.gnu.org; Fri, 22 Mar 2013 14:59:37 -0400 Original-Received: from eggs.gnu.org ([208.118.235.92]:50069) by debbugs.gnu.org with esmtp (Exim 4.72) (envelope-from ) id 1UJ7Bb-0000cX-Up for submit@debbugs.gnu.org; Fri, 22 Mar 2013 14:59:34 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1UJ79g-000349-7o for submit@debbugs.gnu.org; Fri, 22 Mar 2013 14:57:34 -0400 Original-Received: from lists.gnu.org ([208.118.235.17]:47080) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1UJ79g-000342-3O for submit@debbugs.gnu.org; Fri, 22 Mar 2013 14:57:32 -0400 Original-Received: from eggs.gnu.org ([208.118.235.92]:33197) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1UJ79a-0000ki-Po for bug-gnu-emacs@gnu.org; Fri, 22 Mar 2013 14:57:32 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1UJ79Z-00032O-16 for bug-gnu-emacs@gnu.org; Fri, 22 Mar 2013 14:57:26 -0400 Original-Received: from userp1040.oracle.com ([156.151.31.81]:47600) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1UJ79Y-00032G-OE for bug-gnu-emacs@gnu.org; Fri, 22 Mar 2013 14:57:24 -0400 Original-Received: from ucsinet22.oracle.com (ucsinet22.oracle.com [156.151.31.94]) by userp1040.oracle.com (Sentrion-MTA-4.3.1/Sentrion-MTA-4.3.1) with ESMTP id r2MIvNZs024438 (version=TLSv1/SSLv3 cipher=DHE-RSA-AES256-SHA bits=256 verify=OK) for ; Fri, 22 Mar 2013 18:57:23 GMT Original-Received: from acsmt357.oracle.com (acsmt357.oracle.com [141.146.40.157]) by ucsinet22.oracle.com (8.14.4+Sun/8.14.4) with ESMTP id r2MIvM29028160 (version=TLSv1/SSLv3 cipher=DHE-RSA-AES256-SHA bits=256 verify=NO) for ; Fri, 22 Mar 2013 18:57:22 GMT Original-Received: from abhmt116.oracle.com (abhmt116.oracle.com [141.146.116.68]) by acsmt357.oracle.com (8.12.11.20060308/8.12.11) with ESMTP id r2MIvL9K003297 for ; Fri, 22 Mar 2013 13:57:22 -0500 Original-Received: from dradamslap1 (/10.159.248.227) by default (Oracle Beehive Gateway v4.0) with ESMTP ; Fri, 22 Mar 2013 11:57:21 -0700 X-Mailer: Microsoft Office Outlook 11 Thread-Index: Ac4nLxLyn8Ui+11VQEGVjvjKDSK5Aw== X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2900.6157 X-Source-IP: ucsinet22.oracle.com [156.151.31.94] X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.4.x-2.6.x [generic] X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.6.x X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.13 Precedence: list X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.6.x X-Received-From: 140.186.70.43 X-BeenThere: bug-gnu-emacs@gnu.org List-Id: "Bug reports for GNU Emacs, the Swiss army knife of text editors" List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Original-Sender: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.bugs:72800 Archived-At: I have tried to debug this by walking through the debugger. When I do that step by step I cannot repro the problem. The debugger is in a separate frame on my setup, and no doubt that interferes with reproducing the problem. If I hit `c' in the debugger for the `modify-frame-parameters' step then the problem appears. If I hit `d' instead (so I step through) then the problem does not show. The problem is that `modify-frame-parameters', given an alist with explicit `height' and `width' values, ignores these and seems to instead apply the height and width of `default-frame-alist' (that's a guess). Here is the value of (frame-parameters) after `m-f-p' has incorrectly changed the size: ((top . 0) (left . 0) (buried-buffer-list #) (buffer-list # # # # #) (width . 80) (height . 37) ; <========================== WRONG (tool-bar-position . top) (parent-id) (explicit-name . t) (display . "w32") (visibility . t) (icon-name) (window-id . "14026254") (unsplittable) (minibuffer) (modeline . t) (name . "frame-fns.el") (cursor-color . "Red") (background-mode . light) (display-type . color) (fringe . 0) (alpha) (scroll-bar-width . 19) (cursor-type . bar) (auto-lower) (auto-raise) (icon-type) (fullscreen) (title) (buffer-predicate) (tool-bar-lines . 0) (menu-bar-lines . 1) (right-fringe . 0) (left-fringe . 0) (line-spacing) (screen-gamma) (border-color . "black") (mouse-color . "Red") (background-color . "LightBlue") (foreground-color . "Black") (vertical-scroll-bars . right) (internal-border-width . 0) (border-width . 2) (font . "-outline-Lucida Console-normal-normal-normal-mono-14-*-*-*-c-*-is= o8859-1") (font-parameter . "-*-Lucida Console-normal-r-*-*-14-112-96-96-c-*-iso8859= -1") (font-backend uniscribe gdi)) And here is the backtrace at the point where `m-f-p' has finished.=20=20 You can see the parameter values that *should* have been set, and contrast them with those shown above, which are the values that were actually set. Note, for example, that the height was set to 37 and not to 57 as was requested. Debugger entered--returning value: nil modify-frame-parameters(# ((top . 0) (left .= 0) (buried-buffer-list #) (buffer-list # # # # #) (width . 80) (height . 57) (tool-bar-positi= on . top) (parent-id) (explicit-name . t) (display . "w32") (visibility . t= ) (icon-name) (window-id . "14026254") (unsplittable) (minibuffer) (modelin= e . t) (name . "frame-fns.el") (cursor-color . "Red") (background-mode . li= ght) (display-type . color) (fringe . 0) (alpha) (scroll-bar-width . 19) (c= ursor-type . bar) (auto-lower) (auto-raise) (icon-type) (fullscreen) (title= ) (buffer-predicate) (tool-bar-lines . 0) (menu-bar-lines . 1) (right-fring= e . 0) (left-fringe . 0) (line-spacing) (screen-gamma) (border-color . "bla= ck") (mouse-color . "Red") (background-color . "LightBlue") (foreground-col= or . "Black") (vertical-scroll-bars . right) (internal-border-width . 0) (b= order-width . 2) (font . "-outline-Lucida Console-normal-normal-normal-mono= -14-*-*-*-c-*-iso8859-1") (font-parameter . "-*-Lucida Console-normal-r-*-*= -14-112-96-96-c-*-iso8859-1") (font-backend uniscribe gdi))) * (progn (enlarge-font thumfr-font-difference frame) (modify-frame-paramete= rs frame non-tf-params)) * (condition-case thumfr-dethumbify-frame (progn (enlarge-font thumfr-font-= difference frame) (modify-frame-parameters frame non-tf-params)) (error (if= fr+non-tf-params (progn (add-to-list (quote thumfr-thumbnail-frames) fr+no= n-tf-params))) (setq thumfr-non-thumbnail-frames (delq fr+tf-params thumfr-= non-thumbnail-frames)) (error (error-message-string thumfr-dethumbify-frame= )))) * (progn (add-to-list (quote thumfr-non-thumbnail-frames) fr+tf-params) (se= tq thumfr-thumbnail-frames (delq fr+non-tf-params thumfr-thumbnail-frames))= (condition-case thumfr-dethumbify-frame (progn (enlarge-font thumfr-font-d= ifference frame) (modify-frame-parameters frame non-tf-params)) (error (if = fr+non-tf-params (progn (add-to-list (quote thumfr-thumbnail-frames) fr+non= -tf-params))) (setq thumfr-non-thumbnail-frames (delq fr+tf-params thumfr-n= on-thumbnail-frames)) (error (error-message-string thumfr-dethumbify-frame)= ))) (select-frame-set-input-focus frame) (thumfr-only-raise-frame frame)) * (if fr+non-tf-params (progn (add-to-list (quote thumfr-non-thumbnail-fram= es) fr+tf-params) (setq thumfr-thumbnail-frames (delq fr+non-tf-params thum= fr-thumbnail-frames)) (condition-case thumfr-dethumbify-frame (progn (enlar= ge-font thumfr-font-difference frame) (modify-frame-parameters frame non-tf= -params)) (error (if fr+non-tf-params (progn (add-to-list (quote thumfr-thu= mbnail-frames) fr+non-tf-params))) (setq thumfr-non-thumbnail-frames (delq = fr+tf-params thumfr-non-thumbnail-frames)) (error (error-message-string thu= mfr-dethumbify-frame)))) (select-frame-set-input-focus frame) (thumfr-only-= raise-frame frame))) * (let* ((fr+non-tf-params (assoc frame thumfr-thumbnail-frames)) (non-tf-p= arams (cdr fr+non-tf-params)) (tf-params (frame-parameters frame)) (fr+tf-p= arams (cons frame tf-params))) (if fr+non-tf-params (progn (add-to-list (qu= ote thumfr-non-thumbnail-frames) fr+tf-params) (setq thumfr-thumbnail-frame= s (delq fr+non-tf-params thumfr-thumbnail-frames)) (condition-case thumfr-d= ethumbify-frame (progn (enlarge-font thumfr-font-difference frame) (modify-= frame-parameters frame non-tf-params)) (error (if fr+non-tf-params (progn (= add-to-list ... fr+non-tf-params))) (setq thumfr-non-thumbnail-frames (delq= fr+tf-params thumfr-non-thumbnail-frames)) (error (error-message-string th= umfr-dethumbify-frame)))) (select-frame-set-input-focus frame) (thumfr-only= -raise-frame frame)))) * (lambda (&optional frame) "Restore thumbnail FRAME to original size (defa= ult: selected frame)." (interactive) (setq frame (or frame (selected-frame)= )) (let* ((fr+non-tf-params (assoc frame thumfr-thumbnail-frames)) (non-tf-= params (cdr fr+non-tf-params)) (tf-params (frame-parameters frame)) (fr+tf-= params (cons frame tf-params))) (if fr+non-tf-params (progn (add-to-list (q= uote thumfr-non-thumbnail-frames) fr+tf-params) (setq thumfr-thumbnail-fram= es (delq fr+non-tf-params thumfr-thumbnail-frames)) (condition-case thumfr-= dethumbify-frame (progn (enlarge-font thumfr-font-difference frame) (modify= -frame-parameters frame non-tf-params)) (error (if fr+non-tf-params (progn = ...)) (setq thumfr-non-thumbnail-frames (delq fr+tf-params thumfr-non-thumb= nail-frames)) (error (error-message-string thumfr-dethumbify-frame)))) (sel= ect-frame-set-input-focus frame) (thumfr-only-raise-frame frame)))))(#) * apply((lambda (&optional frame) "Restore thumbnail FRAME to original size= (default: selected frame)." (interactive) (setq frame (or frame (selected-= frame))) (let* ((fr+non-tf-params (assoc frame thumfr-thumbnail-frames)) (n= on-tf-params (cdr fr+non-tf-params)) (tf-params (frame-parameters frame)) (= fr+tf-params (cons frame tf-params))) (if fr+non-tf-params (progn (add-to-l= ist (quote thumfr-non-thumbnail-frames) fr+tf-params) (setq thumfr-thumbnai= l-frames (delq fr+non-tf-params thumfr-thumbnail-frames)) (condition-case t= humfr-dethumbify-frame (progn (enlarge-font thumfr-font-difference frame) (= modify-frame-parameters frame non-tf-params)) (error (if fr+non-tf-params (= progn ...)) (setq thumfr-non-thumbnail-frames (delq fr+tf-params thumfr-non= -thumbnail-frames)) (error (error-message-string thumfr-dethumbify-frame)))= ) (select-frame-set-input-focus frame) (thumfr-only-raise-frame frame))))) = #) * thumfr-dethumbify-frame(#) (if (assoc frame thumfr-thumbnail-frames) (thumfr-dethumbify-frame frame)= (thumfr-thumbify-frame frame)) thumfr-toggle-thumbnail-frame() ad-Advice-iconify-or-deiconify-frame(#[nil "..." [visibility frame-parame= ters t iconify-frame make-frame-visible] 2 897398 nil]) apply(ad-Advice-iconify-or-deiconify-frame #[nil "..." [visibility frame-= parameters t iconify-frame make-frame-visible] 2 897398 nil] nil) iconify-or-deiconify-frame() (if iconify-all (iconify-everything) (if rename-frame-when-iconify-flag (= progn (rename-non-minibuffer-frame))) (iconify-or-deiconify-frame)) iconify/map-frame(nil) call-interactively(iconify/map-frame nil nil) command-execute(iconify/map-frame) In GNU Emacs 24.3.50.1 (i386-mingw-nt5.1.2600) of 2013-03-17 on ODIEONE Bzr revision: 112068 michael.albinus@gmx.de-20130317173046-sgy1bmmkkizorqby Windowing system distributor `Microsoft Corp.', version 5.1.2600 Configured using: `configure --with-gcc (4.7) --no-opt --enable-checking --cflags -IC:/Devel/emacs/build/include --ldflags -LC:/Devel/emacs/build/lib'