avoid error caused by an alias of fontset

Hi,
On my environment, font below becomes "fontset-16", which is an alias
of real fontset name. Therefore, following patch is needed to avoid
error on starting Emacs/W3.

Sincerely yours,
-- 
Yoichi NAKAYAMA

--- w3-4.0pre.47/lisp/font.el.orig	2001-11-29 05:04:21.000000000 +0900
+++ w3-4.0pre.47/lisp/font.el	2005-03-18 00:13:01.552391048 +0900
@@ -613,9 +613,13 @@
        (make-font-specifier
 	(face-font-name 'default device)))
     (let ((font (cdr-safe (assq 'font (frame-parameters device)))))
-      (if (and (fboundp 'fontsetp) (fontsetp font))
-	  (aref (get-font-info (aref (cdr (get-fontset-info font)) 0)) 2)
-	font))))
+      (cond ((and (fboundp 'fontsetp) (fontsetp font))
+	     (aref (get-font-info (aref (cdr (get-fontset-info font)) 0)) 2))
+	    ((and (boundp 'fontset-alias-alist)
+		  (rassoc font fontset-alias-alist))
+	     (car (rassoc font fontset-alias-alist)))
+	    (t
+	     font)))))
 	  
 ;;;###autoload
 (defun font-default-object-for-device (&optional device)