diff options
| author | Kenichi Handa | 2000-12-07 00:00:11 +0000 |
|---|---|---|
| committer | Kenichi Handa | 2000-12-07 00:00:11 +0000 |
| commit | 1c3cea113313ace314f32269a79e208234e8f030 (patch) | |
| tree | 79e6b8cd16505098e896a724560ed913b77141ae | |
| parent | 73481ae314c12a16d4f0896593b1ccde8d226d3b (diff) | |
| download | emacs-1c3cea113313ace314f32269a79e208234e8f030.tar.gz emacs-1c3cea113313ace314f32269a79e208234e8f030.zip | |
(bdf-read-font-info): Modify the kludgy code for fonts
of wrong SIZE record.
| -rw-r--r-- | lisp/ps-bdf.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/ps-bdf.el b/lisp/ps-bdf.el index 0261ccbf553..441584607de 100644 --- a/lisp/ps-bdf.el +++ b/lisp/ps-bdf.el | |||
| @@ -240,7 +240,7 @@ CODE, where N and CODE are in the following relation: | |||
| 240 | (setq size (read (current-buffer))) | 240 | (setq size (read (current-buffer))) |
| 241 | ;; The following kludgy code is t avoid bugs of several | 241 | ;; The following kludgy code is t avoid bugs of several |
| 242 | ;; fonts which have wrong SIZE record. | 242 | ;; fonts which have wrong SIZE record. |
| 243 | (and (<= size (/ (aref font-bounding-box 1) 2)) | 243 | (and (<= size (/ (aref font-bounding-box 1) 3)) |
| 244 | (setq size (aref font-bounding-box 1))) | 244 | (setq size (aref font-bounding-box 1))) |
| 245 | 245 | ||
| 246 | (setq default-char (bdf-search-and-read "\nDEFAULT_CHAR" nil)) | 246 | (setq default-char (bdf-search-and-read "\nDEFAULT_CHAR" nil)) |