# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 904711902 0
# Node ID ced1e63179e6f718d9a247893f11c40d4cf15f43
# Parent  ff3750779f486c4c2388a5c7e254b8aca737a3c2
(bdf-generate-font): New argument CHARSET.  Give WIDTH
argument to ps-mule-generate-bitmap-font.

diff -r ff3750779f48 -r ced1e63179e6 lisp/bdf.el
--- a/lisp/bdf.el	Wed Sep 02 04:51:42 1998 +0000
+++ b/lisp/bdf.el	Wed Sep 02 04:51:42 1998 +0000
@@ -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 @@
   (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)