in that frame; otherwise change each frame."
(interactive (internal-face-interactive "font"))
(if (stringp font)
- (setq font (or (and (not (eq window-system 'w32))
- (resolve-fontset-name font))
+ (setq font (or (resolve-fontset-name font)
(x-resolve-font-name font 'default frame))))
(internal-set-face-1 face 'font font 3 frame)
;; Record that this face's font was set explicitly, not automatically,
in that frame; otherwise change each frame."
(interactive (internal-face-interactive "font"))
(if (stringp font)
- (setq font (or (and (not (eq window-system 'w32))
- (resolve-fontset-name font))
+ (setq font (or (resolve-fontset-name font)
(x-resolve-font-name font 'default frame))))
(internal-set-face-1 face 'font font 3 frame))
(let ((faces (sort (face-list) (function string-lessp)))
(face nil)
(frame (selected-frame))
- disp-frame window)
+ disp-frame window
+ (face-name-max-length
+ (car (sort (mapcar (function string-width)
+ (mapcar (function symbol-name) (face-list)))
+ (function >)))))
(with-output-to-temp-buffer "*Faces*"
(save-excursion
(set-buffer standard-output)
(while faces
(setq face (car faces))
(setq faces (cdr faces))
- (insert (format "%25s " (symbol-name face)))
+ (insert (format
+ (format "%%-%ds "
+ face-name-max-length)
+ (symbol-name face)))
(let ((beg (point)))
(insert list-faces-sample-text)
(insert "\n")
(goto-char beg)
(forward-line 1)
(while (not (eobp))
- (insert " ")
+ (insert-char ? (1+ face-name-max-length))
(forward-line 1))))
(goto-char (point-min)))
(print-help-return-message))
(defun frame-set-background-mode (frame)
"Set up the `background-mode' and `display-type' frame parameters for FRAME."
- (unless (memq (framep frame) '(t pc))
+ (unless (eq (framep frame) t)
(let ((bg-resource (x-get-resource ".backgroundMode"
"BackgroundMode"))
(params (frame-parameters frame))