Mercurial > emacs
comparison lisp/ps-mule.el @ 24415:48003e436759
Change of ps-print font size variable name.
(ps-mule-generate-font): Fun fix.
(ps-mule-begin-job): Programming uniformization.
author | Kenichi Handa <handa@m17n.org> |
---|---|
date | Sat, 27 Feb 1999 01:38:11 +0000 |
parents | 6909b106c5c6 |
children | fded44022dc6 |
comparison
equal
deleted
inserted
replaced
24414:971efbc0ac2c | 24415:48003e436759 |
---|---|
5 ;; Author: Vinicius Jose Latorre <vinicius@cpqd.com.br> | 5 ;; Author: Vinicius Jose Latorre <vinicius@cpqd.com.br> |
6 ;; Author: Kenichi Handa <handa@etl.go.jp> (multi-byte characters) | 6 ;; Author: Kenichi Handa <handa@etl.go.jp> (multi-byte characters) |
7 ;; Maintainer: Kenichi Handa <handa@etl.go.jp> (multi-byte characters) | 7 ;; Maintainer: Kenichi Handa <handa@etl.go.jp> (multi-byte characters) |
8 ;; Maintainer: Vinicius Jose Latorre <vinicius@cpqd.com.br> | 8 ;; Maintainer: Vinicius Jose Latorre <vinicius@cpqd.com.br> |
9 ;; Keywords: print, PostScript, multibyte, mule | 9 ;; Keywords: print, PostScript, multibyte, mule |
10 ;; Time-stamp: <98/12/15 14:04:50 handa> | 10 ;; Time-stamp: <99/02/19 13:15:52 vinicius> |
11 | 11 |
12 ;; This file is part of GNU Emacs. | 12 ;; This file is part of GNU Emacs. |
13 | 13 |
14 ;; GNU Emacs is free software; you can redistribute it and/or modify | 14 ;; GNU Emacs is free software; you can redistribute it and/or modify |
15 ;; it under the terms of the GNU General Public License as published by | 15 ;; it under the terms of the GNU General Public License as published by |
483 (charset-id charset) ps-current-font)))) | 483 (charset-id charset) ps-current-font)))) |
484 (and func (not font-cache) | 484 (and func (not font-cache) |
485 (ps-output-prologue (funcall func charset font-spec))) | 485 (ps-output-prologue (funcall func charset font-spec))) |
486 (ps-output-prologue | 486 (ps-output-prologue |
487 (list (format "/%s %f /%s Def%sFontMule\n" | 487 (list (format "/%s %f /%s Def%sFontMule\n" |
488 scaled-font-name ps-font-size font-name | 488 scaled-font-name ps-font-size-internal font-name |
489 (if (eq ps-mule-current-charset 'ascii) "Ascii" "")))) | 489 (if (eq ps-mule-current-charset 'ascii) "Ascii" "")))) |
490 (if font-cache | 490 (if font-cache |
491 (setcar (cdr font-cache) | 491 (setcar (cdr font-cache) |
492 (cons (cons ps-current-font scaled-font-name) | 492 (cons (cons ps-current-font scaled-font-name) |
493 (nth 1 font-cache))) | 493 (nth 1 font-cache))) |