procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source 
* 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.
This commit is contained in:
Stefan Monnier 2010-05-24 22:11:08 -04:00
parent f668ef02cb
commit d355a0b791
48 changed files with 134 additions and 117 deletions
Download patch file Download diff file Expand all files Collapse all files

8
lisp/progmodes/dcl-mode.el
View file

@ -1549,13 +1549,11 @@ Also remove the continuation mark if easily detected."
(interactive "*P")
(delete-indentation arg)
(let ((type (dcl-get-line-type)))
(if (and (or (equal type '$)
(equal type '-)
(equal type 'empty-$))
(if (and (member type '($ - empty-$))
(not (bobp))
(= (char-after (1- (point))) ?-))
(= (char-before) ?-))
(progn
(delete-backward-char 1)
(delete-char -1)
(fixup-whitespace)))))