[bpt/emacs.git] / lisp / nxml / nxml-glyph.el

;;; nxml-glyph.el --- glyph-handling for nxml-mode

;; Copyright (C) 2003, 2007-2013 Free Software Foundation, Inc.

;; Author: James Clark
;; Keywords: XML

;; This file is part of GNU Emacs.

;; GNU Emacs is free software: you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation, either version 3 of the License, or
;; (at your option) any later version.

;; GNU Emacs is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
;; GNU General Public License for more details.

;; You should have received a copy of the GNU General Public License
;; along with GNU Emacs.  If not, see <http://www.gnu.org/licenses/>.

;;; Commentary:

;; The entry point to this file is `nxml-glyph-display-string'.
;; The current implementation is heuristic due to a lack of
;; Emacs primitives necessary to implement it properly.  The user
;; can tweak the heuristics using `nxml-glyph-set-functions'.

;;; Code:

(defconst nxml-ascii-glyph-set
  [(#x0020 . #x007E)])

(defconst nxml-latin1-glyph-set
  [(#x0020 . #x007E)
   (#x00A0 . #x00FF)])

;; These were generated by using nxml-insert-target-repertoire-glyph-set
;; on the TARGET[123] files in
;; http://www.cl.cam.ac.uk/~mgk25/download/ucs-fonts.tar.gz

(defconst nxml-misc-fixed-1-glyph-set
  [(#x0020 . #x007E)
   (#x00A0 . #x00FF)
   (#x0100 . #x017F)
   #x018F #x0192
   (#x0218 . #x021B)
   #x0259
   (#x02C6 . #x02C7)
   (#x02D8 . #x02DD)
   (#x0374 . #x0375)
   #x037A #x037E
   (#x0384 . #x038A)
   #x038C
   (#x038E . #x03A1)
   (#x03A3 . #x03CE)
   (#x0401 . #x040C)
   (#x040E . #x044F)
   (#x0451 . #x045C)
   (#x045E . #x045F)
   (#x0490 . #x0491)
   (#x05D0 . #x05EA)
   (#x1E02 . #x1E03)
   (#x1E0A . #x1E0B)
   (#x1E1E . #x1E1F)
   (#x1E40 . #x1E41)
   (#x1E56 . #x1E57)
   (#x1E60 . #x1E61)
   (#x1E6A . #x1E6B)
   (#x1E80 . #x1E85)
   (#x1EF2 . #x1EF3)
   (#x2010 . #x2022)
   #x2026 #x2030
   (#x2039 . #x203A)
   #x20AC #x2116 #x2122 #x2126
   (#x215B . #x215E)
   (#x2190 . #x2193)
   #x2260
   (#x2264 . #x2265)
   (#x23BA . #x23BD)
   (#x2409 . #x240D)
   #x2424 #x2500 #x2502 #x250C #x2510 #x2514 #x2518 #x251C #x2524 #x252C #x2534 #x253C #x2592 #x25C6 #x266A #xFFFD]
  "Glyph set for TARGET1 glyph repertoire of misc-fixed-* font.
This repertoire is supported for the bold and oblique fonts.")

(defconst nxml-misc-fixed-2-glyph-set
  [(#x0020 . #x007E)
   (#x00A0 . #x00FF)
   (#x0100 . #x017F)
   #x018F #x0192
   (#x01FA . #x01FF)
   (#x0218 . #x021B)
   #x0259
   (#x02C6 . #x02C7)
   #x02C9
   (#x02D8 . #x02DD)
   (#x0300 . #x0311)
   (#x0374 . #x0375)
   #x037A #x037E
   (#x0384 . #x038A)
   #x038C
   (#x038E . #x03A1)
   (#x03A3 . #x03CE)
   #x03D1
   (#x03D5 . #x03D6)
   #x03F1
   (#x0401 . #x040C)
   (#x040E . #x044F)
   (#x0451 . #x045C)
   (#x045E . #x045F)
   (#x0490 . #x0491)
   (#x05D0 . #x05EA)
   (#x1E02 . #x1E03)
   (#x1E0A . #x1E0B)
   (#x1E1E . #x1E1F)
   (#x1E40 . #x1E41)
   (#x1E56 . #x1E57)
   (#x1E60 . #x1E61)
   (#x1E6A . #x1E6B)
   (#x1E80 . #x1E85)
   (#x1EF2 . #x1EF3)
   (#x2010 . #x2022)
   #x2026 #x2030
   (#x2032 . #x2034)
   (#x2039 . #x203A)
   #x203C #x203E #x2044
   (#x2070 . #x2071)
   (#x2074 . #x208E)
   (#x20A3 . #x20A4)
   #x20A7 #x20AC
   (#x20D0 . #x20D7)
   #x2102 #x2105 #x2113
   (#x2115 . #x2116)
   #x211A #x211D #x2122 #x2124 #x2126 #x212E
   (#x215B . #x215E)
   (#x2190 . #x2195)
   (#x21A4 . #x21A8)
   (#x21D0 . #x21D5)
   (#x2200 . #x2209)
   (#x220B . #x220C)
   #x220F
   (#x2211 . #x2213)
   #x2215
   (#x2218 . #x221A)
   (#x221D . #x221F)
   #x2221
   (#x2224 . #x222B)
   #x222E #x223C #x2243 #x2245
   (#x2248 . #x2249)
   #x2259
   (#x225F . #x2262)
   (#x2264 . #x2265)
   (#x226A . #x226B)
   (#x2282 . #x228B)
   #x2295 #x2297
   (#x22A4 . #x22A7)
   (#x22C2 . #x22C3)
   #x22C5 #x2300 #x2302
   (#x2308 . #x230B)
   #x2310
   (#x2320 . #x2321)
   (#x2329 . #x232A)
   (#x23BA . #x23BD)
   (#x2409 . #x240D)
   #x2424 #x2500 #x2502 #x250C #x2510 #x2514 #x2518 #x251C #x2524 #x252C #x2534 #x253C
   (#x254C . #x2573)
   (#x2580 . #x25A1)
   (#x25AA . #x25AC)
   (#x25B2 . #x25B3)
   #x25BA #x25BC #x25C4 #x25C6
   (#x25CA . #x25CB)
   #x25CF
   (#x25D8 . #x25D9)
   #x25E6
   (#x263A . #x263C)
   #x2640 #x2642 #x2660 #x2663
   (#x2665 . #x2666)
   (#x266A . #x266B)
   (#xFB01 . #xFB02)
   #xFFFD]
  "Glyph set for TARGET2 glyph repertoire of the misc-fixed-* fonts.
This repertoire is supported for the following fonts:
5x7.bdf 5x8.bdf 6x9.bdf 6x10.bdf 6x12.bdf 7x13.bdf 7x14.bdf clR6x12.bdf")

(defconst nxml-misc-fixed-3-glyph-set
  [(#x0020 . #x007E)
   (#x00A0 . #x00FF)
   (#x0100 . #x01FF)
   (#x0200 . #x0220)
   (#x0222 . #x0233)
   (#x0250 . #x02AD)
   (#x02B0 . #x02EE)
   (#x0300 . #x034F)
   (#x0360 . #x036F)
   (#x0374 . #x0375)
   #x037A #x037E
   (#x0384 . #x038A)
   #x038C
   (#x038E . #x03A1)
   (#x03A3 . #x03CE)
   (#x03D0 . #x03F6)
   (#x0400 . #x0486)
   (#x0488 . #x04CE)
   (#x04D0 . #x04F5)
   (#x04F8 . #x04F9)
   (#x0500 . #x050F)
   (#x0531 . #x0556)
   (#x0559 . #x055F)
   (#x0561 . #x0587)
   (#x0589 . #x058A)
   (#x05B0 . #x05B9)
   (#x05BB . #x05C4)
   (#x05D0 . #x05EA)
   (#x05F0 . #x05F4)
   (#x10D0 . #x10F8)
   #x10FB
   (#x1E00 . #x1E9B)
   (#x1EA0 . #x1EF9)
   (#x1F00 . #x1F15)
   (#x1F18 . #x1F1D)
   (#x1F20 . #x1F45)
   (#x1F48 . #x1F4D)
   (#x1F50 . #x1F57)
   #x1F59 #x1F5B #x1F5D
   (#x1F5F . #x1F7D)
   (#x1F80 . #x1FB4)
   (#x1FB6 . #x1FC4)
   (#x1FC6 . #x1FD3)
   (#x1FD6 . #x1FDB)
   (#x1FDD . #x1FEF)
   (#x1FF2 . #x1FF4)
   (#x1FF6 . #x1FFE)
   (#x2000 . #x200A)
   (#x2010 . #x2027)
   (#x202F . #x2052)
   #x2057
   (#x205F . #x2063)
   (#x2070 . #x2071)
   (#x2074 . #x208E)
   (#x20A0 . #x20B1)
   (#x20D0 . #x20EA)
   (#x2100 . #x213A)
   (#x213D . #x214B)
   (#x2153 . #x2183)
   (#x2190 . #x21FF)
   (#x2200 . #x22FF)
   (#x2300 . #x23CE)
   (#x2400 . #x2426)
   (#x2440 . #x244A)
   (#x2500 . #x25FF)
   (#x2600 . #x2613)
   (#x2616 . #x2617)
   (#x2619 . #x267D)
   (#x2680 . #x2689)
   (#x27E6 . #x27EB)
   (#x27F5 . #x27FF)
   (#x2A00 . #x2A06)
   #x2A1D #x2A3F #x303F
   (#xFB00 . #xFB06)
   (#xFB13 . #xFB17)
   (#xFB1D . #xFB36)
   (#xFB38 . #xFB3C)
   #xFB3E
   (#xFB40 . #xFB41)
   (#xFB43 . #xFB44)
   (#xFB46 . #xFB4F)
   (#xFE20 . #xFE23)
   (#xFF61 . #xFF9F)
   #xFFFD]
  "Glyph set for TARGET3 glyph repertoire of the misc-fixed-* fonts.
This repertoire is supported for the following fonts:
6x13.bdf 8x13.bdf 9x15.bdf 9x18.bdf 10x20.bdf")

(defconst nxml-wgl4-glyph-set
  [(#x0020 . #x007E)
   (#x00A0 . #x017F)
   #x0192
   (#x01FA . #x01FF)
   (#x02C6 . #x02C7)
   #x02C9
   (#x02D8 . #x02DB)
   #x02DD
   (#x0384 . #x038A)
   #x038C
   (#x038E . #x03A1)
   (#x03A3 . #x03CE)
   (#x0401 . #x040C)
   (#x040E . #x044F)
   (#x0451 . #x045C)
   (#x045E . #x045F)
   (#x0490 . #x0491)
   (#x1E80 . #x1E85)
   (#x1EF2 . #x1EF3)
   (#x2013 . #x2015)
   (#x2017 . #x201E)
   (#x2020 . #x2022)
   #x2026 #x2030
   (#x2032 . #x2033)
   (#x2039 . #x203A)
   #x203C #x203E #x2044 #x207F
   (#x20A3 . #x20A4)
   #x20A7 #x20AC #x2105 #x2113 #x2116 #x2122 #x2126 #x212E
   (#x215B . #x215E)
   (#x2190 . #x2195)
   #x21A8 #x2202 #x2206 #x220F
   (#x2211 . #x2212)
   #x2215
   (#x2219 . #x221A)
   (#x221E . #x221F)
   #x2229 #x222B #x2248
   (#x2260 . #x2261)
   (#x2264 . #x2265)
   #x2302 #x2310
   (#x2320 . #x2321)
   #x2500 #x2502 #x250C #x2510 #x2514 #x2518 #x251C #x2524
   #x252C #x2534 #x253C
   (#x2550 . #x256C)
   #x2580 #x2584 #x2588 #x258C
   (#x2590 . #x2593)
   (#x25A0 . #x25A1)
   (#x25AA . #x25AC)
   #x25B2 #x25BA #x25BC #x25C4
   (#x25CA . #x25CB)
   #x25CF
   (#x25D8 . #x25D9)
   #x25E6
   (#x263A . #x263C)
   #x2640 #x2642 #x2660 #x2663
   (#x2665 . #x2666)
   (#x266A . #x266B)
   (#xFB01 . #xFB02)]
  "Glyph set corresponding to Windows Glyph List 4.")

(defvar nxml-glyph-set-functions nil
  "Abnormal hook for determining the set of glyphs in a face.
Each function in this hook is called in turn, unless one of them
returns non-nil.  Each function is called with a single argument
FACE.  If it can determine the set of glyphs representable by
FACE, it must set the variable `nxml-glyph-set' and return
non-nil.  Otherwise, it must return nil.

The constants `nxml-ascii-glyph-set', `nxml-latin1-glyph-set',
`nxml-misc-fixed-1-glyph-set', `nxml-misc-fixed-2-glyph-set',
`nxml-misc-fixed-3-glyph-set' and `nxml-wgl4-glyph-set' are
predefined for use by `nxml-glyph-set-functions'.")

(define-obsolete-variable-alias 'nxml-glyph-set-hook
  'nxml-glyph-set-functions "24.3")

(defvar nxml-glyph-set nil
  "Used by `nxml-glyph-set-functions' to return set of glyphs in a FACE.
This should dynamically bound by any function that runs
`nxml-glyph-set-functions'.  The value must be either nil representing an
empty set or a vector. Each member of the vector is either a single
integer or a cons (FIRST . LAST) representing the range of integers
from FIRST to LAST.  An integer represents a glyph with that Unicode
code-point.  The vector must be ordered.")

(defun nxml-x-set-glyph-set (face)
  (setq nxml-glyph-set
	(if (equal (face-attribute face :family) "misc-fixed")
	    nxml-misc-fixed-3-glyph-set
	  nxml-wgl4-glyph-set)))

(defun nxml-w32-set-glyph-set (face)
  (setq nxml-glyph-set nxml-wgl4-glyph-set))

(defun nxml-window-system-set-glyph-set (face)
  (setq nxml-glyph-set nxml-latin1-glyph-set))

(defun nxml-terminal-set-glyph-set (face)
  (setq nxml-glyph-set nxml-ascii-glyph-set))

(add-hook 'nxml-glyph-set-functions
	  (or (cdr (assq window-system
			 '((x . nxml-x-set-glyph-set)
			   (w32 . nxml-w32-set-glyph-set)
			   (nil . nxml-terminal-set-glyph-set))))
	      'nxml-window-system-set-glyph-set)
	  t)

;;;###autoload
(defun nxml-glyph-display-string (n face)
  "Return a string that can display a glyph for Unicode code-point N.
FACE gives the face that will be used for displaying the string.
Return nil if the face cannot display a glyph for N."
  (let ((nxml-glyph-set nil))
    (run-hook-with-args-until-success 'nxml-glyph-set-functions face)
    (and nxml-glyph-set
	 (nxml-glyph-set-contains-p n nxml-glyph-set)
	 (let ((ch (decode-char 'ucs n)))
	   (and ch (string ch))))))

(defun nxml-glyph-set-contains-p (n v)
  (let ((start 0)
	(end (length v))
	found mid mid-val mid-start-val mid-end-val)
    (while (> end start)
      (setq mid (+ start
		   (/ (- end start) 2)))
      (setq mid-val (aref v mid))
      (if (consp mid-val)
	  (setq mid-start-val (car mid-val)
		mid-end-val (cdr mid-val))
	(setq mid-start-val mid-val
	      mid-end-val mid-val))
      (cond ((and (<= mid-start-val n)
		  (<= n mid-end-val))
	     (setq found t)
	     (setq start end))
	    ((< n mid-start-val)
	     (setq end mid))
	    (t
	     (setq start
		   (if (eq start mid)
		       end
		     mid)))))
    found))

(provide 'nxml-glyph)

;;; nxml-glyph.el ends here
Commit	Line	Data
8cd39fb3 MH	1	;;; nxml-glyph.el --- glyph-handling for nxml-mode
8cd39fb3 MH	2
ab422c4d	3	;; Copyright (C) 2003, 2007-2013 Free Software Foundation, Inc.
8cd39fb3 MH	4
	5	;; Author: James Clark
	6	;; Keywords: XML
	7
cd3b63a5	8	;; This file is part of GNU Emacs.
8cd39fb3	9
4936186e	10	;; GNU Emacs is free software: you can redistribute it and/or modify
cd3b63a5	11	;; it under the terms of the GNU General Public License as published by
4936186e GM	12	;; the Free Software Foundation, either version 3 of the License, or
4936186e GM	13	;; (at your option) any later version.
8cd39fb3	14
cd3b63a5 GM	15	;; GNU Emacs is distributed in the hope that it will be useful,
	16	;; but WITHOUT ANY WARRANTY; without even the implied warranty of
	17	;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
	18	;; GNU General Public License for more details.
	19
	20	;; You should have received a copy of the GNU General Public License
4936186e	21	;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
8cd39fb3 MH	22
	23	;;; Commentary:
	24
	25	;; The entry point to this file is `nxml-glyph-display-string'.
	26	;; The current implementation is heuristic due to a lack of
	27	;; Emacs primitives necessary to implement it properly. The user
f1a4e679	28	;; can tweak the heuristics using `nxml-glyph-set-functions'.
8cd39fb3 MH	29
	30	;;; Code:
	31
	32	(defconst nxml-ascii-glyph-set
	33	[(#x0020 . #x007E)])
	34
	35	(defconst nxml-latin1-glyph-set
	36	[(#x0020 . #x007E)
	37	(#x00A0 . #x00FF)])
	38
	39	;; These were generated by using nxml-insert-target-repertoire-glyph-set
	40	;; on the TARGET[123] files in
	41	;; http://www.cl.cam.ac.uk/~mgk25/download/ucs-fonts.tar.gz
	42
	43	(defconst nxml-misc-fixed-1-glyph-set
	44	[(#x0020 . #x007E)
	45	(#x00A0 . #x00FF)
	46	(#x0100 . #x017F)
	47	#x018F #x0192
	48	(#x0218 . #x021B)
	49	#x0259
	50	(#x02C6 . #x02C7)
	51	(#x02D8 . #x02DD)
	52	(#x0374 . #x0375)
	53	#x037A #x037E
	54	(#x0384 . #x038A)
	55	#x038C
	56	(#x038E . #x03A1)
	57	(#x03A3 . #x03CE)
	58	(#x0401 . #x040C)
	59	(#x040E . #x044F)
	60	(#x0451 . #x045C)
	61	(#x045E . #x045F)
	62	(#x0490 . #x0491)
	63	(#x05D0 . #x05EA)
	64	(#x1E02 . #x1E03)
	65	(#x1E0A . #x1E0B)
	66	(#x1E1E . #x1E1F)
	67	(#x1E40 . #x1E41)
	68	(#x1E56 . #x1E57)
	69	(#x1E60 . #x1E61)
	70	(#x1E6A . #x1E6B)
	71	(#x1E80 . #x1E85)
	72	(#x1EF2 . #x1EF3)
	73	(#x2010 . #x2022)
	74	#x2026 #x2030
	75	(#x2039 . #x203A)
	76	#x20AC #x2116 #x2122 #x2126
	77	(#x215B . #x215E)
	78	(#x2190 . #x2193)
	79	#x2260
	80	(#x2264 . #x2265)
	81	(#x23BA . #x23BD)
	82	(#x2409 . #x240D)
	83	#x2424 #x2500 #x2502 #x250C #x2510 #x2514 #x2518 #x251C #x2524 #x252C #x2534 #x253C #x2592 #x25C6 #x266A #xFFFD]
	84	"Glyph set for TARGET1 glyph repertoire of misc-fixed-* font.
	85	This repertoire is supported for the bold and oblique fonts.")
	86
	87	(defconst nxml-misc-fixed-2-glyph-set
	88	[(#x0020 . #x007E)
	89	(#x00A0 . #x00FF)
	90	(#x0100 . #x017F)
	91	#x018F #x0192
	92	(#x01FA . #x01FF)
93	(#x0218 . #x021B)
94	#x0259
95	(#x02C6 . #x02C7)
96	#x02C9
97	(#x02D8 . #x02DD)
98	(#x0300 . #x0311)
99	(#x0374 . #x0375)
100	#x037A #x037E
101	(#x0384 . #x038A)
102	#x038C
103	(#x038E . #x03A1)
104	(#x03A3 . #x03CE)
105	#x03D1
106	(#x03D5 . #x03D6)
107	#x03F1
108	(#x0401 . #x040C)
109	(#x040E . #x044F)
110	(#x0451 . #x045C)
111	(#x045E . #x045F)
112	(#x0490 . #x0491)
113	(#x05D0 . #x05EA)
114	(#x1E02 . #x1E03)
115	(#x1E0A . #x1E0B)
116	(#x1E1E . #x1E1F)
117	(#x1E40 . #x1E41)
118	(#x1E56 . #x1E57)
119	(#x1E60 . #x1E61)
120	(#x1E6A . #x1E6B)
121	(#x1E80 . #x1E85)
122	(#x1EF2 . #x1EF3)
123	(#x2010 . #x2022)
124	#x2026 #x2030
125	(#x2032 . #x2034)
126	(#x2039 . #x203A)
127	#x203C #x203E #x2044
128	(#x2070 . #x2071)
129	(#x2074 . #x208E)
130	(#x20A3 . #x20A4)
131	#x20A7 #x20AC
132	(#x20D0 . #x20D7)
133	#x2102 #x2105 #x2113
134	(#x2115 . #x2116)
135	#x211A #x211D #x2122 #x2124 #x2126 #x212E
136	(#x215B . #x215E)
137	(#x2190 . #x2195)
138	(#x21A4 . #x21A8)
139	(#x21D0 . #x21D5)
140	(#x2200 . #x2209)
141	(#x220B . #x220C)
142	#x220F
143	(#x2211 . #x2213)
144	#x2215
145	(#x2218 . #x221A)
146	(#x221D . #x221F)
147	#x2221
148	(#x2224 . #x222B)
149	#x222E #x223C #x2243 #x2245
150	(#x2248 . #x2249)
151	#x2259
152	(#x225F . #x2262)
153	(#x2264 . #x2265)
154	(#x226A . #x226B)
155	(#x2282 . #x228B)
156	#x2295 #x2297
157	(#x22A4 . #x22A7)
158	(#x22C2 . #x22C3)
159	#x22C5 #x2300 #x2302
160	(#x2308 . #x230B)
161	#x2310
162	(#x2320 . #x2321)
163	(#x2329 . #x232A)
164	(#x23BA . #x23BD)
165	(#x2409 . #x240D)
166	#x2424 #x2500 #x2502 #x250C #x2510 #x2514 #x2518 #x251C #x2524 #x252C #x2534 #x253C
167	(#x254C . #x2573)
168	(#x2580 . #x25A1)
169	(#x25AA . #x25AC)
170	(#x25B2 . #x25B3)
171	#x25BA #x25BC #x25C4 #x25C6
172	(#x25CA . #x25CB)
173	#x25CF
174	(#x25D8 . #x25D9)
175	#x25E6
176	(#x263A . #x263C)
177	#x2640 #x2642 #x2660 #x2663
178	(#x2665 . #x2666)
179	(#x266A . #x266B)
180	(#xFB01 . #xFB02)
181	#xFFFD]
182	"Glyph set for TARGET2 glyph repertoire of the misc-fixed-* fonts.
183	This repertoire is supported for the following fonts:
184	5x7.bdf 5x8.bdf 6x9.bdf 6x10.bdf 6x12.bdf 7x13.bdf 7x14.bdf clR6x12.bdf")
185
186	(defconst nxml-misc-fixed-3-glyph-set
187	[(#x0020 . #x007E)
188	(#x00A0 . #x00FF)
189	(#x0100 . #x01FF)
190	(#x0200 . #x0220)
191	(#x0222 . #x0233)
192	(#x0250 . #x02AD)
193	(#x02B0 . #x02EE)
194	(#x0300 . #x034F)
195	(#x0360 . #x036F)
196	(#x0374 . #x0375)
197	#x037A #x037E
198	(#x0384 . #x038A)
199	#x038C
200	(#x038E . #x03A1)
201	(#x03A3 . #x03CE)
202	(#x03D0 . #x03F6)
203	(#x0400 . #x0486)
204	(#x0488 . #x04CE)
205	(#x04D0 . #x04F5)
206	(#x04F8 . #x04F9)
207	(#x0500 . #x050F)
208	(#x0531 . #x0556)
209	(#x0559 . #x055F)
210	(#x0561 . #x0587)
211	(#x0589 . #x058A)
212	(#x05B0 . #x05B9)
213	(#x05BB . #x05C4)
214	(#x05D0 . #x05EA)
215	(#x05F0 . #x05F4)
216	(#x10D0 . #x10F8)
217	#x10FB
218	(#x1E00 . #x1E9B)
219	(#x1EA0 . #x1EF9)
220	(#x1F00 . #x1F15)
221	(#x1F18 . #x1F1D)
222	(#x1F20 . #x1F45)
223	(#x1F48 . #x1F4D)
224	(#x1F50 . #x1F57)
225	#x1F59 #x1F5B #x1F5D
226	(#x1F5F . #x1F7D)
227	(#x1F80 . #x1FB4)
228	(#x1FB6 . #x1FC4)
229	(#x1FC6 . #x1FD3)
230	(#x1FD6 . #x1FDB)
231	(#x1FDD . #x1FEF)
232	(#x1FF2 . #x1FF4)
233	(#x1FF6 . #x1FFE)
234	(#x2000 . #x200A)
235	(#x2010 . #x2027)
236	(#x202F . #x2052)
237	#x2057
238	(#x205F . #x2063)
239	(#x2070 . #x2071)
240	(#x2074 . #x208E)
241	(#x20A0 . #x20B1)
242	(#x20D0 . #x20EA)
243	(#x2100 . #x213A)
244	(#x213D . #x214B)
245	(#x2153 . #x2183)
246	(#x2190 . #x21FF)
247	(#x2200 . #x22FF)
248	(#x2300 . #x23CE)
249	(#x2400 . #x2426)
250	(#x2440 . #x244A)
251	(#x2500 . #x25FF)
252	(#x2600 . #x2613)
253	(#x2616 . #x2617)
254	(#x2619 . #x267D)
255	(#x2680 . #x2689)
256	(#x27E6 . #x27EB)
257	(#x27F5 . #x27FF)
258	(#x2A00 . #x2A06)
259	#x2A1D #x2A3F #x303F
260	(#xFB00 . #xFB06)
261	(#xFB13 . #xFB17)
262	(#xFB1D . #xFB36)
263	(#xFB38 . #xFB3C)
264	#xFB3E
265	(#xFB40 . #xFB41)
266	(#xFB43 . #xFB44)
267	(#xFB46 . #xFB4F)
268	(#xFE20 . #xFE23)
269	(#xFF61 . #xFF9F)
270	#xFFFD]
271	"Glyph set for TARGET3 glyph repertoire of the misc-fixed-* fonts.
272	This repertoire is supported for the following fonts:
273	6x13.bdf 8x13.bdf 9x15.bdf 9x18.bdf 10x20.bdf")
10545bd8	274
8cd39fb3 MH	275	(defconst nxml-wgl4-glyph-set
	276	[(#x0020 . #x007E)
	277	(#x00A0 . #x017F)
	278	#x0192
	279	(#x01FA . #x01FF)
	280	(#x02C6 . #x02C7)
	281	#x02C9
	282	(#x02D8 . #x02DB)
	283	#x02DD
	284	(#x0384 . #x038A)
	285	#x038C
	286	(#x038E . #x03A1)
	287	(#x03A3 . #x03CE)
	288	(#x0401 . #x040C)
	289	(#x040E . #x044F)
	290	(#x0451 . #x045C)
	291	(#x045E . #x045F)
	292	(#x0490 . #x0491)
	293	(#x1E80 . #x1E85)
	294	(#x1EF2 . #x1EF3)
	295	(#x2013 . #x2015)
	296	(#x2017 . #x201E)
	297	(#x2020 . #x2022)
	298	#x2026 #x2030
	299	(#x2032 . #x2033)
	300	(#x2039 . #x203A)
	301	#x203C #x203E #x2044 #x207F
	302	(#x20A3 . #x20A4)
	303	#x20A7 #x20AC #x2105 #x2113 #x2116 #x2122 #x2126 #x212E
	304	(#x215B . #x215E)
	305	(#x2190 . #x2195)
	306	#x21A8 #x2202 #x2206 #x220F
	307	(#x2211 . #x2212)
	308	#x2215
	309	(#x2219 . #x221A)
	310	(#x221E . #x221F)
	311	#x2229 #x222B #x2248
	312	(#x2260 . #x2261)
	313	(#x2264 . #x2265)
	314	#x2302 #x2310
	315	(#x2320 . #x2321)
	316	#x2500 #x2502 #x250C #x2510 #x2514 #x2518 #x251C #x2524
	317	#x252C #x2534 #x253C
	318	(#x2550 . #x256C)
	319	#x2580 #x2584 #x2588 #x258C
	320	(#x2590 . #x2593)
	321	(#x25A0 . #x25A1)
	322	(#x25AA . #x25AC)
	323	#x25B2 #x25BA #x25BC #x25C4
	324	(#x25CA . #x25CB)
	325	#x25CF
	326	(#x25D8 . #x25D9)
	327	#x25E6
	328	(#x263A . #x263C)
	329	#x2640 #x2642 #x2660 #x2663
	330	(#x2665 . #x2666)
	331	(#x266A . #x266B)
	332	(#xFB01 . #xFB02)]
	333	"Glyph set corresponding to Windows Glyph List 4.")
	334
f1a4e679 CY	335	(defvar nxml-glyph-set-functions nil
	336	"Abnormal hook for determining the set of glyphs in a face.
	337	Each function in this hook is called in turn, unless one of them
	338	returns non-nil. Each function is called with a single argument
	339	FACE. If it can determine the set of glyphs representable by
	340	FACE, it must set the variable `nxml-glyph-set' and return
	341	non-nil. Otherwise, it must return nil.
	342
	343	The constants `nxml-ascii-glyph-set', `nxml-latin1-glyph-set',
8cd39fb3	344	`nxml-misc-fixed-1-glyph-set', `nxml-misc-fixed-2-glyph-set',
10545bd8	345	`nxml-misc-fixed-3-glyph-set' and `nxml-wgl4-glyph-set' are
f1a4e679 CY	346	predefined for use by `nxml-glyph-set-functions'.")
	347
	348	(define-obsolete-variable-alias 'nxml-glyph-set-hook
2a1e2476	349	'nxml-glyph-set-functions "24.3")
8cd39fb3 MH	350
8cd39fb3 MH	351	(defvar nxml-glyph-set nil
f1a4e679	352	"Used by `nxml-glyph-set-functions' to return set of glyphs in a FACE.
8cd39fb3	353	This should dynamically bound by any function that runs
f1a4e679	354	`nxml-glyph-set-functions'. The value must be either nil representing an
8cd39fb3 MH	355	empty set or a vector. Each member of the vector is either a single
	356	integer or a cons (FIRST . LAST) representing the range of integers
	357	from FIRST to LAST. An integer represents a glyph with that Unicode
	358	code-point. The vector must be ordered.")
	359
	360	(defun nxml-x-set-glyph-set (face)
	361	(setq nxml-glyph-set
	362	(if (equal (face-attribute face :family) "misc-fixed")
	363	nxml-misc-fixed-3-glyph-set
	364	nxml-wgl4-glyph-set)))
	365
	366	(defun nxml-w32-set-glyph-set (face)
	367	(setq nxml-glyph-set nxml-wgl4-glyph-set))
	368
	369	(defun nxml-window-system-set-glyph-set (face)
	370	(setq nxml-glyph-set nxml-latin1-glyph-set))
	371
	372	(defun nxml-terminal-set-glyph-set (face)
	373	(setq nxml-glyph-set nxml-ascii-glyph-set))
	374
f1a4e679	375	(add-hook 'nxml-glyph-set-functions
8cd39fb3 MH	376	(or (cdr (assq window-system
	377	'((x . nxml-x-set-glyph-set)
	378	(w32 . nxml-w32-set-glyph-set)
	379	(nil . nxml-terminal-set-glyph-set))))
	380	'nxml-window-system-set-glyph-set)
	381	t)
	382
	383	;;;###autoload
	384	(defun nxml-glyph-display-string (n face)
	385	"Return a string that can display a glyph for Unicode code-point N.
	386	FACE gives the face that will be used for displaying the string.
	387	Return nil if the face cannot display a glyph for N."
	388	(let ((nxml-glyph-set nil))
f1a4e679	389	(run-hook-with-args-until-success 'nxml-glyph-set-functions face)
8cd39fb3 MH	390	(and nxml-glyph-set
	391	(nxml-glyph-set-contains-p n nxml-glyph-set)
	392	(let ((ch (decode-char 'ucs n)))
	393	(and ch (string ch))))))
10545bd8	394
8cd39fb3 MH	395	(defun nxml-glyph-set-contains-p (n v)
	396	(let ((start 0)
	397	(end (length v))
	398	found mid mid-val mid-start-val mid-end-val)
	399	(while (> end start)
	400	(setq mid (+ start
	401	(/ (- end start) 2)))
	402	(setq mid-val (aref v mid))
	403	(if (consp mid-val)
	404	(setq mid-start-val (car mid-val)
	405	mid-end-val (cdr mid-val))
	406	(setq mid-start-val mid-val
	407	mid-end-val mid-val))
	408	(cond ((and (<= mid-start-val n)
	409	(<= n mid-end-val))
	410	(setq found t)
	411	(setq start end))
	412	((< n mid-start-val)
	413	(setq end mid))
	414	(t
	415	(setq start
	416	(if (eq start mid)
	417	end
	418	mid)))))
	419	found))
	420
	421	(provide 'nxml-glyph)
	422
	423	;;; nxml-glyph.el ends here