From d355a0b79173c5d479fed0c7b1b7b81cc652b42c Mon Sep 17 00:00:00 2001
From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Mon, 24 May 2010 22:11:08 -0400
Subject: Replace Lisp calls to delete-backward-char by delete-char. * bs.el,
 expand.el, ido.el, image-dired.el, lpr.el, pcomplete.el, skeleton.el,
 term.el, time.el, wid-edit.el, woman.el, calc/calc-graph.el,
 calc/calc-help.el, calc/calc-incom.el, calc/calc.el, emacs-cl-extra.el,
 emacs-cl-loaddefs.el, emulation/cua-rect.el, emulation/viper-ex.el,
 eshell/esh-test.el, eshell/eshell.el, gnus/gnus-uu.el, gnus/nndoc.el,
 gnus/nnrss.el, gnus/rfc2047.el, gnus/utf7.el, international/utf-7.el,
 language/ethio-util.el, mh-e/mh-alias.el, mh-e/mh-search.el, net/imap.el,
 net/rcirc.el, obsolete/complete.el, play/decipher.el, progmodes/ada-mode.el,
 progmodes/cc-awk.el, progmodes/dcl-mode.el, progmodes/ps-mode.el,
 progmodes/verilog-mode.el, progmodes/vhdl-mode.el, textmodes/bibtex.el,
 textmodes/fill.el, textmodes/reftex-auc.el, textmodes/rst.el,
 textmodes/sgml-mode.el, textmodes/table.el, textmodes/texinfmt.el: Replace
 Lisp calls to delete-backward-char by calls to delete-char.

---
 lisp/emacs-lisp/cl-extra.el    | 2 +-
 lisp/emacs-lisp/cl-loaddefs.el | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

(limited to 'lisp/emacs-lisp')

diff --git a/lisp/emacs-lisp/cl-extra.el b/lisp/emacs-lisp/cl-extra.el
index 3211f79c9e9..c6aae373589 100644
--- a/lisp/emacs-lisp/cl-extra.el
+++ b/lisp/emacs-lisp/cl-extra.el
@@ -685,7 +685,7 @@ PROPLIST is a list of the sort returned by `symbol-plist'.
     (setq last (point))
     (goto-char (1+ pt))
     (while (search-forward "(quote " last t)
-      (delete-backward-char 7)
+      (delete-char -7)
       (insert "'")
       (forward-sexp)
       (delete-char 1))
diff --git a/lisp/emacs-lisp/cl-loaddefs.el b/lisp/emacs-lisp/cl-loaddefs.el
index 1bffcde03d2..325c7b1479f 100644
--- a/lisp/emacs-lisp/cl-loaddefs.el
+++ b/lisp/emacs-lisp/cl-loaddefs.el
@@ -10,7 +10,7 @@
 ;;;;;;  ceiling* floor* isqrt lcm gcd cl-progv-before cl-set-frame-visible-p
 ;;;;;;  cl-map-overlays cl-map-intervals cl-map-keymap-recursively
 ;;;;;;  notevery notany every some mapcon mapcan mapl maplist map
-;;;;;;  cl-mapcar-many equalp coerce) "cl-extra" "cl-extra.el" "d93072a26c59f663a92b10df8bc28187")
+;;;;;;  cl-mapcar-many equalp coerce) "cl-extra" "cl-extra.el" "deb3495d75c36a222e5238eadb8e347c")
 ;;; Generated autoloads from cl-extra.el
 
 (autoload 'coerce "cl-extra" "\
-- 
cgit v1.2.3