diff options
| author | Stefan Monnier | 2010-05-24 22:11:08 -0400 |
|---|---|---|
| committer | Stefan Monnier | 2010-05-24 22:11:08 -0400 |
| commit | d355a0b79173c5d479fed0c7b1b7b81cc652b42c (patch) | |
| tree | 22cf673e1bb9f407d8604ebbf1c441da581cacd5 /lisp/emulation | |
| parent | f668ef02cbdbb3544702bb58926a443be918a03f (diff) | |
| download | emacs-d355a0b79173c5d479fed0c7b1b7b81cc652b42c.tar.gz emacs-d355a0b79173c5d479fed0c7b1b7b81cc652b42c.zip | |
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.
Diffstat (limited to 'lisp/emulation')
| -rw-r--r-- | lisp/emulation/cua-rect.el | 2 | ||||
| -rw-r--r-- | lisp/emulation/viper-ex.el | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/lisp/emulation/cua-rect.el b/lisp/emulation/cua-rect.el index 2b41f6435ee..ed3f2d97985 100644 --- a/lisp/emulation/cua-rect.el +++ b/lisp/emulation/cua-rect.el | |||
| @@ -1344,7 +1344,7 @@ With prefix arg, indent to that column." | |||
| 1344 | pad) | 1344 | pad) |
| 1345 | (if (bolp) | 1345 | (if (bolp) |
| 1346 | nil | 1346 | nil |
| 1347 | (delete-backward-char 1) | 1347 | (delete-char -1) |
| 1348 | (if (cua--rectangle-right-side t) | 1348 | (if (cua--rectangle-right-side t) |
| 1349 | (cua--rectangle-insert-col (current-column)) | 1349 | (cua--rectangle-insert-col (current-column)) |
| 1350 | (setq indent (- l (current-column)))))) | 1350 | (setq indent (- l (current-column)))))) |
diff --git a/lisp/emulation/viper-ex.el b/lisp/emulation/viper-ex.el index 5f5c7e86d63..80853fd5680 100644 --- a/lisp/emulation/viper-ex.el +++ b/lisp/emulation/viper-ex.el | |||
| @@ -750,7 +750,7 @@ reversed." | |||
| 750 | (format "[^\\\\]\\(\\\\\\\\\\)*\\\\%c" c))) | 750 | (format "[^\\\\]\\(\\\\\\\\\\)*\\\\%c" c))) |
| 751 | (setq cont nil) | 751 | (setq cont nil) |
| 752 | ;; we are at an escaped delimiter: unescape it and continue | 752 | ;; we are at an escaped delimiter: unescape it and continue |
| 753 | (delete-backward-char 2) | 753 | (delete-char -2) |
| 754 | (insert c) | 754 | (insert c) |
| 755 | (if (eolp) | 755 | (if (eolp) |
| 756 | ;; if at eol, exit loop and go to next line | 756 | ;; if at eol, exit loop and go to next line |