# HG changeset patch
# User Eric S. Raymond <esr@snark.thyrsus.com>
# Date 733197518 0
# Node ID 030b76db285a38565b3afd501fe004af669f1330
# Parent  f8ae5fc2c196e840263f60818a8993368d66e36e
(printify-buffer) Added, debugged from Roland McGrath's printify-buffer code
in LCD.

diff -r f8ae5fc2c196 -r 030b76db285a lisp/lpr.el
--- a/lisp/lpr.el	Sat Mar 27 01:58:33 1993 +0000
+++ b/lisp/lpr.el	Sat Mar 27 01:58:38 1993 +0000
@@ -108,4 +108,20 @@
 	(insert-buffer-substring oldbuf start end)
 	(setq start (point-min) end (point-max)))))
 
+(defun printify-region (begin end)
+  "Turn nonprinting characters (other than TAB, LF, SPC, RET, and FF)
+in the current buffer into printable representations as control or
+hexadecimal escapes."
+  (interactive "r")
+  (save-excursion
+    (goto-char begin)
+    (let (c)
+      (while (re-search-forward "[\^@-\^h\^k\^n-\^_\177-\377]" end t)
+	(setq c (preceding-char))
+	(delete-backward-char 1)
+	(insert 
+	 (if (< c ?\ )
+	     (format "\\^%c" (+ c ?@))
+	   (format "\\%02x" c)))))))
+
 ;;; lpr.el ends here