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 |