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#16028: 24.3.50; Latest build completely breaks my thumnail frames code Date: Tue, 10 Dec 2013 06:50:19 -0800 (PST) Message-ID: <941b1292-a5c6-442d-afe8-d83aebf4b41c@default> References: <746cd4cb-c69d-4cff-8dee-f7ccde3cb2f4@default> <52A1E5A6.3010901@gmx.at> <52A1F967.5070403@gmx.at> <6ee939f5-138d-4e5c-830e-8a20f8e45bea@default> <52A207C5.4070404@gmx.at> <12e899a3-dbf2-4b44-9b87-a0b9fc24f317@default> <52A2EE7B.4030105@gmx.at> <723644fb-f171-4bed-b8d0-7f9a1c8b9f7d@default> <52A4428F.4030101@gmx.at> <600e7b0c-73bb-4163-8d03-a8579f250045@default> <52A4B23E.9080609@gmx.at> <837gbeymiy.fsf@gnu.org> <52A60DD2.1020303@gmx.at> <83r49lxsxf.fsf@gnu.org> <52A6ED85.8020206@gmx.at> <52A6F1C4.3040803@gmx.at> NNTP-Posting-Host: plane.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii Content-Transfer-Encoding: quoted-printable X-Trace: ger.gmane.org 1386687414 14284 80.91.229.3 (10 Dec 2013 14:56:54 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Tue, 10 Dec 2013 14:56:54 +0000 (UTC) Cc: 16028@debbugs.gnu.org To: martin rudalics , Eli Zaretskii Original-X-From: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Tue Dec 10 15:56:58 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 1VqOk5-0002FD-AP for geb-bug-gnu-emacs@m.gmane.org; Tue, 10 Dec 2013 15:56:57 +0100 Original-Received: from localhost ([::1]:49583 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1VqOk4-0001jV-Ur for geb-bug-gnu-emacs@m.gmane.org; Tue, 10 Dec 2013 09:56:56 -0500 Original-Received: from eggs.gnu.org ([2001:4830:134:3::10]:50526) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1VqOeV-00011V-Oa for bug-gnu-emacs@gnu.org; Tue, 10 Dec 2013 09:51:20 -0500 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1VqOeN-00032U-5Y for bug-gnu-emacs@gnu.org; Tue, 10 Dec 2013 09:51:11 -0500 Original-Received: from debbugs.gnu.org ([140.186.70.43]:55792) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1VqOeM-00032P-TR for bug-gnu-emacs@gnu.org; Tue, 10 Dec 2013 09:51:03 -0500 Original-Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.80) (envelope-from ) id 1VqOeM-0001X8-Ku for bug-gnu-emacs@gnu.org; Tue, 10 Dec 2013 09:51:02 -0500 X-Loop: help-debbugs@gnu.org Resent-From: Drew Adams Original-Sender: "Debbugs-submit" Resent-CC: bug-gnu-emacs@gnu.org Resent-Date: Tue, 10 Dec 2013 14:51:02 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: followup 16028 X-GNU-PR-Package: emacs X-GNU-PR-Keywords: Original-Received: via spool by 16028-submit@debbugs.gnu.org id=B16028.13866870285852 (code B ref 16028); Tue, 10 Dec 2013 14:51:02 +0000 Original-Received: (at 16028) by debbugs.gnu.org; 10 Dec 2013 14:50:28 +0000 Original-Received: from localhost ([127.0.0.1]:41578 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.80) (envelope-from ) id 1VqOdm-0001WJ-Dp for submit@debbugs.gnu.org; Tue, 10 Dec 2013 09:50:27 -0500 Original-Received: from userp1040.oracle.com ([156.151.31.81]:46351) by debbugs.gnu.org with esmtp (Exim 4.80) (envelope-from ) id 1VqOdi-0001W9-NC for 16028@debbugs.gnu.org; Tue, 10 Dec 2013 09:50:23 -0500 Original-Received: from ucsinet21.oracle.com (ucsinet21.oracle.com [156.151.31.93]) by userp1040.oracle.com (Sentrion-MTA-4.3.1/Sentrion-MTA-4.3.1) with ESMTP id rBAEoKSd003259 (version=TLSv1/SSLv3 cipher=DHE-RSA-AES256-SHA bits=256 verify=OK); Tue, 10 Dec 2013 14:50:21 GMT Original-Received: from aserz7021.oracle.com (aserz7021.oracle.com [141.146.126.230]) by ucsinet21.oracle.com (8.14.4+Sun/8.14.4) with ESMTP id rBAEoJIB017064 (version=TLSv1/SSLv3 cipher=DHE-RSA-AES256-SHA bits=256 verify=NO); Tue, 10 Dec 2013 14:50:20 GMT Original-Received: from abhmp0016.oracle.com (abhmp0016.oracle.com [141.146.116.22]) by aserz7021.oracle.com (8.14.4+Sun/8.14.4) with ESMTP id rBAEoJcA002722; Tue, 10 Dec 2013 14:50:19 GMT In-Reply-To: <52A6F1C4.3040803@gmx.at> X-Priority: 3 X-Mailer: Oracle Beehive Extensions for Outlook 2.0.1.8 (707110) [OL 12.0.6680.5000 (x86)] X-Source-IP: ucsinet21.oracle.com [156.151.31.93] X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.15 Precedence: list X-detected-operating-system: by eggs.gnu.org: GNU/Linux 3.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:81673 Archived-At: > (defun enlarged-font-name (fontname frame increment) > "FONTNAME, after enlarging font size of FRAME by INCREMENT. > FONTNAME is the font of FRAME." > (when (query-fontset fontname) > (let ((ascii (assq 'ascii (aref (fontset-info fontname frame) 2)))) > (when ascii (setq fontname (nth 2 ascii))))) > (let ((xlfd-fields (x-decompose-font-name fontname))) > (unless xlfd-fields (error "Cannot decompose font name")) > (let ((new-size (+ (string-to-number > (aref xlfd-fields xlfd-regexp-pixelsize-subnum)= ) > increment))) > (unless (> new-size 0) (signal 'font-too-small (list new-size))) > (aset xlfd-fields xlfd-regexp-pixelsize-subnum > (number-to-string new-size))) > ;; Set point size & width to "*", so frame width adjusts to new font > (aset xlfd-fields xlfd-regexp-pointsize-subnum "*") > (aset xlfd-fields xlfd-regexp-avgwidth-subnum "*") > (x-compose-font-name xlfd-fields))) >=20 > (defun enlarge-font-by (increment) > (let* ((old-font (cdr (assq 'font (frame-parameters (selected-frame)))= )) > =09 (new-font (enlarged-font-name old-font (selected-frame) > increment))) > (modify-frame-parameters > (selected-frame) (list (cons 'font new-font) > =09=09=09 (cons 'scroll-bar-width 6))))) >=20 > (enlarge-font-by -4) And this seems to compensate for the bug, at least with the above recipe: (defun enlarge-font-by (increment) (let* ((old-font (cdr (assq 'font (frame-parameters (selected-frame))))) =09 (new-font (enlarged-font-name old-font (selected-frame) increment))) (modify-frame-parameters (selected-frame) (list (cons 'scroll-bar-width 6))) (modify-frame-parameters (selected-frame) (list (cons 'font new-font))))) Switch the order of the two calls to `modify-frame-parameters' and the bug is manifested again.