diff options
| author | Karl Heuer | 1998-10-26 20:25:41 +0000 |
|---|---|---|
| committer | Karl Heuer | 1998-10-26 20:25:41 +0000 |
| commit | 024ced4d91b605bb2dc984a9b097cc0d9405f04d (patch) | |
| tree | 4d919562c12535705447bcc9c3d50e4e03384867 | |
| parent | d3ab8dac3eb081b38cee2b138d1712c52ee1cb8c (diff) | |
| download | emacs-024ced4d91b605bb2dc984a9b097cc0d9405f04d.tar.gz emacs-024ced4d91b605bb2dc984a9b097cc0d9405f04d.zip | |
Doc fixes.
| -rw-r--r-- | lisp/ps-print.el | 38 |
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 | ||
| 1029 | Valid values are: | 1029 | Valid 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. | |||
| 3000 | BYTES specifies how many bytes each character has in the encoded byte | 3000 | BYTES specifies how many bytes each character has in the encoded byte |
| 3001 | sequence; it should be 1 or 2. | 3001 | sequence; it should be 1 or 2. |
| 3002 | 3002 | ||
| 3003 | All multibyte characters are printed by fonts specified in this database | 3003 | All multi-byte characters are printed by fonts specified in this database |
| 3004 | regardless of a font family of ASCII characters. The exception is Latin-1 | 3004 | regardless of a font family of ASCII characters. The exception is Latin-1 |
| 3005 | characters which are printed by the same font as ASCII characters, thus obey | 3005 | characters which are printed by the same font as ASCII characters, thus obey |
| 3006 | font family. | 3006 | font 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)) |