diff src/objects-xlike-inc.c @ 3680:efca49973324

[xemacs-hg @ 2006-11-15 21:12:13 by aidan] Add a GCPRO; move around a warn_when_safe call to make me feel better about garbage collection.
author aidan
date Wed, 15 Nov 2006 21:12:17 +0000
parents 3ef0aaf3dc34
children 5989b9bbb612
line wrap: on
line diff
--- a/src/objects-xlike-inc.c	Tue Nov 14 22:51:37 2006 +0000
+++ b/src/objects-xlike-inc.c	Wed Nov 15 21:12:17 2006 +0000
@@ -795,10 +795,6 @@
 	{
 	  Lisp_Object new_registries = make_vector(registries_len + 1, Qnil);
 
-	  warn_when_safe (Qface, Qwarning,
-			  "Your ASCII charset registries contain  nothing "
-			  "sensible.  Adding `" FALLBACK_ASCII_REGISTRY "'.");
-
 	  XVECTOR_DATA(new_registries)[0]
 	    = build_string(FALLBACK_ASCII_REGISTRY);
 
@@ -813,6 +809,10 @@
 	     noted.  */
 	  set_charset_registries(charset, new_registries);
 
+	  warn_when_safe (Qface, Qwarning,
+			  "Your ASCII charset registries contain nothing "
+			  "sensible.  Adding `" FALLBACK_ASCII_REGISTRY "'.");
+
 	  /* And recurse. */
 	  result = 
 	    DEVMETH_OR_GIVEN (XDEVICE (device), find_charset_font,