Mercurial > hg > xemacs-beta

diff lisp/font.el @ 4727:90dbf8e772b6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fix typo in font-combine-fonts-internal.
author Stephen J. Turnbull <stephen@xemacs.org>
date Sun, 01 Nov 2009 20:21:11 +0900
parents 517f6887fbc0
children aa5ed11f473b
line wrap: on
line diff
--- a/lisp/font.el	Sun Nov 01 16:19:02 2009 +0900
+++ b/lisp/font.el	Sun Nov 01 20:21:11 2009 +0900
@@ -414,8 +414,8 @@
 						(font-weight fontobj-2)))
     (set-font-family retval
                      (delete-duplicates (append (font-family fontobj-1)
-                                                (font-family fontobj-2)))
-                     :test #'equal)
+                                                (font-family fontobj-2))
+					:test #'equal))
     (set-font-style retval (logior (font-style fontobj-1)
 				   (font-style fontobj-2)))
     (set-font-registry retval (or (font-registry fontobj-1)