Mercurial > emacs
comparison lisp/calc/calc.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 | c84578d13e42 |
children | d150a25a0eb9 |
comparison
equal
deleted
inserted
replaced
108764:9ad1ee311b5e | 108765:d835100c3e8b |
---|---|
2384 (if (and (eq this-command last-command) | 2384 (if (and (eq this-command last-command) |
2385 (eq last-command-event ?.)) | 2385 (eq last-command-event ?.)) |
2386 (progn | 2386 (progn |
2387 (require 'calc-ext) | 2387 (require 'calc-ext) |
2388 (calc-digit-dots)) | 2388 (calc-digit-dots)) |
2389 (delete-backward-char 1) | 2389 (delete-char -1) |
2390 (beep) | 2390 (beep) |
2391 (calc-temp-minibuffer-message " [Bad format]")))))) | 2391 (calc-temp-minibuffer-message " [Bad format]")))))) |
2392 (setq calc-prev-prev-char calc-prev-char | 2392 (setq calc-prev-prev-char calc-prev-char |
2393 calc-prev-char last-command-event)) | 2393 calc-prev-char last-command-event)) |
2394 | 2394 |