changeset 94741:766d27d2c19f

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

--- a/lisp/ps-mule.el	Thu May 08 03:42:10 2008 +0000
+++ b/lisp/ps-mule.el	Thu May 08 03:43:39 2008 +0000
@@ -439,8 +439,8 @@
 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 @@
 	} 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 @@
     /RIGHT WIDTH def
     /TOP URY def
     /BOTTOM LLY def
-	
+
     1 1 components length 1 sub {
 	components exch get
 	[ exch
@@ -971,7 +971,7 @@
 
 (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 @@
 
 (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 @@
   (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 @@
 				  (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))