Mercurial > emacs

comparison lisp/ps-mule.el @ 24415:48003e436759

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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)))