Mercurial > hg > xemacs-beta

diff lisp/x11/x-font-menu.el @ 88:821dec489c24 r20-0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-0
author cvs
date Mon, 13 Aug 2007 09:09:59 +0200
parents 364816949b59
children 538048ae2ab8
line wrap: on
line diff
--- a/lisp/x11/x-font-menu.el	Mon Aug 13 09:09:05 2007 +0200
+++ b/lisp/x11/x-font-menu.el	Mon Aug 13 09:09:59 2007 +0200
@@ -217,7 +217,7 @@
 	  (not (eq (device-type device) 'x)))
       nil
     (unless x-font-regexp-ascii
-      (setq x-font-regexp-ascii (if (fboundp 'charset-registry)
+      (setq x-font-regexp-ascii (if (featurep 'mule)
 				    (charset-registry 'ascii)
 				  "iso8859-1")))
     (setq font-menu-registry-encoding