HCoop
/
bpt
/
emacs.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Add 2012 to FSF copyright years for Emacs files
[bpt/emacs.git]
/
lisp
/
ps-mule.el
diff --git
a/lisp/ps-mule.el
b/lisp/ps-mule.el
index
d95719b
..
7db3264
100644
(file)
--- a/
lisp/ps-mule.el
+++ b/
lisp/ps-mule.el
@@
-1,6
+1,6
@@
;;; ps-mule.el --- provide multi-byte character facility to ps-print
;;; ps-mule.el --- provide multi-byte character facility to ps-print
-;; Copyright (C) 1998-201
1
Free Software Foundation, Inc.
+;; Copyright (C) 1998-201
2
Free Software Foundation, Inc.
;; Author: Vinicius Jose Latorre <viniciusjl@ig.com.br>
;; Kenichi Handa <handa@m17n.org> (multi-byte characters)
;; Author: Vinicius Jose Latorre <viniciusjl@ig.com.br>
;; Kenichi Handa <handa@m17n.org> (multi-byte characters)
@@
-366,7
+366,7
@@
See also `ps-mule-font-info-database-bdf'.")
;; character is printed by which FONT-SPEC. It has one extra slot
;; whose value is an alist of the form:
;; (CHARSET . FONT-SPEC)
;; character is printed by which FONT-SPEC. It has one extra slot
;; whose value is an alist of the form:
;; (CHARSET . FONT-SPEC)
-;; FONT-SPEC is a vec
ot
r of the form:
+;; FONT-SPEC is a vec
to
r of the form:
;; (ID FONT-SRC FONT-NAME ENCODING EXTRA)
(defvar ps-mule-font-spec-tables nil)
;; (ID FONT-SRC FONT-NAME ENCODING EXTRA)
(defvar ps-mule-font-spec-tables nil)
@@
-659,7
+659,7
@@
the sequence."
width)
(goto-char from)
(while (not endpos)
width)
(goto-char from)
(while (not endpos)
- (cond ((= (point) stop)
+ (cond ((
>
= (point) stop)
(if (= stop to)
(setq endpos stop)
(when (< from stop)
(if (= stop to)
(setq endpos stop)
(when (< from stop)
@@
-932,7
+932,7
@@
the sequence."
(list ps-mule-bitmap-prologue)))
(defun ps-mule-generate-bitmap-font (font-spec size relative-compose
(list ps-mule-bitmap-prologue)))
(defun ps-mule-generate-bitmap-font (font-spec size relative-compose
- baselie-offset bbx)
+ baseli
n
e-offset bbx)
(let* ((id (ps-mule-font-spec-id font-spec))
(bytes (ps-mule-font-spec-bytes font-spec))
output-list)
(let* ((id (ps-mule-font-spec-id font-spec))
(bytes (ps-mule-font-spec-bytes font-spec))
output-list)
@@
-941,7
+941,7
@@
the sequence."
(list (format "/E%02X [ 0 1 255 {pop /.notdef} for ] def\n" id)
(format "%%%% %s\n" (ps-mule-font-spec-name font-spec))
(format "/F%02X %f %S %d E%02X NBF\n" id size
(list (format "/E%02X [ 0 1 255 {pop /.notdef} for ] def\n" id)
(format "%%%% %s\n" (ps-mule-font-spec-name font-spec))
(format "/F%02X %f %S %d E%02X NBF\n" id size
- relative-compose baselie-offset id)))
+ relative-compose baseli
n
e-offset id)))
(setq output-list
(list (list (format "/E%02X [ 0 1 255 { pop 0 } for ] def\n" id))
(list (format "/V%02X [" id))
(setq output-list
(list (list (format "/E%02X [ 0 1 255 { pop 0 } for ] def\n" id))
(list (format "/V%02X [" id))
@@
-950,7
+950,7
@@
the sequence."
(format "/F%02X E%02X V%02X NPF\n" id id id))))
(aset ps-mule-bitmap-font-record id
(vector (= bytes 1) output-list
(format "/F%02X E%02X V%02X NPF\n" id id id))))
(aset ps-mule-bitmap-font-record id
(vector (= bytes 1) output-list
- size relative-compose baselie-offset bbx))
+ size relative-compose baseli
n
e-offset bbx))
(if ps-mule-bitmap-dict-list
output-list
(setq ps-mule-bitmap-dict-list (list "/BitmapDict <<\n" ">> def\n"))
(if ps-mule-bitmap-dict-list
output-list
(setq ps-mule-bitmap-dict-list (list "/BitmapDict <<\n" ">> def\n"))
@@
-1010,7
+1010,7
@@
the sequence."
ps-mule-external-libraries))
(defun ps-mule-encode-header-string (string fonttag)
ps-mule-external-libraries))
(defun ps-mule-encode-header-string (string fonttag)
- "Generate PostScript code for ploting STRING by font FONTTAG.
+ "Generate PostScript code for plot
t
ing STRING by font FONTTAG.
FONTTAG should be a string \"/h0\", \"/h1\", \"/L0\", or \"/H0\".
Any other value is treated as \"/H0\"."
(with-temp-buffer
FONTTAG should be a string \"/h0\", \"/h1\", \"/L0\", or \"/H0\".
Any other value is treated as \"/H0\"."
(with-temp-buffer
@@
-1141,7
+1141,7
@@
It checks if all multi-byte characters in the region are printable or not."
(aref ps-mule-font-spec-tables font-type) 0)))
(ps-output-prologue
(list (if (ps-mule-font-spec-src (cdr (car font-spec-alist)))
(aref ps-mule-font-spec-tables font-type) 0)))
(ps-output-prologue
(list (if (ps-mule-font-spec-src (cdr (car font-spec-alist)))
- ;; We ignore a font specfied in ps-font-info-database.
+ ;; We ignore a font spec
i
fied in ps-font-info-database.
(format "/V%s VTOP%d def\n" fonttag font-type)
(format "/V%s [ VTOP%d aload pop ] def\n
V%s 0 /%s-latin1 /%s Latin1Encoding put\n"
(format "/V%s VTOP%d def\n" fonttag font-type)
(format "/V%s [ VTOP%d aload pop ] def\n
V%s 0 /%s-latin1 /%s Latin1Encoding put\n"