Replace Lisp calls to delete-backward-char by delete-char.

[bpt/emacs.git] / lisp / obsolete / complete.el

diff --git a/lisp/obsolete/complete.el b/lisp/obsolete/complete.el
index 9910901..b7e9474 100644 (file)
--- a/lisp/obsolete/complete.el
+++ b/lisp/obsolete/complete.el
@@ -699,7 +699,7 @@ GOTO-END is non-nil, however, it instead replaces up to END."
        (if (and (eq mode 'word)
                 (not PC-word-failed-flag))
            (let ((PC-word-failed-flag t))
-             (delete-backward-char 1)
+             (delete-char -1)
              (PC-do-completion 'word))
                (when abbreviated
                  (delete-region beg end)