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