changeset 33373:701833d4b661

*** empty log message ***
author Gerd Moellmann <gerd@gnu.org>
date Fri, 10 Nov 2000 15:00:47 +0000
parents 2a665186a9e9
children 1666541ea9be
files etc/NEWS lisp/ChangeLog lispref/display.texi src/ChangeLog
diffstat 4 files changed, 40 insertions(+), 5 deletions(-) [+]
line wrap: on
line diff
--- a/etc/NEWS	Fri Nov 10 14:40:10 2000 +0000
+++ b/etc/NEWS	Fri Nov 10 15:00:47 2000 +0000
@@ -1825,6 +1825,10 @@
 * Lisp changes made after edition 2.6 of the Emacs Lisp Manual,
 (Display-related features are described in a page of their own below.)
 
++++
+** The user-option `face-font-registry-alternatives' specifies
+alternative font registry names to try when looking for a font.
+
 ** Function `md5' calculates the MD5 "message digest"/"checksum",
 currently using the `md5sum' program.
 
@@ -2882,9 +2886,10 @@
 width specified by a face, then---within fonts with that width---tries
 to find a best match for the specified font height, etc.
 
-Setting `face-alternative-font-family-alist' allows the user to
-specify alternative font families to try if a family specified by a
-face doesn't exist.
+Setting `face-font-family-alternatives' allows the user to specify
+alternative font families to try if a family specified by a face
+doesn't exist.  Likewise, `face-font-registry-alternatives' allows to
+specify alternative font registry names to try.
 
 +++
 **** Scalable fonts
--- a/lisp/ChangeLog	Fri Nov 10 14:40:10 2000 +0000
+++ b/lisp/ChangeLog	Fri Nov 10 15:00:47 2000 +0000
@@ -1,3 +1,7 @@
+2000-11-10  Gerd Moellmann  <gerd@gnu.org>
+
+	* faces.el (face-font-registry-alternatives): New user-option.
+
 2000-11-10  Stefan Monnier  <monnier@cs.yale.edu>
 
 	* textmodes/texinfo.el (texinfo-block-default): New var.
--- a/lispref/display.texi	Fri Nov 10 14:40:10 2000 +0000
+++ b/lispref/display.texi	Fri Nov 10 15:00:47 2000 +0000
@@ -1857,8 +1857,8 @@
 quite right.
 @end defvar
 
-@defvar face-alternative-font-family-alist
-@tindex face-alternative-font-family-alist
+@defvar face-font-family-alternatives
+@tindex face-font-family-alternatives
 This variable lets you specify alternative font families to try, if a
 given family is specified and doesn't exist.  Each element should have
 this form:
@@ -1872,6 +1872,21 @@
 family that does exist.
 @end defvar
 
+@defvar face-font-registry-alternatives
+@tindex face-font-registry-alternatives
+This variable lets you specify alternative font registries to try, if a
+given registry is specified and doesn't exist.  Each element should have
+this form:
+
+@example
+(@var{registry} @var{alternate-registries}@dots{})
+@end example
+
+If @var{registry} is specified but not available, Emacs will try the
+other registries given in @var{alternate-registries}, one by one,
+until it finds a registry that does exist.
+@end defvar
+
   Emacs can make use of scalable fonts, but by default it does not use
 them, since the use of too many or too big scalable fonts can crash
 XFree86 servers.
--- a/src/ChangeLog	Fri Nov 10 14:40:10 2000 +0000
+++ b/src/ChangeLog	Fri Nov 10 15:00:47 2000 +0000
@@ -1,3 +1,14 @@
+2000-11-10  Gerd Moellmann  <gerd@gnu.org>
+
+	* xfaces.c (Vface_alternative_font_registry_alist): New variable.
+	(font_list_1): Renamed from font_list.
+	(font_list): New function, trying alternative registries from
+	Vface_alternative_font_registry_alist.
+	(Finternal_set_alternative_font_registry_alist): New function.
+	(syms_of_xfaces): Initialize and Staticpro
+	Vface_alternative_font_registry_alist.  Defsubr
+	Finternal_set_alternative_font_registry_alist.
+
 2000-11-09  Ken Raeburn  <raeburn@gnu.org>
 
 	* lisp.h (Flooking_at): Declare.