apel-10.8-020_Prevent-fontset-error.patch

Description: Prevent an error of fontset-pixel-size for Emacs 23.
Bug-Debian: http://bugs.debian.org/477177
Author: Tatsuya Kinoshita <tats@debian.org>

--- a/ChangeLog
+++ b/ChangeLog
@@ -0,0 +1,5 @@
+2010-02-14  Tatsuya Kinoshita  <tats@vega.ocn.ne.jp>
+
+	* poem-e20.el (fontset-pixel-size): Don't cause an error. Workaround
+	for Emacs 23.
+
--- a/poem-e20.el
+++ b/poem-e20.el
@@ -25,6 +25,7 @@
 ;;; Code:
 
 (defun fontset-pixel-size (fontset)
+ (condition-case nil
   (let* ((info (fontset-info fontset))
 	 (height (aref info 1))
 	 )
@@ -32,7 +33,8 @@
 	  ((string-match "-\\([0-9]+\\)-" fontset)
 	   (string-to-number
 	    (substring fontset (match-beginning 1)(match-end 1))))
-	  (t 0))))
+	  (t 0)))
+  (error 0)))
 
 
 ;;; @ character set