/[emacs]/emacs/lisp/lpr.el
ViewVC logotype

Diff of /emacs/lisp/lpr.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.65 by miles, Mon Sep 1 15:45:13 2003 UTC revision 1.66 by lektu, Mon Jul 4 02:15:34 2005 UTC
# Line 41  Line 41 
41    
42    
43  (defgroup lpr nil  (defgroup lpr nil
44    "Print Emacs buffer on line printer"    "Print Emacs buffer on line printer."
45    :group 'wp)    :group 'wp)
46    
47    
# Line 291  The characters tab, linefeed, space, ret Line 291  The characters tab, linefeed, space, ret
291          (while (re-search-forward "[\^@-\^h\^k\^n-\^_\177-\377]" nil t)          (while (re-search-forward "[\^@-\^h\^k\^n-\^_\177-\377]" nil t)
292            (setq c (preceding-char))            (setq c (preceding-char))
293            (delete-backward-char 1)            (delete-backward-char 1)
294            (insert (if (< c ?\ )            (insert (if (< c ?\s)
295                        (format "\\^%c" (+ c ?@))                        (format "\\^%c" (+ c ?@))
296                      (format "\\%02x" c))))))))                      (format "\\%02x" c))))))))
297    

Legend:
Removed from v.1.65  
changed lines
  Added in v.1.66

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26