Mercurial > emacs

changeset 90328:05b8b8dd212b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(ps-mule-eight-bit-char): Delete this function. (ps-mule-encode-region): Don't use ps-mule-eight-bit-char. (ps-mule-plot-composition): Likewise.
author Kenichi Handa <handa@m17n.org>
date Tue, 28 Feb 2006 11:27:30 +0000
parents fe3d40222417
children da7e5f00f2d8
files lisp/ps-mule.el
diffstat 1 files changed, 8 insertions(+), 13 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/ps-mule.el	Tue Feb 28 11:05:39 2006 +0000
+++ b/lisp/ps-mule.el	Tue Feb 28 11:27:30 2006 +0000
@@ -639,11 +639,6 @@
     (ps-output-prologue (format "/EscChar %d def\n" ps-mule-esc-char))
     (setq ps-mule-prologue-generated t)))
 
-(defsubst ps-mule-eight-bit-char (byte)
-  (if (< byte 128)
-      byte
-    (decode-char 'eight-bit byte)))
-
 (defun ps-mule-encode-region (from to font-spec-table)
   "Generate PostScript code for plotting characters in the region FROM and TO.
 
@@ -683,10 +678,10 @@
 	    (aset str i char)
 	  (let* ((code (ps-mule-encode-char char font-spec)))
 	    (if (= (ps-mule-font-spec-bytes font-spec) 1)
-		(aset str i (ps-mule-eight-bit-char code))
-	      (aset str i (ps-mule-eight-bit-char (/ code 256)))
+		(aset str i code)
+	      (aset str i (/ code 256))
 	      (setq i (1+ i))
-	      (aset str i (ps-mule-eight-bit-char (% code 256))))))
+	      (aset str i (% code 256)))))
 	(setq i (1+ i))
 	(forward-char 1)))
     (nreverse (cons (substring str 0 i) string-list))))
@@ -716,13 +711,13 @@
 		 (font-id (ps-mule-font-spec-font-id font-spec))
 		 (str (make-string (if (= font-id 0) 1 (+ 2 bytes)) 0)))
 	    (if (= font-id 0)
-		(aset str 0 (ps-mule-eight-bit-char code))
+		(aset str 0 code)
 	      (aset str 0 ps-mule-esc-char)
-	      (aset str 1 (ps-mule-eight-bit-char font-id))
+	      (aset str 1 font-id)
 	      (if (= bytes 1)
-		  (aset str 2 (ps-mule-eight-bit-char code))
-		(aset str 2 (ps-mule-eight-bit-char (/ code 256)))
-		(aset str 3 (ps-mule-eight-bit-char (% code 256)))))
+		  (aset str 2 code)
+		(aset str 2 (/ code 256))
+		(aset str 3 (% code 256))))
 	    (ps-output "[")
 	    (ps-output-string str)
 	    (ps-output (if (eq (ps-mule-font-spec-src font-spec) 'bdf)