Mercurial > emacs
annotate lisp/lpr.el @ 15197:a97349b06c2c
Comment changes.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Thu, 09 May 1996 23:21:54 +0000 |
parents | cca44468f1e4 |
children | f967f12c8ec8 |
rev | line source |
---|---|
659
505130d1ddf8
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
617
diff
changeset
|
1 ;;; lpr.el --- print Emacs buffer on line printer. |
505130d1ddf8
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
617
diff
changeset
|
2 |
7300 | 3 ;; Copyright (C) 1985, 1988, 1992, 1994 Free Software Foundation, Inc. |
846
20674ae6bf52
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
811
diff
changeset
|
4 |
807
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
659
diff
changeset
|
5 ;; Maintainer: FSF |
811
e694e0879463
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
807
diff
changeset
|
6 ;; Keywords: unix |
807
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
659
diff
changeset
|
7 |
155 | 8 ;; This file is part of GNU Emacs. |
9 | |
10 ;; GNU Emacs is free software; you can redistribute it and/or modify | |
11 ;; it under the terms of the GNU General Public License as published by | |
807
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
659
diff
changeset
|
12 ;; the Free Software Foundation; either version 2, or (at your option) |
155 | 13 ;; any later version. |
14 | |
15 ;; GNU Emacs is distributed in the hope that it will be useful, | |
16 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of | |
17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
18 ;; GNU General Public License for more details. | |
19 | |
20 ;; You should have received a copy of the GNU General Public License | |
14169 | 21 ;; along with GNU Emacs; see the file COPYING. If not, write to the |
22 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, | |
23 ;; Boston, MA 02111-1307, USA. | |
155 | 24 |
2307
10e417efb12a
Added or corrected Commentary sections
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
1671
diff
changeset
|
25 ;;; Commentary: |
10e417efb12a
Added or corrected Commentary sections
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
1671
diff
changeset
|
26 |
10e417efb12a
Added or corrected Commentary sections
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
1671
diff
changeset
|
27 ;; Commands to send the region or a buffer your printer. Entry points |
10e417efb12a
Added or corrected Commentary sections
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
1671
diff
changeset
|
28 ;; are `lpr-buffer', `print-buffer', lpr-region', or `print-region'; option |
10e417efb12a
Added or corrected Commentary sections
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
1671
diff
changeset
|
29 ;; variables include `lpr-switches' and `lpr-command'. |
10e417efb12a
Added or corrected Commentary sections
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
1671
diff
changeset
|
30 |
807
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
659
diff
changeset
|
31 ;;; Code: |
155 | 32 |
269 | 33 ;;;###autoload |
1671
b2a50ea75eea
* lpr.el (lpr-switches, lpr-command): Make these defvars, not
Jim Blandy <jimb@redhat.com>
parents:
1615
diff
changeset
|
34 (defvar lpr-switches nil |
13803
e0bae9f528fe
(lpr-switches, lpr-add-switches): Doc fixes.
Karl Heuer <kwzh@gnu.org>
parents:
11831
diff
changeset
|
35 "*List of strings to pass as extra options for the printer program. |
e0bae9f528fe
(lpr-switches, lpr-add-switches): Doc fixes.
Karl Heuer <kwzh@gnu.org>
parents:
11831
diff
changeset
|
36 See `lpr-command'.") |
5267
f7ea27a729b8
(lpr-headers-switches): Treat hpux like usg-unix-v.
Richard M. Stallman <rms@gnu.org>
parents:
5004
diff
changeset
|
37 |
10670
f759e91a1654
(lpr-add-switches): Renamed from lpr-add-options.
Richard M. Stallman <rms@gnu.org>
parents:
10643
diff
changeset
|
38 (defvar lpr-add-switches (eq system-type 'berkeley-unix) |
13803
e0bae9f528fe
(lpr-switches, lpr-add-switches): Doc fixes.
Karl Heuer <kwzh@gnu.org>
parents:
11831
diff
changeset
|
39 "*Non-nil means construct -T and -J options for the printer program. |
e0bae9f528fe
(lpr-switches, lpr-add-switches): Doc fixes.
Karl Heuer <kwzh@gnu.org>
parents:
11831
diff
changeset
|
40 These are made assuming that the program is `lpr'; |
e0bae9f528fe
(lpr-switches, lpr-add-switches): Doc fixes.
Karl Heuer <kwzh@gnu.org>
parents:
11831
diff
changeset
|
41 if you are using some other incompatible printer program, |
e0bae9f528fe
(lpr-switches, lpr-add-switches): Doc fixes.
Karl Heuer <kwzh@gnu.org>
parents:
11831
diff
changeset
|
42 this variable should be nil.") |
155 | 43 |
1068 | 44 ;;;###autoload |
1671
b2a50ea75eea
* lpr.el (lpr-switches, lpr-command): Make these defvars, not
Jim Blandy <jimb@redhat.com>
parents:
1615
diff
changeset
|
45 (defvar lpr-command |
8566
ce5ba216927d
(lpr-command, lpr-headers-switches): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8562
diff
changeset
|
46 (if (memq system-type '(usg-unix-v dgux hpux irix)) |
1615
21e2defc55c0
* lpr.el (lpr-command, lpr-switches): Removed strings starting
Jim Blandy <jimb@redhat.com>
parents:
1463
diff
changeset
|
47 "lp" "lpr") |
9187
8cf9181c119e
(print-region-1): Use them instead of just pr.
Richard M. Stallman <rms@gnu.org>
parents:
8598
diff
changeset
|
48 "*Name of program for printing a file.") |
155 | 49 |
10637
6e25c10f6fe8
(lpr-headers-switches): Default is nil.
Richard M. Stallman <rms@gnu.org>
parents:
10054
diff
changeset
|
50 ;; Default is nil, because that enables us to use pr -f |
6e25c10f6fe8
(lpr-headers-switches): Default is nil.
Richard M. Stallman <rms@gnu.org>
parents:
10054
diff
changeset
|
51 ;; which is more reliable than pr with no args, which is what lpr -p does. |
6e25c10f6fe8
(lpr-headers-switches): Default is nil.
Richard M. Stallman <rms@gnu.org>
parents:
10054
diff
changeset
|
52 (defvar lpr-headers-switches nil |
13894
eeee95f4d989
(lpr-page-header-switches, lpr-headers-switches): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
13803
diff
changeset
|
53 "*List of strings of options to request page headings in the printer program. |
10637
6e25c10f6fe8
(lpr-headers-switches): Default is nil.
Richard M. Stallman <rms@gnu.org>
parents:
10054
diff
changeset
|
54 If nil, we run `lpr-page-header-program' to make page headings |
6e25c10f6fe8
(lpr-headers-switches): Default is nil.
Richard M. Stallman <rms@gnu.org>
parents:
10054
diff
changeset
|
55 and print the result.") |
5267
f7ea27a729b8
(lpr-headers-switches): Treat hpux like usg-unix-v.
Richard M. Stallman <rms@gnu.org>
parents:
5004
diff
changeset
|
56 |
155 | 57 (defvar print-region-function nil |
58 "Function to call to print the region on a printer. | |
216
2c663336acaf
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
155
diff
changeset
|
59 See definition of `print-region-1' for calling conventions.") |
155 | 60 |
9187
8cf9181c119e
(print-region-1): Use them instead of just pr.
Richard M. Stallman <rms@gnu.org>
parents:
8598
diff
changeset
|
61 (defvar lpr-page-header-program "pr" |
8cf9181c119e
(print-region-1): Use them instead of just pr.
Richard M. Stallman <rms@gnu.org>
parents:
8598
diff
changeset
|
62 "*Name of program for adding page headers to a file.") |
8cf9181c119e
(print-region-1): Use them instead of just pr.
Richard M. Stallman <rms@gnu.org>
parents:
8598
diff
changeset
|
63 |
10054
cd3eda7518f0
(lpr-page-header-switches): Use -f by default.
Richard M. Stallman <rms@gnu.org>
parents:
9900
diff
changeset
|
64 (defvar lpr-page-header-switches '("-f") |
13894
eeee95f4d989
(lpr-page-header-switches, lpr-headers-switches): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
13803
diff
changeset
|
65 "*List of strings to use as options for the page-header-generating program. |
eeee95f4d989
(lpr-page-header-switches, lpr-headers-switches): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
13803
diff
changeset
|
66 The variable `lpr-page-header-program' specifies the program to use.") |
9187
8cf9181c119e
(print-region-1): Use them instead of just pr.
Richard M. Stallman <rms@gnu.org>
parents:
8598
diff
changeset
|
67 |
256 | 68 ;;;###autoload |
155 | 69 (defun lpr-buffer () |
70 "Print buffer contents as with Unix command `lpr'. | |
71 `lpr-switches' is a list of extra switches (strings) to pass to lpr." | |
72 (interactive) | |
73 (print-region-1 (point-min) (point-max) lpr-switches nil)) | |
74 | |
256 | 75 ;;;###autoload |
155 | 76 (defun print-buffer () |
77 "Print buffer contents as with Unix command `lpr -p'. | |
78 `lpr-switches' is a list of extra switches (strings) to pass to lpr." | |
79 (interactive) | |
80 (print-region-1 (point-min) (point-max) lpr-switches t)) | |
81 | |
256 | 82 ;;;###autoload |
155 | 83 (defun lpr-region (start end) |
84 "Print region contents as with Unix command `lpr'. | |
85 `lpr-switches' is a list of extra switches (strings) to pass to lpr." | |
86 (interactive "r") | |
87 (print-region-1 start end lpr-switches nil)) | |
88 | |
256 | 89 ;;;###autoload |
155 | 90 (defun print-region (start end) |
91 "Print region contents as with Unix command `lpr -p'. | |
92 `lpr-switches' is a list of extra switches (strings) to pass to lpr." | |
93 (interactive "r") | |
94 (print-region-1 start end lpr-switches t)) | |
95 | |
96 (defun print-region-1 (start end switches page-headers) | |
8113
6a12a2845ccc
(print-region-1): Essentially undo previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8021
diff
changeset
|
97 ;; On some MIPS system, having a space in the job name |
6a12a2845ccc
(print-region-1): Essentially undo previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8021
diff
changeset
|
98 ;; crashes the printer demon. But using dashes looks ugly |
6a12a2845ccc
(print-region-1): Essentially undo previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8021
diff
changeset
|
99 ;; and it seems to annoying to do for that MIPS system. |
6a12a2845ccc
(print-region-1): Essentially undo previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8021
diff
changeset
|
100 (let ((name (concat (buffer-name) " Emacs buffer")) |
8020
23deb92071c6
(print-region-1): Don't include a space in the job name.
Richard M. Stallman <rms@gnu.org>
parents:
7300
diff
changeset
|
101 (title (concat (buffer-name) " Emacs buffer")) |
14188
cca44468f1e4
(print-region): Make pipes use binary mode if file is binary.
Richard M. Stallman <rms@gnu.org>
parents:
14169
diff
changeset
|
102 ;; On MS-DOS systems, make pipes use binary mode if the |
cca44468f1e4
(print-region): Make pipes use binary mode if file is binary.
Richard M. Stallman <rms@gnu.org>
parents:
14169
diff
changeset
|
103 ;; original file is binary. |
cca44468f1e4
(print-region): Make pipes use binary mode if file is binary.
Richard M. Stallman <rms@gnu.org>
parents:
14169
diff
changeset
|
104 (binary-process-input buffer-file-type) |
cca44468f1e4
(print-region): Make pipes use binary mode if file is binary.
Richard M. Stallman <rms@gnu.org>
parents:
14169
diff
changeset
|
105 (binary-process-output buffer-file-type) |
10708
8a15461d4f64
(print-region-1): Include print options in echo area msgs.
Richard M. Stallman <rms@gnu.org>
parents:
10700
diff
changeset
|
106 (width tab-width) |
8a15461d4f64
(print-region-1): Include print options in echo area msgs.
Richard M. Stallman <rms@gnu.org>
parents:
10700
diff
changeset
|
107 switch-string) |
155 | 108 (save-excursion |
10708
8a15461d4f64
(print-region-1): Include print options in echo area msgs.
Richard M. Stallman <rms@gnu.org>
parents:
10700
diff
changeset
|
109 (if page-headers |
8a15461d4f64
(print-region-1): Include print options in echo area msgs.
Richard M. Stallman <rms@gnu.org>
parents:
10700
diff
changeset
|
110 (if lpr-headers-switches |
8a15461d4f64
(print-region-1): Include print options in echo area msgs.
Richard M. Stallman <rms@gnu.org>
parents:
10700
diff
changeset
|
111 ;; It is possible to use an lpr option |
8a15461d4f64
(print-region-1): Include print options in echo area msgs.
Richard M. Stallman <rms@gnu.org>
parents:
10700
diff
changeset
|
112 ;; to get page headers. |
8a15461d4f64
(print-region-1): Include print options in echo area msgs.
Richard M. Stallman <rms@gnu.org>
parents:
10700
diff
changeset
|
113 (setq switches (append (if (stringp lpr-headers-switches) |
8a15461d4f64
(print-region-1): Include print options in echo area msgs.
Richard M. Stallman <rms@gnu.org>
parents:
10700
diff
changeset
|
114 (list lpr-headers-switches) |
8a15461d4f64
(print-region-1): Include print options in echo area msgs.
Richard M. Stallman <rms@gnu.org>
parents:
10700
diff
changeset
|
115 lpr-headers-switches) |
8a15461d4f64
(print-region-1): Include print options in echo area msgs.
Richard M. Stallman <rms@gnu.org>
parents:
10700
diff
changeset
|
116 switches)))) |
8a15461d4f64
(print-region-1): Include print options in echo area msgs.
Richard M. Stallman <rms@gnu.org>
parents:
10700
diff
changeset
|
117 (setq switch-string |
8a15461d4f64
(print-region-1): Include print options in echo area msgs.
Richard M. Stallman <rms@gnu.org>
parents:
10700
diff
changeset
|
118 (if switches (concat " with options " |
8a15461d4f64
(print-region-1): Include print options in echo area msgs.
Richard M. Stallman <rms@gnu.org>
parents:
10700
diff
changeset
|
119 (mapconcat 'identity switches " ")) |
8a15461d4f64
(print-region-1): Include print options in echo area msgs.
Richard M. Stallman <rms@gnu.org>
parents:
10700
diff
changeset
|
120 "")) |
8a15461d4f64
(print-region-1): Include print options in echo area msgs.
Richard M. Stallman <rms@gnu.org>
parents:
10700
diff
changeset
|
121 (message "Spooling%s..." switch-string) |
155 | 122 (if (/= tab-width 8) |
10700
f6f235bc26ba
(print-region-new-buffer): Return new start and end.
Richard M. Stallman <rms@gnu.org>
parents:
10670
diff
changeset
|
123 (let ((new-coords (print-region-new-buffer start end))) |
f6f235bc26ba
(print-region-new-buffer): Return new start and end.
Richard M. Stallman <rms@gnu.org>
parents:
10670
diff
changeset
|
124 (setq start (car new-coords) end (cdr new-coords)) |
155 | 125 (setq tab-width width) |
4446
ff1f9d7addd9
(print-region-1): Make END a marker so untabify relocates it.
Richard M. Stallman <rms@gnu.org>
parents:
2382
diff
changeset
|
126 (save-excursion |
ff1f9d7addd9
(print-region-1): Make END a marker so untabify relocates it.
Richard M. Stallman <rms@gnu.org>
parents:
2382
diff
changeset
|
127 (goto-char end) |
ff1f9d7addd9
(print-region-1): Make END a marker so untabify relocates it.
Richard M. Stallman <rms@gnu.org>
parents:
2382
diff
changeset
|
128 (setq end (point-marker))) |
155 | 129 (untabify (point-min) (point-max)))) |
130 (if page-headers | |
5267
f7ea27a729b8
(lpr-headers-switches): Treat hpux like usg-unix-v.
Richard M. Stallman <rms@gnu.org>
parents:
5004
diff
changeset
|
131 (if lpr-headers-switches |
10708
8a15461d4f64
(print-region-1): Include print options in echo area msgs.
Richard M. Stallman <rms@gnu.org>
parents:
10700
diff
changeset
|
132 ;; We handled this above by modifying SWITCHES. |
8a15461d4f64
(print-region-1): Include print options in echo area msgs.
Richard M. Stallman <rms@gnu.org>
parents:
10700
diff
changeset
|
133 nil |
10637
6e25c10f6fe8
(lpr-headers-switches): Default is nil.
Richard M. Stallman <rms@gnu.org>
parents:
10054
diff
changeset
|
134 ;; Run a separate program to get page headers. |
10700
f6f235bc26ba
(print-region-new-buffer): Return new start and end.
Richard M. Stallman <rms@gnu.org>
parents:
10670
diff
changeset
|
135 (let ((new-coords (print-region-new-buffer start end))) |
f6f235bc26ba
(print-region-new-buffer): Return new start and end.
Richard M. Stallman <rms@gnu.org>
parents:
10670
diff
changeset
|
136 (setq start (car new-coords) end (cdr new-coords))) |
10670
f759e91a1654
(lpr-add-switches): Renamed from lpr-add-options.
Richard M. Stallman <rms@gnu.org>
parents:
10643
diff
changeset
|
137 (apply 'call-process-region start end lpr-page-header-program |
f759e91a1654
(lpr-add-switches): Renamed from lpr-add-options.
Richard M. Stallman <rms@gnu.org>
parents:
10643
diff
changeset
|
138 t t nil |
f759e91a1654
(lpr-add-switches): Renamed from lpr-add-options.
Richard M. Stallman <rms@gnu.org>
parents:
10643
diff
changeset
|
139 (nconc (and lpr-add-switches |
f759e91a1654
(lpr-add-switches): Renamed from lpr-add-options.
Richard M. Stallman <rms@gnu.org>
parents:
10643
diff
changeset
|
140 (list "-h" title)) |
f759e91a1654
(lpr-add-switches): Renamed from lpr-add-options.
Richard M. Stallman <rms@gnu.org>
parents:
10643
diff
changeset
|
141 lpr-page-header-switches)) |
5267
f7ea27a729b8
(lpr-headers-switches): Treat hpux like usg-unix-v.
Richard M. Stallman <rms@gnu.org>
parents:
5004
diff
changeset
|
142 (setq start (point-min) end (point-max)))) |
155 | 143 (apply (or print-region-function 'call-process-region) |
144 (nconc (list start end lpr-command | |
145 nil nil nil) | |
10670
f759e91a1654
(lpr-add-switches): Renamed from lpr-add-options.
Richard M. Stallman <rms@gnu.org>
parents:
10643
diff
changeset
|
146 (nconc (and lpr-add-switches |
f759e91a1654
(lpr-add-switches): Renamed from lpr-add-options.
Richard M. Stallman <rms@gnu.org>
parents:
10643
diff
changeset
|
147 (list "-J" name)) |
f759e91a1654
(lpr-add-switches): Renamed from lpr-add-options.
Richard M. Stallman <rms@gnu.org>
parents:
10643
diff
changeset
|
148 ;; These belong in pr if we are using that. |
f759e91a1654
(lpr-add-switches): Renamed from lpr-add-options.
Richard M. Stallman <rms@gnu.org>
parents:
10643
diff
changeset
|
149 (and lpr-add-switches lpr-headers-switches |
f759e91a1654
(lpr-add-switches): Renamed from lpr-add-options.
Richard M. Stallman <rms@gnu.org>
parents:
10643
diff
changeset
|
150 (list "-T" title)) |
155 | 151 switches))) |
4446
ff1f9d7addd9
(print-region-1): Make END a marker so untabify relocates it.
Richard M. Stallman <rms@gnu.org>
parents:
2382
diff
changeset
|
152 (if (markerp end) |
ff1f9d7addd9
(print-region-1): Make END a marker so untabify relocates it.
Richard M. Stallman <rms@gnu.org>
parents:
2382
diff
changeset
|
153 (set-marker end nil)) |
10708
8a15461d4f64
(print-region-1): Include print options in echo area msgs.
Richard M. Stallman <rms@gnu.org>
parents:
10700
diff
changeset
|
154 (message "Spooling%s...done" switch-string)))) |
155 | 155 |
156 ;; This function copies the text between start and end | |
10700
f6f235bc26ba
(print-region-new-buffer): Return new start and end.
Richard M. Stallman <rms@gnu.org>
parents:
10670
diff
changeset
|
157 ;; into a new buffer, makes that buffer current. |
f6f235bc26ba
(print-region-new-buffer): Return new start and end.
Richard M. Stallman <rms@gnu.org>
parents:
10670
diff
changeset
|
158 ;; It returns the new range to print from the new current buffer |
f6f235bc26ba
(print-region-new-buffer): Return new start and end.
Richard M. Stallman <rms@gnu.org>
parents:
10670
diff
changeset
|
159 ;; as (START . END). |
f6f235bc26ba
(print-region-new-buffer): Return new start and end.
Richard M. Stallman <rms@gnu.org>
parents:
10670
diff
changeset
|
160 |
5267
f7ea27a729b8
(lpr-headers-switches): Treat hpux like usg-unix-v.
Richard M. Stallman <rms@gnu.org>
parents:
5004
diff
changeset
|
161 (defun print-region-new-buffer (ostart oend) |
10700
f6f235bc26ba
(print-region-new-buffer): Return new start and end.
Richard M. Stallman <rms@gnu.org>
parents:
10670
diff
changeset
|
162 (if (string= (buffer-name) " *spool temp*") |
f6f235bc26ba
(print-region-new-buffer): Return new start and end.
Richard M. Stallman <rms@gnu.org>
parents:
10670
diff
changeset
|
163 (cons ostart oend) |
f6f235bc26ba
(print-region-new-buffer): Return new start and end.
Richard M. Stallman <rms@gnu.org>
parents:
10670
diff
changeset
|
164 (let ((oldbuf (current-buffer))) |
f6f235bc26ba
(print-region-new-buffer): Return new start and end.
Richard M. Stallman <rms@gnu.org>
parents:
10670
diff
changeset
|
165 (set-buffer (get-buffer-create " *spool temp*")) |
f6f235bc26ba
(print-region-new-buffer): Return new start and end.
Richard M. Stallman <rms@gnu.org>
parents:
10670
diff
changeset
|
166 (widen) (erase-buffer) |
f6f235bc26ba
(print-region-new-buffer): Return new start and end.
Richard M. Stallman <rms@gnu.org>
parents:
10670
diff
changeset
|
167 (insert-buffer-substring oldbuf ostart oend) |
f6f235bc26ba
(print-region-new-buffer): Return new start and end.
Richard M. Stallman <rms@gnu.org>
parents:
10670
diff
changeset
|
168 (cons (point-min) (point-max))))) |
659
505130d1ddf8
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
617
diff
changeset
|
169 |
2382
030b76db285a
(printify-buffer) Added, debugged from Roland McGrath's printify-buffer code
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
170 (defun printify-region (begin end) |
030b76db285a
(printify-buffer) Added, debugged from Roland McGrath's printify-buffer code
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
171 "Turn nonprinting characters (other than TAB, LF, SPC, RET, and FF) |
030b76db285a
(printify-buffer) Added, debugged from Roland McGrath's printify-buffer code
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
172 in the current buffer into printable representations as control or |
030b76db285a
(printify-buffer) Added, debugged from Roland McGrath's printify-buffer code
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
173 hexadecimal escapes." |
030b76db285a
(printify-buffer) Added, debugged from Roland McGrath's printify-buffer code
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
174 (interactive "r") |
030b76db285a
(printify-buffer) Added, debugged from Roland McGrath's printify-buffer code
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
175 (save-excursion |
030b76db285a
(printify-buffer) Added, debugged from Roland McGrath's printify-buffer code
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
176 (goto-char begin) |
030b76db285a
(printify-buffer) Added, debugged from Roland McGrath's printify-buffer code
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
177 (let (c) |
030b76db285a
(printify-buffer) Added, debugged from Roland McGrath's printify-buffer code
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
178 (while (re-search-forward "[\^@-\^h\^k\^n-\^_\177-\377]" end t) |
030b76db285a
(printify-buffer) Added, debugged from Roland McGrath's printify-buffer code
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
179 (setq c (preceding-char)) |
030b76db285a
(printify-buffer) Added, debugged from Roland McGrath's printify-buffer code
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
180 (delete-backward-char 1) |
030b76db285a
(printify-buffer) Added, debugged from Roland McGrath's printify-buffer code
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
181 (insert |
030b76db285a
(printify-buffer) Added, debugged from Roland McGrath's printify-buffer code
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
182 (if (< c ?\ ) |
030b76db285a
(printify-buffer) Added, debugged from Roland McGrath's printify-buffer code
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
183 (format "\\^%c" (+ c ?@)) |
030b76db285a
(printify-buffer) Added, debugged from Roland McGrath's printify-buffer code
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
184 (format "\\%02x" c))))))) |
030b76db285a
(printify-buffer) Added, debugged from Roland McGrath's printify-buffer code
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
185 |
11831 | 186 (provide 'lpr) |
187 | |
659
505130d1ddf8
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
617
diff
changeset
|
188 ;;; lpr.el ends here |