diff options
Diffstat (limited to 'app-emacs/apel/files/apel-10.8-020_Prevent-fontset-error.patch')
| -rw-r--r-- | app-emacs/apel/files/apel-10.8-020_Prevent-fontset-error.patch | 32 |
1 files changed, 32 insertions, 0 deletions
diff --git a/app-emacs/apel/files/apel-10.8-020_Prevent-fontset-error.patch b/app-emacs/apel/files/apel-10.8-020_Prevent-fontset-error.patch new file mode 100644 index 000000000000..9cea1e675276 --- /dev/null +++ b/app-emacs/apel/files/apel-10.8-020_Prevent-fontset-error.patch @@ -0,0 +1,32 @@ +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 |