* printify-region
@ 2003-07-30 2:25 Keiichi Suzuki
0 siblings, 0 replies; only message in thread
From: Keiichi Suzuki @ 2003-07-30 2:25 UTC (permalink / raw)
`printify-region()' ends conversion before the expected
position.
A patch from the CVS HEAD is following.
-------- 8>< -------- 8>< -------- 8>< -------- 8>< --------
Index: lpr.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/lpr.el,v
retrieving revision 1.63
diff -u -u -r1.63 lpr.el
--- lpr.el 4 Feb 2003 11:34:44 -0000 1.63
+++ lpr.el 30 Jul 2003 02:14:56 -0000
@@ -283,14 +283,16 @@
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.
-------- 8>< -------- 8>< -------- 8>< -------- 8>< --------
--
Keiichi Suzuki / keiichi@nanap.org
PGP finger print (DH/DSS)
0B32 B37E 6DE9 3BC1 68A4 4089 7AAF 2B03 ECBD 614B
^ permalink raw reply [flat|nested] only message in thread
only message in thread, other threads:[~2003-07-30 2:25 UTC | newest]
Thread overview: (only message) (download: mbox.gz follow: Atom feed
-- links below jump to the message on this page --
2003-07-30 2:25 printify-region Keiichi Suzuki
Code repositories for project(s) associated with this public inbox
https://git.savannah.gnu.org/cgit/emacs.git
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).