From 7ed4e9a73248e14707059855470e47d1432efa7d Mon Sep 17 00:00:00 2001 From: Jason Rumney Date: Sun, 23 Jan 2000 03:28:57 +0000 Subject: (w32_create_initial_fontsets): Disabled as it conflicts with new face support. --- lisp/term/w32-win.el | 160 +++++++++++++++++++++++++-------------------------- 1 file changed, 80 insertions(+), 80 deletions(-) (limited to 'lisp/term') diff --git a/lisp/term/w32-win.el b/lisp/term/w32-win.el index 849b0bd1a6..a3eb26a780 100644 --- a/lisp/term/w32-win.el +++ b/lisp/term/w32-win.el @@ -165,7 +165,7 @@ Switch to a buffer editing the last file dropped." (y (cdr coords))) (if (and (> x 0) (> y 0)) (set-frame-selected-window nil window)) - (mapcar 'find-file (car (cdr (cdr event))))) + (mapcar 'find-file (car (cdr (cdr event))))) (raise-frame))) (defun w32-drag-n-drop-other-frame (event) @@ -641,85 +641,85 @@ languages which are distributed with Windows as \"Multilanguage Support\". See the documentation of `create-fontset-from-fontset-spec for the format.") -(if (fboundp 'new-fontset) - (progn - (defun w32-create-initial-fontsets () - "Create fontset-startup, fontset-standard and any fontsets -specified in X resources." - ;; Create the standard fontset. - (create-fontset-from-fontset-spec w32-standard-fontset-spec t) - - ;; Create fontset specified in X resources "Fontset-N" (N is 0, 1,...). - (create-fontset-from-x-resource) - - ;; Try to create a fontset from a font specification which comes - ;; from initial-frame-alist, default-frame-alist, or X resource. - ;; A font specification in command line argument (i.e. -fn XXXX) - ;; should be already in default-frame-alist as a `font' - ;; parameter. However, any font specifications 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"))) - xlfd-fields resolved-name) - (if (and font - (not (query-fontset font)) - (setq resolved-name (x-resolve-font-name font)) - (setq xlfd-fields (x-decompose-font-name font))) - (if (string= "fontset" - (aref xlfd-fields xlfd-regexp-registry-subnum)) - (new-fontset font - (x-complement-fontset-spec xlfd-fields nil)) - ;; Create a fontset from FONT. The fontset name is - ;; generated from FONT. Create style variants of the - ;; fontset too. Font names in the variants are - ;; generated automatially unless X resources - ;; XXX.attribyteFont explicitly specify them. - (let ((styles (mapcar 'car x-style-funcs-alist)) - (faces '(bold italic bold-italic)) - face face-font fontset fontset-spec) - (while faces - (setq face (car faces)) - (setq face-font (x-get-resource (concat (symbol-name face) - ".attributeFont") - "Face.AttributeFont")) - (if face-font - (setq styles (cons (cons face face-font) - (delq face styles)))) - (setq faces (cdr faces))) - (aset xlfd-fields xlfd-regexp-foundry-subnum nil) - (aset xlfd-fields xlfd-regexp-family-subnum nil) - (aset xlfd-fields xlfd-regexp-registry-subnum "fontset") - (aset xlfd-fields xlfd-regexp-encoding-subnum "startup") - ;; The fontset name should have concrete values in - ;; weight and slant field. - (let ((weight (aref xlfd-fields xlfd-regexp-weight-subnum)) - (slant (aref xlfd-fields xlfd-regexp-slant-subnum)) - xlfd-temp) - (if (or (not weight) (string-match "[*?]*" weight)) - (progn - (setq xlfd-temp - (x-decompose-font-name resolved-name)) - (aset xlfd-fields xlfd-regexp-weight-subnum - (aref xlfd-temp xlfd-regexp-weight-subnum)))) - (if (or (not slant) (string-match "[*?]*" slant)) - (progn - (or xlfd-temp - (setq xlfd-temp - (x-decompose-font-name resolved-name))) - (aset xlfd-fields xlfd-regexp-slant-subnum - (aref xlfd-temp xlfd-regexp-slant-subnum))))) - (setq fontset (x-compose-font-name xlfd-fields)) - (create-fontset-from-fontset-spec - (concat fontset ", ascii:" font) styles) - ))))) - ;; This cannot be run yet, as creating fontsets requires a - ;; Window to be initialised so the fonts can be listed. - ;; Add it to a hook so it gets run later. - (add-hook 'before-init-hook 'w32-create-initial-fontsets) - )) +; (if (fboundp 'new-fontset) +; (progn +; (defun w32-create-initial-fontsets () +; "Create fontset-startup, fontset-standard and any fontsets +; specified in X resources." +; ;; Create the standard fontset. +; (create-fontset-from-fontset-spec w32-standard-fontset-spec t) + +; ;; Create fontset specified in X resources "Fontset-N" (N is 0, 1,...). +; (create-fontset-from-x-resource) + +; ;; Try to create a fontset from a font specification which comes +; ;; from initial-frame-alist, default-frame-alist, or X resource. +; ;; A font specification in command line argument (i.e. -fn XXXX) +; ;; should be already in default-frame-alist as a `font' +; ;; parameter. However, any font specifications 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"))) +; xlfd-fields resolved-name) +; (if (and font +; (not (query-fontset font)) +; (setq resolved-name (x-resolve-font-name font)) +; (setq xlfd-fields (x-decompose-font-name font))) +; (if (string= "fontset" +; (aref xlfd-fields xlfd-regexp-registry-subnum)) +; (new-fontset font +; (x-complement-fontset-spec xlfd-fields nil)) +; ;; Create a fontset from FONT. The fontset name is +; ;; generated from FONT. Create style variants of the +; ;; fontset too. Font names in the variants are +; ;; generated automatially unless X resources +; ;; XXX.attribyteFont explicitly specify them. +; (let ((styles (mapcar 'car x-style-funcs-alist)) +; (faces '(bold italic bold-italic)) +; face face-font fontset fontset-spec) +; (while faces +; (setq face (car faces)) +; (setq face-font (x-get-resource (concat (symbol-name face) +; ".attributeFont") +; "Face.AttributeFont")) +; (if face-font +; (setq styles (cons (cons face face-font) +; (delq face styles)))) +; (setq faces (cdr faces))) +; (aset xlfd-fields xlfd-regexp-foundry-subnum nil) +; (aset xlfd-fields xlfd-regexp-family-subnum nil) +; (aset xlfd-fields xlfd-regexp-registry-subnum "fontset") +; (aset xlfd-fields xlfd-regexp-encoding-subnum "startup") +; ;; The fontset name should have concrete values in +; ;; weight and slant field. +; (let ((weight (aref xlfd-fields xlfd-regexp-weight-subnum)) +; (slant (aref xlfd-fields xlfd-regexp-slant-subnum)) +; xlfd-temp) +; (if (or (not weight) (string-match "[*?]*" weight)) +; (progn +; (setq xlfd-temp +; (x-decompose-font-name resolved-name)) +; (aset xlfd-fields xlfd-regexp-weight-subnum +; (aref xlfd-temp xlfd-regexp-weight-subnum)))) +; (if (or (not slant) (string-match "[*?]*" slant)) +; (progn +; (or xlfd-temp +; (setq xlfd-temp +; (x-decompose-font-name resolved-name))) +; (aset xlfd-fields xlfd-regexp-slant-subnum +; (aref xlfd-temp xlfd-regexp-slant-subnum))))) +; (setq fontset (x-compose-font-name xlfd-fields)) +; (create-fontset-from-fontset-spec +; (concat fontset ", ascii:" font) styles) +; ))))) +; ;; This cannot be run yet, as creating fontsets requires a +; ;; Window to be initialised so the fonts can be listed. +; ;; Add it to a hook so it gets run later. +; (add-hook 'before-init-hook 'w32-create-initial-fontsets) +; )) ;; Apply a geometry resource to the initial frame. Put it at the end ;; of the alist, so that anything specified on the command line takes -- cgit v1.2.3