| 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 |