aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--lisp/lpr.el4
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/lpr.el b/lisp/lpr.el
index 0eac7b7ba31..445c793fcdd 100644
--- a/lisp/lpr.el
+++ b/lisp/lpr.el
@@ -41,7 +41,7 @@
41 41
42 42
43(defgroup lpr nil 43(defgroup lpr nil
44 "Print Emacs buffer on line printer" 44 "Print Emacs buffer on line printer."
45 :group 'wp) 45 :group 'wp)
46 46
47 47
@@ -291,7 +291,7 @@ The characters tab, linefeed, space, return and formfeed are not affected."
291 (while (re-search-forward "[\^@-\^h\^k\^n-\^_\177-\377]" nil t) 291 (while (re-search-forward "[\^@-\^h\^k\^n-\^_\177-\377]" nil t)
292 (setq c (preceding-char)) 292 (setq c (preceding-char))
293 (delete-backward-char 1) 293 (delete-backward-char 1)
294 (insert (if (< c ?\ ) 294 (insert (if (< c ?\s)
295 (format "\\^%c" (+ c ?@)) 295 (format "\\^%c" (+ c ?@))
296 (format "\\%02x" c)))))))) 296 (format "\\%02x" c))))))))
297 297