Mercurial > emacs
comparison lisp/gnus/utf7.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 | 8d09094063d0 |
comparison
equal
deleted
inserted
replaced
108764:9ad1ee311b5e | 108765:d835100c3e8b |
---|---|
110 (fc (following-char)) | 110 (fc (following-char)) |
111 (run-length | 111 (run-length |
112 (skip-chars-forward not-direct-encoding-chars))) | 112 (skip-chars-forward not-direct-encoding-chars))) |
113 (if (and (= fc esc-char) | 113 (if (and (= fc esc-char) |
114 (= run-length 1)) ; Lone esc-char? | 114 (= run-length 1)) ; Lone esc-char? |
115 (delete-backward-char 1) ; Now there's one too many | 115 (delete-char -1) ; Now there's one too many |
116 (utf7-fragment-encode p (point) for-imap)) | 116 (utf7-fragment-encode p (point) for-imap)) |
117 (insert "-"))))))) | 117 (insert "-"))))))) |
118 | 118 |
119 (defun utf7-fragment-encode (start end &optional for-imap) | 119 (defun utf7-fragment-encode (start end &optional for-imap) |
120 "Encode text from START to END in buffer as UTF-7 escape fragment. | 120 "Encode text from START to END in buffer as UTF-7 escape fragment. |
151 (delete-char 1)) | 151 (delete-char 1)) |
152 (unless (= run-length 0) ; Encoded lone esc-char? | 152 (unless (= run-length 0) ; Encoded lone esc-char? |
153 (save-excursion | 153 (save-excursion |
154 (utf7-fragment-decode p (point) for-imap) | 154 (utf7-fragment-decode p (point) for-imap) |
155 (goto-char p) | 155 (goto-char p) |
156 (delete-backward-char 1))))))))) | 156 (delete-char -1))))))))) |
157 | 157 |
158 (defun utf7-fragment-decode (start end &optional for-imap) | 158 (defun utf7-fragment-decode (start end &optional for-imap) |
159 "Decode base64 encoded fragment from START to END of UTF-7 text in buffer. | 159 "Decode base64 encoded fragment from START to END of UTF-7 text in buffer. |
160 Use IMAP modification if FOR-IMAP is non-nil." | 160 Use IMAP modification if FOR-IMAP is non-nil." |
161 (save-restriction | 161 (save-restriction |