From: Ivan Kanis <ivank@juliva.com>
Subject: Re: Toggle Fonts without font-menue
Date: 25 Sep 2002 19:45:49 +0200 [thread overview]
Message-ID: <87elbi55f6.fsf@juliva.com> (raw)
In-Reply-To: 32cc3ecd.0209250004.7f15c144@posting.google.com
David> Well yes, the fontset solution is probably more elegant!
David> But I'm not really an expert in these things and simply
David> switching the default is an easy way of obtaining my
David> goal.
Well I am embarassed to post this code here because it is butt
ugly. It seems to do what you want. You just need to replace "fixed"
and "adobe-...." with the fonts you need. It is bound to C-c j but you
can bind to whatever key combination you want. Hope you find it
useful.
(global-set-key "\C-cj" 'my-toggle-font)
; Toggle between large and small font, the large font is useful for reading
; Japanese
(setq ivan-fixed-font t)
(defun my-toggle-font()
(interactive)
(if (eval 'ivan-fixed-font)
(progn
(set-frame-font "-adobe-courier-medium-r-normal--*-240-*-*-m-*-iso8859-1")
;; TBD remove hard coded value!
(set-frame-height (selected-frame) 47)
(setq ivan-fixed-font nil))
(progn
(set-frame-font "fixed")
;; TBD remove hard coded value!
(set-frame-height (selected-frame) 87)
(setq ivan-fixed-font t))))
prev parent reply other threads:[~2002-09-25 17:45 UTC|newest]
Thread overview: 4+ messages / expand[flat|nested] mbox.gz Atom feed top
2002-09-23 14:50 Toggle Fonts without font-menue David Feest
2002-09-24 0:17 ` Jesper Harder
2002-09-25 8:04 ` David Feest
2002-09-25 17:45 ` Ivan Kanis [this message]
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=87elbi55f6.fsf@juliva.com \
--to=ivank@juliva.com \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this external index
https://git.savannah.gnu.org/cgit/emacs.git
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.