poem-e20.el (fontset-pixel-size) fails in Emacs 23

[Tatsuya Kinoshita]

Hi APEL developers,

Forwarding a bug report from Debian.org:

  Bug#477177: bitmap-mule: fails to load in Emacs 23
  http://bugs.debian.org/477177

| From: Sven Joachim
| Subject: Re: Bug#477177: bitmap-mule: Byte-compilation fails in emacs-snapshot
| Date: Thu, 24 Apr 2008 15:01:33 +0200
| 
| In *Messages*, I still get: "Error while loading 65bitmap-mule",
| here is a backtrace when trying to load the uncompiled bitmap-ci.el
| manually:
| 
| ,----
| | Debugger entered--Lisp error: (wrong-type-argument number-or-marker-p (([nil adobe courier "" iso8859-1 99 98 100 17 ((:name . "-adobe-courier-medium-r-normal--17-120-100-100-m-100-iso8859-1") (:scalable) (:spacing . 100) (:dpi . 100))]) ([nil adobe courier "" iso8859-1 99 98 100 17 ((:name . "-adobe-courier-medium-r-normal--17-120-100-100-m-100-iso8859-1") (:scalable) (:spacing . 100) (:dpi . 100))])))
| |   fontset-pixel-size("-adobe-courier-medium-r-normal--17-120-100-100-m-100-fontset-startup")
| |   (setq fontset (car fontsets) fontsets (cdr fontsets) size (fontset-pixel-size fontset))
| |   (while fontsets (setq fontset (car fontsets) fontsets (cdr fontsets) size (fontset-pixel-size fontset)) (cond (... ...) (... ...) (... ...) (... ...) (t ...)))
| |   (let ((fontsets ...) fontset size) (while fontsets (setq fontset ... fontsets ... size ...) (cond ... ... ... ... ...)))
| |   (if window-system (let (... fontset size) (while fontsets ... ...)))
| |   eval-buffer(#<buffer  *load*> nil "/usr/share/emacs-snapshot/site-lisp/bitmap-mule/bitmap-ci.el" nil t)  ; Reading at buffer position 4942
| |   load-with-code-conversion("/usr/share/emacs-snapshot/site-lisp/bitmap-mule/bitmap-ci.el" "/usr/share/emacs-snapshot/site-lisp/bitmap-mule/bitmap-ci.el" nil nil)
| |   load("bitmap-ci.el")
| 
| FWIW, fontset-pixel-size is defined in poem-e20.el that is part of
| apel

| From: Sven Joachim
| Date: Mon, 03 Aug 2009 13:42:11 +0200
| 
| With emacs23 the problem still persists.  From the *Messages* buffer:
| ,----
| | Error while loading 65bitmap-mule: Wrong type argument: number-or-marker-p, (("-*-*-*-*-*-*-*-*-*-*-*-*-iso10646-1"))
| `----

The cause of this problem is that the function fontset-pixel-size
in poem-e20.el fails in Emacs 23.

To reproduce, evaluate the following expression:

(progn
  (require 'poem)
  (fontset-pixel-size (car (fontset-list))))

In Emacs 23.1, the error occurs.  In Emacs 22.3, the value should
be a number (e.g. 16).

Thanks,
-- 
Tatsuya Kinoshita