[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/lpr.el
From: |
Vinicius Jose Latorre |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/lpr.el |
Date: |
Fri, 01 Aug 2003 19:40:00 -0400 |
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.
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/lpr.el,
Vinicius Jose Latorre <=