GNU bug report logs - #2845
23.0.91; NS: 'Set Default Font' not preserved

Previous Next

Package: emacs;

Reported by: albie <at> alfarrabio.di.uminho.pt

Date: Wed, 1 Apr 2009 20:35:02 UTC

Severity: normal

Tags: confirmed

Merged with 2891, 4295, 22939, 23366, 43480

Found in versions 25.0.92, 25.0.93, 27.1

Done: Alan Third <alan <at> idiocy.org>

Bug is archived. No further changes may be made.

Full log

View this message in rfc822 format

From: David Reitter <david.reitter <at> gmail.com>
To: 2845 <at> debbugs.gnu.org,
        Alberto Simões <albie <at> alfarrabio.di.uminho.pt>
Subject: bug#2845: 23.0.91; NS: 'Set Default Font' not preserved
Date: Tue, 28 Apr 2009 09:21:53 -0400

[Message part 1 (text/plain, inline)]
Hello Alberto,
> I have an emacs built from cvs (one week old, probably) for MacOS  
> (NS). I am trying to use the Options > Set Default Font Followed by  
> Options > Save Options to change the default emacs font (size).

Does the following bit of code solve the problem for you?

(defun ns-respond-to-change-font ()
  "Respond to changeFont: event, expecting ns-input-font and\n\
ns-input-fontsize of new font."
  (interactive)
  (let ((face 'default))
    (set-face-attribute face t
			:family ns-input-font
			:height (* 10 ns-input-fontsize))
    (set-face-attribute face (selected-frame)
			:family ns-input-font
			:height (* 10 ns-input-fontsize))
    (let ((spec
	   (list (list t (face-attr-construct 'default)))))
      (put face 'customized-face spec)
      (custom-push-theme 'theme-face face 'user 'set spec)
      (put face 'face-modified nil))))


[smime.p7s (application/pkcs7-signature, attachment)]
This bug report was last modified 4 years and 236 days ago.

Previous Next

GNU bug tracking system
Copyright (C) 1999 Darren O. Benham, 1997,2003 nCipher Corporation Ltd, 1994-97 Ian Jackson.