diff options
| -rw-r--r-- | lisp/lpr.el | 4 |
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 | ||