Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-19 03:17:36 +00:00
Code Issues Projects Releases Packages Wiki Activity

(standard-fontset-spec): Name changed from

Browse source 
default-fontset-spec.
This commit is contained in:
Kenichi Handa 1997-05-16 00:59:15 +00:00
parent 78eee0edd1
commit acfb10b843
1 changed files with 8 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
lisp/international/fontset.el
View file

@ -24,7 +24,7 @@
;;; Code:
;; Set default REGISTRY property of charset to find an appropriate
;; Set standard REGISTRY property of charset to find an appropriate
;; font for each charset. This is used to generate a font name in a
;; fontset. If the value contains a character `-', the string before
;; that is embeded in `CHARSET_REGISTRY' field, and the string after
@ -363,10 +363,10 @@ by modifying FONTSET-SPEC appropriately. STYLE can be one of `bold',
))
;; Create default fontset from 16 dots fonts which are the most widely
;; Create standard fontset from 16 dots fonts which are the most widely
;; installed fonts.
(defvar default-fontset-spec
"-*-fixed-medium-r-normal-*-16-*-*-*-*-*-fontset-default,
(defvar standard-fontset-spec
"-*-fixed-medium-r-normal-*-16-*-*-*-*-*-fontset-standard,
chinese-gb2312:-*-medium-r-normal-*-16-*-gb2312*-*,
korean-ksc5601:-*-medium-r-normal-*-16-*-ksc5601*-*,
chinese-cns11643-1:-*-medium-r-normal-*-16-*-cns11643*-1,
@ -376,13 +376,15 @@ by modifying FONTSET-SPEC appropriately. STYLE can be one of `bold',
chinese-cns11643-5:-*-medium-r-normal-*-16-*-cns11643*-5,
chinese-cns11643-6:-*-medium-r-normal-*-16-*-cns11643*-6,
chinese-cns11643-7:-*-medium-r-normal-*-16-*-cns11643*-7"
"String of fontset spec of a default fontset.
"String of fontset spec of the standard fontset.
You have the biggest chance to display international characters
with correct glyphs by using the standard fontset.
See the documentation of `create-fontset-from-fontset-spec' for the format.")
;; Create fontsets from X resources of the name `fontset-N (class
;; Fontset-N)' where N is integer 0, 1, ...
;; The values of the resources the string of the same format as
;; `default-fontset-spec'.
;; `standard-fontset-spec'.
(defun create-fontset-from-x-resource ()
(let ((idx 0)