Mercurial > emacs
comparison lisp/lpr.el @ 2382:030b76db285a
(printify-buffer) Added, debugged from Roland McGrath's printify-buffer code
in LCD.
| author | Eric S. Raymond <esr@snark.thyrsus.com> |
|---|---|
| date | Sat, 27 Mar 1993 01:58:38 +0000 |
| parents | 10e417efb12a |
| children | ff1f9d7addd9 |
comparison
equal
deleted
inserted
replaced
| 2381:f8ae5fc2c196 | 2382:030b76db285a |
|---|---|
| 106 (set-buffer (get-buffer-create " *spool temp*")) | 106 (set-buffer (get-buffer-create " *spool temp*")) |
| 107 (widen) (erase-buffer) | 107 (widen) (erase-buffer) |
| 108 (insert-buffer-substring oldbuf start end) | 108 (insert-buffer-substring oldbuf start end) |
| 109 (setq start (point-min) end (point-max))))) | 109 (setq start (point-min) end (point-max))))) |
| 110 | 110 |
| 111 (defun printify-region (begin end) | |
| 112 "Turn nonprinting characters (other than TAB, LF, SPC, RET, and FF) | |
| 113 in the current buffer into printable representations as control or | |
| 114 hexadecimal escapes." | |
| 115 (interactive "r") | |
| 116 (save-excursion | |
| 117 (goto-char begin) | |
| 118 (let (c) | |
| 119 (while (re-search-forward "[\^@-\^h\^k\^n-\^_\177-\377]" end t) | |
| 120 (setq c (preceding-char)) | |
| 121 (delete-backward-char 1) | |
| 122 (insert | |
| 123 (if (< c ?\ ) | |
| 124 (format "\\^%c" (+ c ?@)) | |
| 125 (format "\\%02x" c))))))) | |
| 126 | |
| 111 ;;; lpr.el ends here | 127 ;;; lpr.el ends here |