[Emacs-diffs] Changes to emacs/lisp/lpr.el

[Vinicius Jose Latorre]

Index: emacs/lisp/lpr.el
diff -c emacs/lisp/lpr.el:1.63 emacs/lisp/lpr.el:1.64
*** emacs/lisp/lpr.el:1.63      Tue Feb  4 06:34:44 2003
--- emacs/lisp/lpr.el   Fri Aug  1 19:40:00 2003
***************
*** 1,6 ****
  ;;; lpr.el --- print Emacs buffer on line printer
  
! ;; Copyright (C) 1985, 1988, 1992, 1994, 2001 Free Software Foundation, Inc.
  
  ;; Maintainer: FSF
  ;; Keywords: unix
--- 1,7 ----
  ;;; lpr.el --- print Emacs buffer on line printer
  
! ;; Copyright (C) 1985, 1988, 1992, 1994, 2001, 2003
! ;; Free Software Foundation, Inc.
  
  ;; Maintainer: FSF
  ;; Keywords: unix
***************
*** 283,296 ****
  The characters tab, linefeed, space, return and formfeed are not affected."
    (interactive "r")
    (save-excursion
!     (goto-char begin)
!     (let (c)
!       (while (re-search-forward "address@hidden" end t)
!       (setq c (preceding-char))
!       (delete-backward-char 1)
!       (insert (if (< c ?\ )
!                   (format "\\^%c" (+ c ?@))
!                 (format "\\%02x" c)))))))
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;; Functions hacked from `ps-print' package.
--- 284,299 ----
  The characters tab, linefeed, space, return and formfeed are not affected."
    (interactive "r")
    (save-excursion
!     (save-restriction
!       (narrow-to-region begin end)
!       (goto-char (point-min))
!       (let (c)
!       (while (re-search-forward "address@hidden" nil t)
!         (setq c (preceding-char))
!         (delete-backward-char 1)
!         (insert (if (< c ?\ )
!                     (format "\\^%c" (+ c ?@))
!                   (format "\\%02x" c))))))))
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;; Functions hacked from `ps-print' package.