41 |
|
|
42 |
|
|
43 |
(defgroup lpr nil |
(defgroup lpr nil |
44 |
"Print Emacs buffer on line printer" |
"Print Emacs buffer on line printer." |
45 |
:group 'wp) |
:group 'wp) |
46 |
|
|
47 |
|
|
291 |
(while (re-search-forward "[\^@-\^h\^k\^n-\^_\177-\377]" nil t) |
(while (re-search-forward "[\^@-\^h\^k\^n-\^_\177-\377]" nil t) |
292 |
(setq c (preceding-char)) |
(setq c (preceding-char)) |
293 |
(delete-backward-char 1) |
(delete-backward-char 1) |
294 |
(insert (if (< c ?\ ) |
(insert (if (< c ?\s) |
295 |
(format "\\^%c" (+ c ?@)) |
(format "\\^%c" (+ c ?@)) |
296 |
(format "\\%02x" c)))))))) |
(format "\\%02x" c)))))))) |
297 |
|
|