# HG changeset patch
# User Stephen J. Turnbull <stephen@xemacs.org>
# Date 1257074471 -32400
# Node ID 90dbf8e772b64d2cb8432e577875eeeb91055ec8
# Parent  4bbda1c11a7bc2578b3010e4468a902bb8eeded2
Fix typo in font-combine-fonts-internal.

diff -r 4bbda1c11a7b -r 90dbf8e772b6 lisp/ChangeLog
--- a/lisp/ChangeLog	Sun Nov 01 16:19:02 2009 +0900
+++ b/lisp/ChangeLog	Sun Nov 01 20:21:11 2009 +0900
@@ -1,3 +1,8 @@
+2009-11-01  Stephen Turnbull  <stephen@xemacs.org>
+
+	* font.el (font-combine-fonts-internal):
+	Fix syntax error in call of delete-duplicates.
+
 2009-11-01  Stephen Turnbull  <stephen@xemacs.org>
 
 	* lisp.el (forward-sexp):
diff -r 4bbda1c11a7b -r 90dbf8e772b6 lisp/font.el
--- 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)