From 66495b0787f38fbdc316bfd60e54a02cdf362d3b Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Wed, 2 Sep 1998 04:51:42 +0000 Subject: [PATCH] (bdf-generate-font): New argument CHARSET. Give WIDTH argument to ps-mule-generate-bitmap-font. --- lisp/bdf.el | 5 +++-- 1 file 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 @@ -;;; bdf.el --- BDF font file handler +;;; bdf.el --- BDF font file handler for ps-print. ;; Copyright (C) 1998 Electrotechnical Laboratory, JAPAN. ;; Licensed to the Free Software Foundation. @@ -379,11 +379,12 @@ BITMAP-STRING is a string representing bits by hexadecimal digits." (ps-mule-generate-bitmap-prologue)) ;; Called from ps-mule-generate-font. -(defun bdf-generate-font (font-spec) +(defun bdf-generate-font (charset font-spec) (let* ((font-name (ps-mule-font-spec-name font-spec)) (font-info (bdf-get-font-info font-name))) (ps-mule-generate-bitmap-font font-name (ps-mule-font-spec-bytes font-spec) + (charset-width charset) (bdf-info-size font-info) (bdf-info-relative-compose font-info) (bdf-info-baseline-offset font-info) -- 2.39.2