comparison lisp/menu-bar.el @ 102312:473a26ad93a9

(menu-set-font): Fix last fix.

102311:d54a31f60e54

  (let ((font (if (fboundp 'x-select-font)
  		  (x-select-font)
  		(mouse-select-font)))
	spec)
    (when font
      ;; We used to call set-face-attribute with a nil argument here,
      ;; but this does the wrong thing (Bug#2476).  The reason is
      ;; subtle: when Emacs looks for a font matching the `font'
      ;; argument, it tries to guess the best matching font by
      ;; examining the other face attributes.  The attributes for
      ;; future frames are generally unspecified, so this matching
      ;; process works poorly.  What we do instead is assign `font' to
      ;; the selected frame, then use that font object and assign it
      ;; to all other frames (and to future frames).
      (set-face-attribute 'default (selected-frame) :font font)
      (let ((font-object (face-attribute 'default :font)))
	(dolist (f (frame-list))
	  (and (not (eq f (selected-frame)))
	       (display-graphic-p f)
	       (set-face-attribute 'default f :font font-object)))

102312:473a26ad93a9

  (let ((font (if (fboundp 'x-select-font)
  		  (x-select-font)
  		(mouse-select-font)))
	spec)
    (when font
      ;; Be careful here: when set-face-attribute is called for the
      ;; :font attribute, Emacs tries to guess the best matching font
      ;; by examining the other face attributes (Bug#2476).
      (set-face-attribute 'default (selected-frame)
			  :width 'normal
			  :weight 'normal
			  :slant 'normal
			  :font font)
      (let ((font-object (face-attribute 'default :font)))
	(dolist (f (frame-list))
	  (and (not (eq f (selected-frame)))
	       (display-graphic-p f)
	       (set-face-attribute 'default f :font font-object)))