Mercurial > emacs

changeset 23169:ced1e63179e6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(bdf-generate-font): New argument CHARSET. Give WIDTH argument to ps-mule-generate-bitmap-font.
author Kenichi Handa <handa@m17n.org>
date Wed, 02 Sep 1998 04:51:42 +0000
parents ff3750779f48
children 63c9c2cc91b7
files lisp/bdf.el
diffstat 1 files changed, 3 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- 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)