Mercurial > emacs
comparison lisp/lpr.el @ 64015:d2af21b7c1a4
(lpr): Finish `defgroup' description with period.
(printify-region): "?\ " -> "?\s".
| author | Juanma Barranquero <lekktu@gmail.com> |
|---|---|
| date | Mon, 04 Jul 2005 02:15:34 +0000 |
| parents | 695cf19ef79e |
| children | 6fb026ad601f |
comparison
equal
deleted
inserted
replaced
| 64014:29c6e26ca9a1 | 64015:d2af21b7c1a4 |
|---|---|
| 39 (defvar lpr-lp-system | 39 (defvar lpr-lp-system |
| 40 (memq system-type '(usg-unix-v dgux hpux irix))) | 40 (memq system-type '(usg-unix-v dgux hpux irix))) |
| 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 |
| 48 ;;;###autoload | 48 ;;;###autoload |
| 49 (defcustom printer-name | 49 (defcustom printer-name |
| 289 (goto-char (point-min)) | 289 (goto-char (point-min)) |
| 290 (let (c) | 290 (let (c) |
| 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 |
| 298 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | 298 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
| 299 ;; Functions hacked from `ps-print' package. | 299 ;; Functions hacked from `ps-print' package. |