comparison lisp/international/utf-7.el @ 108765:d835100c3e8b

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.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Mon, 24 May 2010 22:11:08 -0400
parents 1d1d5d9bd884
children 417b1e4d63cd
comparison
equal deleted inserted replaced
108764:9ad1ee311b5e 108765:d835100c3e8b
60 (subst-char-in-region p (point) ?, ?/)) 60 (subst-char-in-region p (point) ?, ?/))
61 (base64-decode-region p (point))) 61 (base64-decode-region p (point)))
62 (decode-coding-region p (point) 'utf-16be) 62 (decode-coding-region p (point) 'utf-16be)
63 (save-excursion 63 (save-excursion
64 (goto-char p) 64 (goto-char p)
65 (delete-backward-char 1))))))) 65 (delete-char -1)))))))
66 (- (point-max) (point-min))))) 66 (- (point-max) (point-min)))))
67 67
68 ;;;###autoload 68 ;;;###autoload
69 (defun utf-7-post-read-conversion (len) 69 (defun utf-7-post-read-conversion (len)
70 (utf-7-decode len nil)) 70 (utf-7-decode len nil))