Mercurial > hg > xemacs-beta

comparison 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
comparison
equal deleted inserted replaced
87:7df2982f5c17 88:821dec489c24
215 (if (or noninteractive 215 (if (or noninteractive
216 (not (or device (setq device (selected-device)))) 216 (not (or device (setq device (selected-device))))
217 (not (eq (device-type device) 'x))) 217 (not (eq (device-type device) 'x)))
218 nil 218 nil
219 (unless x-font-regexp-ascii 219 (unless x-font-regexp-ascii
220 (setq x-font-regexp-ascii (if (fboundp 'charset-registry) 220 (setq x-font-regexp-ascii (if (featurep 'mule)
221 (charset-registry 'ascii) 221 (charset-registry 'ascii)
222 "iso8859-1"))) 222 "iso8859-1")))
223 (setq font-menu-registry-encoding 223 (setq font-menu-registry-encoding
224 (if (featurep 'mule) "*-*" "iso8859-1")) 224 (if (featurep 'mule) "*-*" "iso8859-1"))
225 (let ((case-fold-search t) 225 (let ((case-fold-search t)