diff options
| -rw-r--r-- | lisp/bdf.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/bdf.el b/lisp/bdf.el index 07dcaa89b90..09d6fadc38c 100644 --- a/lisp/bdf.el +++ b/lisp/bdf.el | |||
| @@ -1,4 +1,4 @@ | |||
| 1 | ;;; bdf.el --- BDF font file handler | 1 | ;;; bdf.el --- BDF font file handler for ps-print. |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1998 Electrotechnical Laboratory, JAPAN. | 3 | ;; Copyright (C) 1998 Electrotechnical Laboratory, JAPAN. |
| 4 | ;; Licensed to the Free Software Foundation. | 4 | ;; Licensed to the Free Software Foundation. |
| @@ -379,11 +379,12 @@ BITMAP-STRING is a string representing bits by hexadecimal digits." | |||
| 379 | (ps-mule-generate-bitmap-prologue)) | 379 | (ps-mule-generate-bitmap-prologue)) |
| 380 | 380 | ||
| 381 | ;; Called from ps-mule-generate-font. | 381 | ;; Called from ps-mule-generate-font. |
| 382 | (defun bdf-generate-font (font-spec) | 382 | (defun bdf-generate-font (charset font-spec) |
| 383 | (let* ((font-name (ps-mule-font-spec-name font-spec)) | 383 | (let* ((font-name (ps-mule-font-spec-name font-spec)) |
| 384 | (font-info (bdf-get-font-info font-name))) | 384 | (font-info (bdf-get-font-info font-name))) |
| 385 | (ps-mule-generate-bitmap-font font-name | 385 | (ps-mule-generate-bitmap-font font-name |
| 386 | (ps-mule-font-spec-bytes font-spec) | 386 | (ps-mule-font-spec-bytes font-spec) |
| 387 | (charset-width charset) | ||
| 387 | (bdf-info-size font-info) | 388 | (bdf-info-size font-info) |
| 388 | (bdf-info-relative-compose font-info) | 389 | (bdf-info-relative-compose font-info) |
| 389 | (bdf-info-baseline-offset font-info) | 390 | (bdf-info-baseline-offset font-info) |