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

[Miles Bader]

Index: emacs/lisp/lpr.el
diff -c emacs/lisp/lpr.el:1.62.2.1 emacs/lisp/lpr.el:1.62.2.2
*** emacs/lisp/lpr.el:1.62.2.1  Fri Apr  4 01:20:09 2003
--- emacs/lisp/lpr.el   Tue Oct 14 19:51:16 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.
***************
*** 323,326 ****
--- 326,330 ----
  
  (provide 'lpr)
  
+ ;;; arch-tag: 21c3f821-ebec-4ca9-ac67-a81e4b75c62a
  ;;; lpr.el ends here