From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: martin rudalics Newsgroups: gmane.emacs.bugs Subject: bug#16028: 24.3.50; Latest build completely breaks my thumnail frames code Date: Tue, 10 Dec 2013 11:49:40 +0100 Message-ID: <52A6F1C4.3040803@gmx.at> 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> NNTP-Posting-Host: plane.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=ISO-8859-15; format=flowed Content-Transfer-Encoding: 7bit X-Trace: ger.gmane.org 1386672616 28325 80.91.229.3 (10 Dec 2013 10:50:16 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Tue, 10 Dec 2013 10:50:16 +0000 (UTC) Cc: 16028@debbugs.gnu.org To: Eli Zaretskii Original-X-From: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Tue Dec 10 11:50:21 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 1VqKtR-0007Md-KL for geb-bug-gnu-emacs@m.gmane.org; Tue, 10 Dec 2013 11:50:21 +0100 Original-Received: from localhost ([::1]:48356 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1VqKtR-000211-9H for geb-bug-gnu-emacs@m.gmane.org; Tue, 10 Dec 2013 05:50:21 -0500 Original-Received: from eggs.gnu.org ([2001:4830:134:3::10]:55908) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1VqKtG-00020Y-RZ for bug-gnu-emacs@gnu.org; Tue, 10 Dec 2013 05:50:18 -0500 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1VqKt9-00085B-Ay for bug-gnu-emacs@gnu.org; Tue, 10 Dec 2013 05:50:10 -0500 Original-Received: from debbugs.gnu.org ([140.186.70.43]:55667) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1VqKt9-00084S-7v for bug-gnu-emacs@gnu.org; Tue, 10 Dec 2013 05:50:03 -0500 Original-Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.80) (envelope-from ) id 1VqKt8-0002c9-O6 for bug-gnu-emacs@gnu.org; Tue, 10 Dec 2013 05:50:02 -0500 X-Loop: help-debbugs@gnu.org Resent-From: martin rudalics Original-Sender: "Debbugs-submit" Resent-CC: bug-gnu-emacs@gnu.org Resent-Date: Tue, 10 Dec 2013 10:50: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.138667259210021 (code B ref 16028); Tue, 10 Dec 2013 10:50:02 +0000 Original-Received: (at 16028) by debbugs.gnu.org; 10 Dec 2013 10:49:52 +0000 Original-Received: from localhost ([127.0.0.1]:41453 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.80) (envelope-from ) id 1VqKsy-0002bZ-3h for submit@debbugs.gnu.org; Tue, 10 Dec 2013 05:49:52 -0500 Original-Received: from mout.gmx.net ([212.227.17.22]:57856) by debbugs.gnu.org with esmtp (Exim 4.80) (envelope-from ) id 1VqKsw-0002bP-Pf for 16028@debbugs.gnu.org; Tue, 10 Dec 2013 05:49:51 -0500 Original-Received: from [62.47.46.21] ([62.47.46.21]) by mail.gmx.com (mrgmx001) with ESMTPSA (Nemesis) id 0LtJAR-1VRdAc2TAR-012sdY for <16028@debbugs.gnu.org>; Tue, 10 Dec 2013 11:49:49 +0100 In-Reply-To: <52A6ED85.8020206@gmx.at> X-Provags-ID: V03:K0:w0UCBqDT/I/hiCi37k0lfDMN0FdHRU7/mvPauPmkjBH+3D3wEhU Oaj1oSQx2xFOnCOuXzKuBdLUYRsrNZJWRFem7WJrODoSK/TsZ3PAWwZiRL5IfCzo6Mzd24/ 4mRjjfgKlChykz9v5d88/NVT0aL/5HEH8ERvBedw0ujPOmFrQD/NxAI1RXFO1n4P20obX54 uxkGLN7nK32IwIC8NrFjw== 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:81668 Archived-At: Yet simpler: (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))) (defun enlarge-font-by (increment) (let* ((old-font (cdr (assq 'font (frame-parameters (selected-frame))))) (new-font (enlarged-font-name old-font (selected-frame) increment))) (modify-frame-parameters (selected-frame) (list (cons 'font new-font) (cons 'scroll-bar-width 6))))) (enlarge-font-by -4)