Mercurial > emacs

comparison lisp/bdf.el @ 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 bea8f793853d
children
comparison
equal deleted inserted replaced
23168:ff3750779f48 23169:ced1e63179e6
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.
5 5
6 ;; Keywords: BDF, font, PostScript 6 ;; Keywords: BDF, font, PostScript
377 (or bdf-cache 377 (or bdf-cache
378 (bdf-initialize)) 378 (bdf-initialize))
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)
390 (bdf-info-font-bounding-box font-info)))) 391 (bdf-info-font-bounding-box font-info))))
391 392