From 885fef7c13e415dd8a9fb5c77add007c414bacff Mon Sep 17 00:00:00 2001
From: Kenichi Handa <handa@m17n.org>
Date: Sat, 25 Oct 2003 02:42:26 +0000
Subject: [PATCH] (Fontsets): Add description of the function set-fontset-font.

---
 lispref/ChangeLog    |  5 +++++
 lispref/display.texi | 31 +++++++++++++++++++++++++++++++
 2 files changed, 36 insertions(+)

diff --git a/lispref/ChangeLog b/lispref/ChangeLog
index fa271dcf506..7818775f669 100644
--- a/lispref/ChangeLog
+++ b/lispref/ChangeLog
@@ -1,3 +1,8 @@
+2003-10-25  Kenichi Handa  <handa@m17n.org>
+
+	* display.texi (Fontsets): Add description of the function
+	set-fontset-font.
+
 2003-10-23  Luc Teirlinck  <teirllm@auburn.edu>
 
 	* display.texi (Temporary Displays): Add xref to `Documentation
diff --git a/lispref/display.texi b/lispref/display.texi
index 105d7e6d3e6..48628f6b5b7 100644
--- a/lispref/display.texi
+++ b/lispref/display.texi
@@ -2459,6 +2459,37 @@ Then, the font specifications for all but Chinese GB2312 characters have
 Chinese GB2312 characters has a wild card @samp{*} in the @var{family}
 field.
 
+@defun set-fontset-font name character fontname &optional frame
+This function modifies the existing fontset @var{name} to
+use the font name @var{fontname} for the character @var{character}.
+
+If @var{name} is nil, this function modifies the default
+fontset of which short name is "fontset-default".
+
+@var{character} may be a cons; @samp{(@var{from}
+. @var{to})}, where @var{from} and @var{to} are non-generic
+characters.  In that case, use @var{fontname} for all
+characters in the range @var{from} and @var{to} (inclusive).
+
+@var{character} may be a charset.  In that case, use
+@var{fontname} for all character in the charsets.
+
+@var{fontname} may be a cons; @samp{(@var{family}
+. @var{registry})}, where @var{family} is a family name of a
+font (possibly including a foundry name at the head),
+@var{registry} is a registry name of a font (possibly
+including an encoding name at the tail).
+
+For instance, this changes the default fontset to use a font
+of which registry name is "JISX0208.1983" for all characters
+belonging to the charset `japanese-jisx0208'.
+
+@example
+(set-fontset-font nil 'japanese-jisx0208 '(nil . "JISX0208.1983"))
+@end example
+
+@end defun
+
 @defun char-displayable-p char
 This function returns @code{t} if Emacs ought to be able to display
 @var{char}.  More precisely, if the selected frame's fontset has a
-- 
2.39.2