diff options
author | Juanma Barranquero <lekktu@gmail.com> | 2005-07-04 02:15:34 +0000 |
---|---|---|
committer | Juanma Barranquero <lekktu@gmail.com> | 2005-07-04 02:15:34 +0000 |
commit | f93e905fd56344eff2e1bf30a71c89cd549dfade (patch) | |
tree | 1d9597c0113f5a28ee121ea59ec14b59a90b4d5c /lisp/lpr.el | |
parent | 7ae4587b12f3a9f66d939717b29fae3b0c7a21e2 (diff) | |
download | emacs-f93e905fd56344eff2e1bf30a71c89cd549dfade.tar.gz |
(lpr): Finish `defgroup' description with period.
(printify-region): "?\ " -> "?\s".
Diffstat (limited to 'lisp/lpr.el')
-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 @@ (defgroup lpr nil - "Print Emacs buffer on line printer" + "Print Emacs buffer on line printer." :group 'wp) @@ -291,7 +291,7 @@ The characters tab, linefeed, space, return and formfeed are not affected." (while (re-search-forward "[\^@-\^h\^k\^n-\^_\177-\377]" nil t) (setq c (preceding-char)) (delete-backward-char 1) - (insert (if (< c ?\ ) + (insert (if (< c ?\s) (format "\\^%c" (+ c ?@)) (format "\\%02x" c)))))))) |