Mercurial > emacs

comparison lisp/frame.el @ 8521:340ebdb14a0e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(frame-notice-user-settings): If we change the frame's font, call frame-update-faces.
author Richard M. Stallman <rms@gnu.org>
date Thu, 11 Aug 1994 21:38:02 +0000
parents 32880f6bd87a
children 0496b5d4173c
comparison
equal deleted inserted replaced
8520:30a34f79f268 8521:340ebdb14a0e
321 (setq newval (cdr (assq (car (car tail)) allparms))) 321 (setq newval (cdr (assq (car (car tail)) allparms)))
322 (or (eq oldval newval) 322 (or (eq oldval newval)
323 (setq newparms 323 (setq newparms
324 (cons (cons (car (car tail)) newval) newparms)))) 324 (cons (cons (car (car tail)) newval) newparms))))
325 (setq tail (cdr tail))) 325 (setq tail (cdr tail)))
326 (setq newparms (nreverse newparms))
326 (modify-frame-parameters frame-initial-frame 327 (modify-frame-parameters frame-initial-frame
327 (nreverse newparms))))) 328 newparms)
329 (if (assq 'font newparms)
330 (frame-update-faces frame-initial-frame)))))
328 331
329 ;; Restore the original buffer. 332 ;; Restore the original buffer.
330 (set-buffer old-buffer) 333 (set-buffer old-buffer)
331 334
332 ;; Make sure the initial frame can be GC'd if it is ever deleted. 335 ;; Make sure the initial frame can be GC'd if it is ever deleted.