Commit 5a1173cb authored by Vinicius Jose Latorre's avatar Vinicius Jose Latorre
Browse files

printify-region fix

parent 674dd916
2003-08-01 Vinicius Jose Latorre <viniciusjl@ig.com.br>
* lpr.el (printify-region): It was ending conversion before the
expected position. Reported by Keiichi Suzuki <keiichi@nanap.org>.
2003-07-31 John Paul Wallington <jpw@gnu.org>
 
* net/browse-url.el (browse-url-epiphany): Doc fix.
......
;;; 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.
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment