From: Vinicius Jose Latorre Date: Fri, 1 Aug 2003 23:40:00 +0000 (+0000) Subject: printify-region fix X-Git-Tag: ttn-vms-21-2-B4~9194 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=5a1173cba051ce5e8d943898bf69d18f7440053e;p=emacs.git printify-region fix --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 556f82d3844..d3667cdb0ca 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2003-08-01 Vinicius Jose Latorre + + * lpr.el (printify-region): It was ending conversion before the + expected position. Reported by Keiichi Suzuki . + 2003-07-31 John Paul Wallington * net/browse-url.el (browse-url-epiphany): Doc fix. diff --git a/lisp/lpr.el b/lisp/lpr.el index 4d1ec5d77e7..7b827704cad 100644 --- a/lisp/lpr.el +++ b/lisp/lpr.el @@ -1,6 +1,7 @@ ;;; lpr.el --- print Emacs buffer on line printer -;; Copyright (C) 1985, 1988, 1992, 1994, 2001 Free Software Foundation, Inc. +;; Copyright (C) 1985, 1988, 1992, 1994, 2001, 2003 +;; Free Software Foundation, Inc. ;; Maintainer: FSF ;; Keywords: unix @@ -283,14 +284,16 @@ The printable representations use ^ (for ASCII control characters) or hex. The characters tab, linefeed, space, return and formfeed are not affected." (interactive "r") (save-excursion - (goto-char begin) - (let (c) - (while (re-search-forward "[\^@-\^h\^k\^n-\^_\177-\377]" end t) - (setq c (preceding-char)) - (delete-backward-char 1) - (insert (if (< c ?\ ) - (format "\\^%c" (+ c ?@)) - (format "\\%02x" c))))))) + (save-restriction + (narrow-to-region begin end) + (goto-char (point-min)) + (let (c) + (while (re-search-forward "[\^@-\^h\^k\^n-\^_\177-\377]" 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.