From 7dc6b13521360dc152d186228c172f8ac6d23a66 Mon Sep 17 00:00:00 2001 From: kaoru Date: Tue, 24 Aug 2010 00:12:54 +0000 Subject: [PATCH] * wl-addrbook.el (wl-addrbook-insert-file): Use (delete-char -1) instead of (delete-backward-char 1) or (backward-deletechar 1). --- utils/ChangeLog | 3 +++ utils/wl-addrbook.el | 6 +++--- 2 files changed, 6 insertions(+), 3 deletions(-) diff --git a/utils/ChangeLog b/utils/ChangeLog index 46d9212..9e25604 100644 --- a/utils/ChangeLog +++ b/utils/ChangeLog @@ -3,6 +3,9 @@ * ptexinfmt.el (texinfo-format-verb): Use (delete-char -1) instead of (delete-backward-char 1); For Emacs24. + * wl-addrbook.el (wl-addrbook-insert-file): Use (delete-char -1) + instead of (delete-backward-char 1) or (backward-deletechar 1). + 2010-08-04 David Maus * ssl.el (open-ssl-stream, condition-case): Don't use old-style diff --git a/utils/wl-addrbook.el b/utils/wl-addrbook.el index b553230..952dc84 100644 --- a/utils/wl-addrbook.el +++ b/utils/wl-addrbook.el @@ -310,7 +310,7 @@ If addresses is a string, expands it recursively." (while (re-search-forward ",[ \t]*$" nil t) (end-of-line) (forward-char 1) - (delete-backward-char 1) + (delete-char -1) (delete-horizontal-space)) ;; unquote, replace white spaces to "\0". (if unquote @@ -319,11 +319,11 @@ If addresses is a string, expands it recursively." (while (re-search-forward "[\"']" nil t) (setq qchar (char-before (point))) ;; (point) is for backward compatibility - (backward-delete-char 1) ;; delete quote + (delete-char -1) ; delete quote (setq beg (point)) (if (not (re-search-forward (char-to-string qchar) nil t)) (throw 'quote nil) ;; error - (backward-delete-char 1) ;; delete quote + (delete-char -1) ; delete quote (save-restriction (narrow-to-region beg (point)) (goto-char (point-min)) -- 1.7.10.4