# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 920079491 0
# Node ID 48003e4367593b94835ab89df5acd17dc966e4bd
# Parent  971efbc0ac2cacb60172d93832c43114767c1318
Change of ps-print font size variable name.
(ps-mule-generate-font): Fun fix.
(ps-mule-begin-job): Programming uniformization.

diff -r 971efbc0ac2c -r 48003e436759 lisp/ps-mule.el
--- a/lisp/ps-mule.el	Sat Feb 27 01:37:15 1999 +0000
+++ b/lisp/ps-mule.el	Sat Feb 27 01:38:11 1999 +0000
@@ -7,7 +7,7 @@
 ;; Maintainer:	Kenichi Handa <handa@etl.go.jp> (multi-byte characters)
 ;; Maintainer:	Vinicius Jose Latorre <vinicius@cpqd.com.br>
 ;; Keywords:	print, PostScript, multibyte, mule
-;; Time-stamp:	<98/12/15 14:04:50 handa>
+;; Time-stamp:	<99/02/19 13:15:52 vinicius>
 
 ;; This file is part of GNU Emacs.
 
@@ -485,7 +485,7 @@
 	 (ps-output-prologue (funcall func charset font-spec)))
     (ps-output-prologue
      (list (format "/%s %f /%s Def%sFontMule\n"
-		   scaled-font-name ps-font-size font-name
+		   scaled-font-name ps-font-size-internal font-name
 		   (if (eq ps-mule-current-charset 'ascii) "Ascii" ""))))
     (if font-cache
 	(setcar (cdr font-cache)