1 |
;;; lpr.el --- print Emacs buffer on line printer |
;;; lpr.el --- print Emacs buffer on line printer |
2 |
|
|
3 |
;; Copyright (C) 1985, 1988, 1992, 1994, 2001 Free Software Foundation, Inc. |
;; Copyright (C) 1985, 1988, 1992, 1994, 2001, 2003 |
4 |
|
;; Free Software Foundation, Inc. |
5 |
|
|
6 |
;; Maintainer: FSF |
;; Maintainer: FSF |
7 |
;; Keywords: unix |
;; Keywords: unix |
284 |
The characters tab, linefeed, space, return and formfeed are not affected." |
The characters tab, linefeed, space, return and formfeed are not affected." |
285 |
(interactive "r") |
(interactive "r") |
286 |
(save-excursion |
(save-excursion |
287 |
(goto-char begin) |
(save-restriction |
288 |
(let (c) |
(narrow-to-region begin end) |
289 |
(while (re-search-forward "[\^@-\^h\^k\^n-\^_\177-\377]" end t) |
(goto-char (point-min)) |
290 |
(setq c (preceding-char)) |
(let (c) |
291 |
(delete-backward-char 1) |
(while (re-search-forward "[\^@-\^h\^k\^n-\^_\177-\377]" nil t) |
292 |
(insert (if (< c ?\ ) |
(setq c (preceding-char)) |
293 |
(format "\\^%c" (+ c ?@)) |
(delete-backward-char 1) |
294 |
(format "\\%02x" c))))))) |
(insert (if (< c ?\ ) |
295 |
|
(format "\\^%c" (+ c ?@)) |
296 |
|
(format "\\%02x" c)))))))) |
297 |
|
|
298 |
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
299 |
;; Functions hacked from `ps-print' package. |
;; Functions hacked from `ps-print' package. |