Merge from emacs-23

[gnu-emacs] / lisp / lpr.el

diff --git a/lisp/lpr.el b/lisp/lpr.el
index 466bab58b7416e8af19554a79903ee1d2313ca25..561aa05f372baa640b1a7345a8a2ce369f55eff1 100644 (file)
--- a/lisp/lpr.el
+++ b/lisp/lpr.el
@@ -301,7 +301,7 @@ The characters tab, linefeed, space, return and formfeed are not affected."
       (let (c)
        (while (re-search-forward "[\^@-\^h\^k\^n-\^_\177-\377]" nil t)
          (setq c (preceding-char))
-         (delete-backward-char 1)
+         (delete-char -1)
          (insert (if (< c ?\s)
                      (format "\\^%c" (+ c ?@))
                    (format "\\%02x" c))))))))