File prevent-fontset-error.patch of Package apel

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

	* poem-e20.el (fontset-pixel-size): Don't cause an error. Workaround
	  for Emacs 23.

--- apel-10.7+0.20080906.orig/poem-e20.el
+++ apel-10.7+0.20080906/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
openSUSE Build Service is sponsored by