Mercurial > hg > xemacs-beta

diff lisp/font.el @ 282:c42ec1d1cded r21-0b39

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-0b39
author cvs
date Mon, 13 Aug 2007 10:33:18 +0200
parents 7df0dd720c89
children 4b85ae5eabfb
line wrap: on
line diff
--- a/lisp/font.el	Mon Aug 13 10:32:23 2007 +0200
+++ b/lisp/font.el	Mon Aug 13 10:33:18 2007 +0200
@@ -809,7 +809,7 @@
 
 (defun mswindows-font-create-object (fontname &optional device)
   (let ((case-fold-search t)
-	(font (mswindows-font-canicolize-name fontname)))
+	(font (mswindows-font-canonicalize-name fontname)))
     (if (or (not (stringp font))
 	    (not (string-match font-mswindows-font-regexp font)))
 	(make-font)