Mercurial > hg > xemacs-beta

diff lisp/x-font-menu.el @ 3917:b8ded6c3f2a4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2007-04-22 09:24:11 by aidan] Only call charset-registries in the font menu if it's available.
author aidan
date Sun, 22 Apr 2007 09:24:12 +0000
parents 98af8a976fc3
children b4f4e0cc90f1
line wrap: on
line diff
--- a/lisp/x-font-menu.el	Sat Apr 21 21:52:15 2007 +0000
+++ b/lisp/x-font-menu.el	Sun Apr 22 09:24:12 2007 +0000
@@ -157,7 +157,10 @@
   ;; #### - this should implement a `menus-only' option, which would
   ;; recalculate the menus from the cache w/o having to do font-list again.
   (unless x-font-regexp-ascii
-    (setq x-font-regexp-ascii (elt (charset-registries 'ascii) 0)))
+    (setq x-font-regexp-ascii 
+          (if (fboundp 'charset-registries) 
+              (elt (charset-registries 'ascii) 0)
+            "iso8859-1")))
   (setq x-font-menu-registry-encoding
 	(if (featurep 'mule) "*-*" "iso8859-1"))
   (let ((case-fold-search t)