comparison lisp/term/x-win.el @ 17014:828cf55629fc

Require fontset. Create fontsets from default-fontset-spec, X resources, and "-fn" command line argument.

17013:d6ce795e84da

(require 'mouse)
(require 'scroll-bar)
(require 'faces)
(require 'select)
(require 'menu-bar)

(defvar x-invocation-args)

(defvar x-command-line-resources nil)

(setq frame-creation-function 'x-create-frame-with-faces)

(setq x-cut-buffer-max (min (- (/ (x-server-max-request-size) 2) 100)
			    x-cut-buffer-max))

;; Sun expects the menu bar cut and paste commands to use the clipboard.
;; This has ,? to match both on Sunos and on Solaris.
(if (string-match "Sun Microsystems,? Inc\\."
		  (x-server-vendor))
    (menu-bar-enable-clipboard))

17014:828cf55629fc

(require 'mouse)
(require 'scroll-bar)
(require 'faces)
(require 'select)
(require 'menu-bar)
(require 'fontset)

(defvar x-invocation-args)

(defvar x-command-line-resources nil)

(setq frame-creation-function 'x-create-frame-with-faces)

(setq x-cut-buffer-max (min (- (/ (x-server-max-request-size) 2) 100)
			    x-cut-buffer-max))

;; Create a default fontset.
(create-fontset-from-fontset-spec default-fontset-spec)

;; Create fontset specified in X resources.
(create-fontset-from-x-resource)

;; Try to create a fontset from font specification which comes from
;; initial-frame-alist, default-frame-alist, or X resource if the font
;; name conforms to XLFD and the registry part is `fontset'.  A font
;; specification in command line argument (-fn XXXX) should be in
;; default-frame-alist already.  However, any font specification in
;; site-start library, user's init file (.emacs), and default.el are
;; not yet handled here.

(let ((font (or (cdr (assq 'font initial-frame-alist))
		(cdr (assq 'font default-frame-alist))
		(x-get-resource "font" "Font")
		(x-get-resource "fontset" "Fontset")))
      xlfd-fields fontlist)
  (if (and font
	   (not (query-fontset font))
	   (setq xlfd-fields (x-decompose-font-name font)))
      (progn
	(if (not (string= "fontset"
			  (aref xlfd-fields xlfd-regexp-registry-subnum)))
	    (progn
	      ;; Create a fontset of the name FONT.
	      (setq fontlist (list (cons 'ascii font)))
	      (aset xlfd-fields xlfd-regexp-foundry-subnum nil)
	      (aset xlfd-fields xlfd-regexp-family-subnum nil)
	      (aset xlfd-fields xlfd-regexp-adstyle-subnum nil)
	      (aset xlfd-fields xlfd-regexp-avgwidth-subnum nil)))
	(new-fontset font (x-complement-fontset-spec xlfd-fields fontlist)))))

;; Sun expects the menu bar cut and paste commands to use the clipboard.
;; This has ,? to match both on Sunos and on Solaris.
(if (string-match "Sun Microsystems,? Inc\\."
		  (x-server-vendor))
    (menu-bar-enable-clipboard))