comparison lisp/term/w32-win.el @ 27404:dc6ba3cab915

(w32_create_initial_fontsets): Disabled as it conflicts with new face support.

27403:220407a99b21

	   (coords (posn-x-y (event-start event)))
	   (x (car coords))
	   (y (cdr coords)))
      (if (and (> x 0) (> y 0))
	  (set-frame-selected-window nil window))
      (mapcar 'find-file (car (cdr (cdr event)))))
  (raise-frame)))

(defun w32-drag-n-drop-other-frame (event)
  "Edit the files listed in the drag-n-drop event, in other frames.
May create new frames, or reuse existing ones.  The frame editing

fontset consisting of the Courier New variations for European
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)
      ))

;; 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
;; precedence.
(let* ((res-geometry (x-get-resource "geometry" "Geometry"))

27404:dc6ba3cab915

	   (coords (posn-x-y (event-start event)))
	   (x (car coords))
	   (y (cdr coords)))
      (if (and (> x 0) (> y 0))
	  (set-frame-selected-window nil window))
    (mapcar 'find-file (car (cdr (cdr event)))))
  (raise-frame)))

(defun w32-drag-n-drop-other-frame (event)
  "Edit the files listed in the drag-n-drop event, in other frames.
May create new frames, or reuse existing ones.  The frame editing

fontset consisting of the Courier New variations for European
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)
;       ))

;; 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
;; precedence.
(let* ((res-geometry (x-get-resource "geometry" "Geometry"))