[W3-dev] avoid error caused by an alias of fontset

[Yoichi NAKAYAMA]

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)