mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-04-27 08:43:40 -07:00
Code Issues Projects Releases Wiki Activity

(ps-mule-external-libraries): Don't use `iff' in docstring.

Browse source
This commit is contained in:
Juanma Barranquero 2008-05-08 03:43:39 +00:00
parent f67b40b3d8
commit bc10bb37f4
1 changed files with 8 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

16
lisp/ps-mule.el
View file

@ -439,8 +439,8 @@ PostScript procedures that will be called by FONT-FUNC and GLYPHS-FUNC. It is
called with no argument, and should return a list of strings.
CHECK-FUNC is a function to check if a font is available or not.
It is called with one argument FONT-SPEC, and should return non-nil iff the
font specified in FONT-SPEC is available.
It is called with one argument FONT-SPEC, and should return non-nil if and
only if the font specified in FONT-SPEC is available.
FONT-FUNC is a function to generate PostScript code which define a new font.
It is called with one argument FONT-SPEC, and should return a list of strings.
@ -736,7 +736,7 @@ the sequence."
} ifelse def
dup 0 get stringwidth pop dup /WIDTH exch def bmp 0 get div
dup LLY mul /LLY exch def
URY mul /URY exch def
URY mul /URY exch def
} {
pop
dup 0 get stringwidth pop /WIDTH exch def
@ -791,7 +791,7 @@ the sequence."
/RIGHT WIDTH def
/TOP URY def
/BOTTOM LLY def
1 1 components length 1 sub {
components exch get
[ exch
@ -971,7 +971,7 @@ the sequence."
(defun ps-mule-generate-bitmap-glyph (font-spec char code bitmap)
(let* ((id (ps-mule-font-spec-id font-spec))
;; FONT-RECORD ::= ([(SUBFONT-OUTPUT-LIST ...) | t]
;; FONT-RECORD ::= ([(SUBFONT-OUTPUT-LIST ...) | t]
;; BASEFONT-OUTPUT-LIST SIZE REL-COMP B-OFFSET BBX)
(font-record (aref ps-mule-bitmap-font-record id))
enc-name
@ -1149,7 +1149,7 @@ It checks if all multi-byte characters in the region are printable or not."
(defun ps-mule-redefine-font (font-number fonttag size ps-font)
(let* ((font-type (aref ps-mule-font-number-to-type font-number))
(font-spec-alist (char-table-extra-slot
(font-spec-alist (char-table-extra-slot
(aref ps-mule-font-spec-tables font-type) 0)))
(ps-output-prologue
(list (if (ps-mule-font-spec-src (cdr (car font-spec-alist)))
@ -1170,7 +1170,7 @@ V%s 0 /%s-latin1 /%s Latin1Encoding put\n"
(let ((output-head (list t))
(ps-mule-output-list (list t)))
(dotimes (i 4)
(map-char-table 'ps-mule-prepare-glyph
(map-char-table 'ps-mule-prepare-glyph
(aref ps-mule-font-spec-tables i)))
(ps-mule-restruct-output-list (cdr ps-mule-output-list) output-head)
(ps-output-prologue (cdr output-head)))
@ -1198,7 +1198,7 @@ V%s 0 /%s-latin1 /%s Latin1Encoding put\n"
(mapconcat #'(lambda (x)
(format "F%02X" (cdr x)))
font-list " ")))))
;; Redefine fonts f0, f1, f2, f3, h0, h1, H0.
(ps-mule-redefine-font 4 "h0" ps-header-title-font-size-internal
(ps-font 'ps-font-for-header 'bold))