mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-26 19:18:50 +00:00
Code Issues Releases Activity

printify-region fix

Browse Source
This commit is contained in:
Vinicius Jose Latorre 2003-08-01 23:40:00 +00:00
parent 674dd916f1
commit 5a1173cba0
2 changed files with 17 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ChangeLog
View File

@ -1,3 +1,8 @@
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.

21
lisp/lpr.el
View File

@ -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.