blob: 9cea1e675276f3d80e0758cdda11f7bd2b3c12c3 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
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
|
GitWeb
