changeset 23551:385d7c586ad2

Doc fixes.

--- a/lisp/ps-print.el	Mon Oct 26 20:22:17 1998 +0000
+++ b/lisp/ps-print.el	Mon Oct 26 20:25:41 1998 +0000
@@ -3,10 +3,10 @@
 ;; Copyright (C) 1993, 94, 95, 96, 97, 1998 Free Software Foundation, Inc.
 
 ;; Author:	Jim Thompson (was <[e-mail]>)
-;; Author:	Jacques Duthen <[e-mail]>
+;; Author:	Jacques Duthen (was <[e-mail]>)
 ;; Author:	Vinicius Jose Latorre <[e-mail]>
-;; Author:	Kenichi Handa <[e-mail]> (multibyte characters)
-;; Maintainer:	Kenichi Handa <[e-mail]> (multibyte characters)
+;; Author:	Kenichi Handa <[e-mail]> (multi-byte characters)
+;; Maintainer:	Kenichi Handa <[e-mail]> (multi-byte characters)
 ;; Maintainer:	Vinicius Jose Latorre <[e-mail]>
 ;; Keywords:	print, PostScript
 ;; Time-stamp:	<98/10/13  15:42:23 vinicius>
@@ -437,10 +437,10 @@
 ;; Characters TAB, NEWLINE and FORMFEED are always treated by ps-print engine.
 ;;
 ;;
-;; Printing Multibyte Buffer
-;; -------------------------
-;;
-;; The variable `ps-multibyte-buffer' specifies the ps-print multibyte buffer
+;; Printing Multi-byte Buffer
+;; --------------------------
+;;
+;; The variable `ps-multibyte-buffer' specifies the ps-print multi-byte buffer
 ;; handling.
 ;;
 ;; Valid values for `ps-multibyte-buffer' are:
@@ -833,7 +833,7 @@
 ;;
 ;; [keinichi] 980819 Kein'ichi Handa <[e-mail]>
 ;;
-;; Multibyte buffer handling.
+;; Multi-byte buffer handling.
 ;;
 ;; [vinicius] 980306 Vinicius Jose Latorre <[e-mail]>
 ;;
@@ -912,7 +912,7 @@
 ;; Acknowledgements
 ;; ----------------
 ;;
-;; Thanks to Kein'ichi Handa <[e-mail]> for multibyte buffer handling.
+;; Thanks to Kein'ichi Handa <[e-mail]> for multi-byte buffer handling.
 ;;
 ;; Thanks to Matthew O Persico <[e-mail]> for line number on
 ;; empty columns.
@@ -1024,7 +1024,7 @@
 
 
 (defcustom ps-multibyte-buffer nil
-  "*Specifies the multibyte buffer handling.
+  "*Specifies the multi-byte buffer handling.
 
 Valid values are:
 
@@ -2938,7 +2938,7 @@
 
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-;; For handling multibyte characters -- Begin.
+;; For handling multi-byte characters -- Begin.
 ;;
 ;; The following comments apply only to this part (through the next ^L).
 ;; Author:	Kenichi Handa <[e-mail]>
@@ -3000,7 +3000,7 @@
 BYTES specifies how many bytes each character has in the encoded byte
 sequence; it should be 1 or 2. 
 
-All multibyte characters are printed by fonts specified in this database
+All multi-byte characters are printed by fonts specified in this database
 regardless of a font family of ASCII characters.  The exception is Latin-1
 characters which are printed by the same font as ASCII characters, thus obey
 font family.
@@ -3355,8 +3355,8 @@
 	  (and newcodes
 	       (ps-mule-generate-glyphs font-spec newcodes))))))
 
-;; List of charsets of multibyte characters in a text being printed.
-;; If the text doesn't contain any multibyte characters (i.e. only
+;; List of charsets of multi-byte characters in a text being printed.
+;; If the text doesn't contain any multi-byte characters (i.e. only
 ;; ASCII), the value is nil.
 (defvar ps-mule-charset-list nil)
 
@@ -3410,7 +3410,7 @@
 %%%% End of Mule Section
 
 "
-  "PostScript code for printing multibyte characters.")
+  "PostScript code for printing multi-byte characters.")
 
 (defun ps-mule-skip-same-charset (charset)
   "Skip characters of CHARSET following the current point."
@@ -3855,7 +3855,7 @@
 ;; Mule specific initializers.
 
 (defun ps-mule-initialize ()
-  "Produce Poscript code in the prologue part for multibyte characters."
+  "Produce Poscript code in the prologue part for multi-byte characters."
   (setq ps-mule-font-info-database
 	(cond ((eq ps-multibyte-buffer 'non-latin-printer)
 	       ps-mule-font-info-database-ps)
@@ -3931,7 +3931,7 @@
 	      (setq font (cdr font)
 		    i (1+ i))))))))
 
-;; For handling multibyte characters -- End.
+;; For handling multi-byte characters -- End.
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
 
@@ -4790,7 +4790,7 @@
     ;; pagefeeds, control characters, and plot each chunk.
     (while (< from to)
       (if (re-search-forward ps-control-or-escape-regexp to t)
-	  ;; region with some control characters or some multibyte characters
+	  ;; region with some control characters or some multi-byte characters
 	  (let* ((match-point (match-beginning 0))
 		 (match (char-after match-point)))
 	    (when (< from match-point)
@@ -4821,7 +4821,7 @@
 		       (= ps-height-remaining ps-print-height))
 		  (ps-next-page)))
 
-	     ((> match 255)		; a multibyte character
+	     ((> match 255)		; a multi-byte character
 	      (let ((charset (char-charset match)))
 		(or (eq charset 'composition)
 		    (ps-mule-skip-same-charset charset))
@@ -4831,7 +4831,7 @@
 	     (t				; characters from 127 to 255
 	      (ps-control-character match)))
 	    (setq from (point)))
-	;; region without control characters nor multibyte characters
+	;; region without control characters nor multi-byte characters
 	(when (not (eq ps-mule-current-charset 'ascii))
 	  (ps-set-font  ps-current-font)
 	  (setq ps-mule-current-charset 'ascii))