/[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.63 by lektu, Tue Feb 4 11:34:44 2003 UTC revision 1.64 by viniciusjl, Fri Aug 1 23:40:00 2003 UTC
# Line 1  Line 1 
1  ;;; lpr.el --- print Emacs buffer on line printer  ;;; lpr.el --- print Emacs buffer on line printer
2    
3  ;; Copyright (C) 1985, 1988, 1992, 1994, 2001 Free Software Foundation, Inc.  ;; Copyright (C) 1985, 1988, 1992, 1994, 2001, 2003
4    ;; Free Software Foundation, Inc.
5    
6  ;; Maintainer: FSF  ;; Maintainer: FSF
7  ;; Keywords: unix  ;; Keywords: unix
# Line 283  The printable representations use ^ (for Line 284  The printable representations use ^ (for
284  The characters tab, linefeed, space, return and formfeed are not affected."  The characters tab, linefeed, space, return and formfeed are not affected."
285    (interactive "r")    (interactive "r")
286    (save-excursion    (save-excursion
287      (goto-char begin)      (save-restriction
288      (let (c)        (narrow-to-region begin end)
289        (while (re-search-forward "[\^@-\^h\^k\^n-\^_\177-\377]" end t)        (goto-char (point-min))
290          (setq c (preceding-char))        (let (c)
291          (delete-backward-char 1)          (while (re-search-forward "[\^@-\^h\^k\^n-\^_\177-\377]" nil t)
292          (insert (if (< c ?\ )            (setq c (preceding-char))
293                      (format "\\^%c" (+ c ?@))            (delete-backward-char 1)
294                    (format "\\%02x" c)))))))            (insert (if (< c ?\ )
295                          (format "\\^%c" (+ c ?@))
296                        (format "\\%02x" c))))))))
297    
298  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
299  ;; Functions hacked from `ps-print' package.  ;; Functions hacked from `ps-print' package.

Legend:
Removed from v.1.63  
changed lines
  Added in v.1.64

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