From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!.POSTED!not-for-mail From: Marco Wahl Newsgroups: gmane.emacs.help Subject: Re: Changing font size of all the buffers including the status line and the characters shown in electric-buffer Date: Wed, 10 Oct 2018 14:28:26 +0200 Organization: Aioe.org NNTP Server Message-ID: <8436tef0k5.fsf@gmail.com> References: NNTP-Posting-Host: blaine.gmane.org Mime-Version: 1.0 Content-Type: text/plain X-Trace: blaine.gmane.org 1539174525 18005 195.159.176.226 (10 Oct 2018 12:28:45 GMT) X-Complaints-To: usenet@blaine.gmane.org NNTP-Posting-Date: Wed, 10 Oct 2018 12:28:45 +0000 (UTC) User-Agent: Gnus/5.13 (Gnus v5.13) To: help-gnu-emacs@gnu.org Original-X-From: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Wed Oct 10 14:28:41 2018 Return-path: Envelope-to: geh-help-gnu-emacs@m.gmane.org Original-Received: from lists.gnu.org ([208.118.235.17]) by blaine.gmane.org with esmtp (Exim 4.84_2) (envelope-from ) id 1gADbS-0004WQ-9J for geh-help-gnu-emacs@m.gmane.org; Wed, 10 Oct 2018 14:28:38 +0200 Original-Received: from localhost ([::1]:57051 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1gADdY-0000Np-OX for geh-help-gnu-emacs@m.gmane.org; Wed, 10 Oct 2018 08:30:48 -0400 Original-Path: usenet.stanford.edu!goblin2!goblin.stu.neva.ru!aioe.org!.POSTED!not-for-mail Original-Newsgroups: gnu.emacs.help Original-Lines: 44 Original-NNTP-Posting-Host: ESbnWO2keewT5ZTrqCSfLQ.user.gioia.aioe.org Original-X-Complaints-To: abuse@aioe.org X-Notice: Filtered by postfilter v. 0.8.3 Cancel-Lock: sha1:+/6yhgq0Ne0HV2UXEfys6g0VlaA= Original-Xref: usenet.stanford.edu gnu.emacs.help:224114 X-BeenThere: help-gnu-emacs@gnu.org X-Mailman-Version: 2.1.21 Precedence: list List-Id: Users list for the GNU Emacs text editor List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Original-Sender: "help-gnu-emacs" Xref: news.gmane.org gmane.emacs.help:118240 Archived-At: Hi! "ISHIKAWA,chiaki" writes: > It is the font size of Emacs. The default is way too small on this 4K > display and I would like to show the characters and big and > beautiful. There are times when I want to see as many characters > possible. But most of the times, I want to see big and crisp > characters due to my age. Occasionally I use these functions to increase/decrease the font size in Emacs and in particular in the modeline. (defun mw-increase-face-height () (interactive) (let ((before-height (face-attribute 'default :height))) (cl-loop while (and (< change 42) (= before-height (face-attribute 'default :height))) with change = 1 do (progn (set-face-attribute 'default nil :height (max 1 (+ before-height change))) (sit-for 0)) (cl-incf change)) (message "face height: %d" (face-attribute 'default :height)))) (defun mw-decrease-face-height () (interactive) (let ((before-height (face-attribute 'default :height))) (cl-loop while (and (< change 42) (= before-height (face-attribute 'default :height))) with change = 1 do (progn (set-face-attribute 'default nil :height (max 1 (- before-height change))) (sit-for 0)) (cl-incf change))) (message "face height: %d" (face-attribute 'default :height))) HTH and ciao, Marco