aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorKarl Heuer1998-10-26 20:25:41 +0000
committerKarl Heuer1998-10-26 20:25:41 +0000
commit024ced4d91b605bb2dc984a9b097cc0d9405f04d (patch)
tree4d919562c12535705447bcc9c3d50e4e03384867
parentd3ab8dac3eb081b38cee2b138d1712c52ee1cb8c (diff)
downloademacs-024ced4d91b605bb2dc984a9b097cc0d9405f04d.tar.gz
emacs-024ced4d91b605bb2dc984a9b097cc0d9405f04d.zip
Doc fixes.
-rw-r--r--lisp/ps-print.el38
1 files changed, 19 insertions, 19 deletions
diff --git a/lisp/ps-print.el b/lisp/ps-print.el
index f93110d84f9..905de385d70 100644
--- a/lisp/ps-print.el
+++ b/lisp/ps-print.el
@@ -3,10 +3,10 @@
3;; Copyright (C) 1993, 94, 95, 96, 97, 1998 Free Software Foundation, Inc. 3;; Copyright (C) 1993, 94, 95, 96, 97, 1998 Free Software Foundation, Inc.
4 4
5;; Author: Jim Thompson (was <thompson@wg2.waii.com>) 5;; Author: Jim Thompson (was <thompson@wg2.waii.com>)
6;; Author: Jacques Duthen <duthen@cegelec-red.fr> 6;; Author: Jacques Duthen (was <duthen@cegelec-red.fr>)
7;; Author: Vinicius Jose Latorre <vinicius@cpqd.com.br> 7;; Author: Vinicius Jose Latorre <vinicius@cpqd.com.br>
8;; Author: Kenichi Handa <handa@etl.go.jp> (multibyte characters) 8;; Author: Kenichi Handa <handa@etl.go.jp> (multi-byte characters)
9;; Maintainer: Kenichi Handa <handa@etl.go.jp> (multibyte characters) 9;; Maintainer: Kenichi Handa <handa@etl.go.jp> (multi-byte characters)
10;; Maintainer: Vinicius Jose Latorre <vinicius@cpqd.com.br> 10;; Maintainer: Vinicius Jose Latorre <vinicius@cpqd.com.br>
11;; Keywords: print, PostScript 11;; Keywords: print, PostScript
12;; Time-stamp: <98/10/13 15:42:23 vinicius> 12;; Time-stamp: <98/10/13 15:42:23 vinicius>
@@ -437,10 +437,10 @@ Please send all bug fixes and enhancements to
437;; Characters TAB, NEWLINE and FORMFEED are always treated by ps-print engine. 437;; Characters TAB, NEWLINE and FORMFEED are always treated by ps-print engine.
438;; 438;;
439;; 439;;
440;; Printing Multibyte Buffer 440;; Printing Multi-byte Buffer
441;; ------------------------- 441;; --------------------------
442;; 442;;
443;; The variable `ps-multibyte-buffer' specifies the ps-print multibyte buffer 443;; The variable `ps-multibyte-buffer' specifies the ps-print multi-byte buffer
444;; handling. 444;; handling.
445;; 445;;
446;; Valid values for `ps-multibyte-buffer' are: 446;; Valid values for `ps-multibyte-buffer' are:
@@ -833,7 +833,7 @@ Please send all bug fixes and enhancements to
833;; 833;;
834;; [keinichi] 980819 Kein'ichi Handa <handa@etl.go.jp> 834;; [keinichi] 980819 Kein'ichi Handa <handa@etl.go.jp>
835;; 835;;
836;; Multibyte buffer handling. 836;; Multi-byte buffer handling.
837;; 837;;
838;; [vinicius] 980306 Vinicius Jose Latorre <vinicius@cpqd.com.br> 838;; [vinicius] 980306 Vinicius Jose Latorre <vinicius@cpqd.com.br>
839;; 839;;
@@ -912,7 +912,7 @@ Please send all bug fixes and enhancements to
912;; Acknowledgements 912;; Acknowledgements
913;; ---------------- 913;; ----------------
914;; 914;;
915;; Thanks to Kein'ichi Handa <handa@etl.go.jp> for multibyte buffer handling. 915;; Thanks to Kein'ichi Handa <handa@etl.go.jp> for multi-byte buffer handling.
916;; 916;;
917;; Thanks to Matthew O Persico <Matthew.Persico@lazard.com> for line number on 917;; Thanks to Matthew O Persico <Matthew.Persico@lazard.com> for line number on
918;; empty columns. 918;; empty columns.
@@ -1024,7 +1024,7 @@ Please send all bug fixes and enhancements to
1024 1024
1025 1025
1026(defcustom ps-multibyte-buffer nil 1026(defcustom ps-multibyte-buffer nil
1027 "*Specifies the multibyte buffer handling. 1027 "*Specifies the multi-byte buffer handling.
1028 1028
1029Valid values are: 1029Valid values are:
1030 1030
@@ -2938,7 +2938,7 @@ which long lines wrap around."
2938 2938
2939 2939
2940;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 2940;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
2941;; For handling multibyte characters -- Begin. 2941;; For handling multi-byte characters -- Begin.
2942;; 2942;;
2943;; The following comments apply only to this part (through the next ^L). 2943;; The following comments apply only to this part (through the next ^L).
2944;; Author: Kenichi Handa <handa@etl.go.jp> 2944;; Author: Kenichi Handa <handa@etl.go.jp>
@@ -3000,7 +3000,7 @@ one argument, the string to encode, and it should return an encoded string.
3000BYTES specifies how many bytes each character has in the encoded byte 3000BYTES specifies how many bytes each character has in the encoded byte
3001sequence; it should be 1 or 2. 3001sequence; it should be 1 or 2.
3002 3002
3003All multibyte characters are printed by fonts specified in this database 3003All multi-byte characters are printed by fonts specified in this database
3004regardless of a font family of ASCII characters. The exception is Latin-1 3004regardless of a font family of ASCII characters. The exception is Latin-1
3005characters which are printed by the same font as ASCII characters, thus obey 3005characters which are printed by the same font as ASCII characters, thus obey
3006font family. 3006font family.
@@ -3355,8 +3355,8 @@ current font."
3355 (and newcodes 3355 (and newcodes
3356 (ps-mule-generate-glyphs font-spec newcodes)))))) 3356 (ps-mule-generate-glyphs font-spec newcodes))))))
3357 3357
3358;; List of charsets of multibyte characters in a text being printed. 3358;; List of charsets of multi-byte characters in a text being printed.
3359;; If the text doesn't contain any multibyte characters (i.e. only 3359;; If the text doesn't contain any multi-byte characters (i.e. only
3360;; ASCII), the value is nil. 3360;; ASCII), the value is nil.
3361(defvar ps-mule-charset-list nil) 3361(defvar ps-mule-charset-list nil)
3362 3362
@@ -3410,7 +3410,7 @@ current font."
3410%%%% End of Mule Section 3410%%%% End of Mule Section
3411 3411
3412" 3412"
3413 "PostScript code for printing multibyte characters.") 3413 "PostScript code for printing multi-byte characters.")
3414 3414
3415(defun ps-mule-skip-same-charset (charset) 3415(defun ps-mule-skip-same-charset (charset)
3416 "Skip characters of CHARSET following the current point." 3416 "Skip characters of CHARSET following the current point."
@@ -3855,7 +3855,7 @@ NewBitmapDict
3855;; Mule specific initializers. 3855;; Mule specific initializers.
3856 3856
3857(defun ps-mule-initialize () 3857(defun ps-mule-initialize ()
3858 "Produce Poscript code in the prologue part for multibyte characters." 3858 "Produce Poscript code in the prologue part for multi-byte characters."
3859 (setq ps-mule-font-info-database 3859 (setq ps-mule-font-info-database
3860 (cond ((eq ps-multibyte-buffer 'non-latin-printer) 3860 (cond ((eq ps-multibyte-buffer 'non-latin-printer)
3861 ps-mule-font-info-database-ps) 3861 ps-mule-font-info-database-ps)
@@ -3931,7 +3931,7 @@ NewBitmapDict
3931 (setq font (cdr font) 3931 (setq font (cdr font)
3932 i (1+ i)))))))) 3932 i (1+ i))))))))
3933 3933
3934;; For handling multibyte characters -- End. 3934;; For handling multi-byte characters -- End.
3935;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 3935;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
3936 3936
3937 3937
@@ -4790,7 +4790,7 @@ EndDSCPage\n"))
4790 ;; pagefeeds, control characters, and plot each chunk. 4790 ;; pagefeeds, control characters, and plot each chunk.
4791 (while (< from to) 4791 (while (< from to)
4792 (if (re-search-forward ps-control-or-escape-regexp to t) 4792 (if (re-search-forward ps-control-or-escape-regexp to t)
4793 ;; region with some control characters or some multibyte characters 4793 ;; region with some control characters or some multi-byte characters
4794 (let* ((match-point (match-beginning 0)) 4794 (let* ((match-point (match-beginning 0))
4795 (match (char-after match-point))) 4795 (match (char-after match-point)))
4796 (when (< from match-point) 4796 (when (< from match-point)
@@ -4821,7 +4821,7 @@ EndDSCPage\n"))
4821 (= ps-height-remaining ps-print-height)) 4821 (= ps-height-remaining ps-print-height))
4822 (ps-next-page))) 4822 (ps-next-page)))
4823 4823
4824 ((> match 255) ; a multibyte character 4824 ((> match 255) ; a multi-byte character
4825 (let ((charset (char-charset match))) 4825 (let ((charset (char-charset match)))
4826 (or (eq charset 'composition) 4826 (or (eq charset 'composition)
4827 (ps-mule-skip-same-charset charset)) 4827 (ps-mule-skip-same-charset charset))
@@ -4831,7 +4831,7 @@ EndDSCPage\n"))
4831 (t ; characters from 127 to 255 4831 (t ; characters from 127 to 255
4832 (ps-control-character match))) 4832 (ps-control-character match)))
4833 (setq from (point))) 4833 (setq from (point)))
4834 ;; region without control characters nor multibyte characters 4834 ;; region without control characters nor multi-byte characters
4835 (when (not (eq ps-mule-current-charset 'ascii)) 4835 (when (not (eq ps-mule-current-charset 'ascii))
4836 (ps-set-font ps-current-font) 4836 (ps-set-font ps-current-font)
4837 (setq ps-mule-current-charset 'ascii)) 4837 (setq ps-mule-current-charset 'ascii))