From b935522ec4fd13aef49de28cec86a8b532db4693 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Wed, 21 Jul 2010 01:13:44 +0000 Subject: [PATCH] (wl-summary-put-temp-mark): Use (delete-char -1) instead of (delete-backward-char 1) that deletes region in Emacs 24. See delete-active-region described in NEWS. --- wl/ChangeLog | 6 ++++++ wl/wl-summary.el | 2 +- 2 files changed, 7 insertions(+), 1 deletion(-) diff --git a/wl/ChangeLog b/wl/ChangeLog index 52c4610..6e9495e 100644 --- a/wl/ChangeLog +++ b/wl/ChangeLog @@ -1,3 +1,9 @@ +2010-07-21 Katsumi Yamaoka + + * wl-summary.el (wl-summary-put-temp-mark): Use (delete-char -1) + instead of (delete-backward-char 1) that deletes region in Emacs 24. + See delete-active-region described in NEWS. + 2010-05-25 Tetsurou Okazaki * wl-spam.el (wl-summary-register-as-spam-region) diff --git a/wl/wl-summary.el b/wl/wl-summary.el index 72811d5..eff7f67 100644 --- a/wl/wl-summary.el +++ b/wl/wl-summary.el @@ -3008,7 +3008,7 @@ The mark is decided according to the FOLDER and STATUS." (let ((inhibit-read-only t) (buffer-read-only nil)) (move-to-column wl-summary-buffer-temp-mark-column) - (delete-backward-char 1) + (delete-char -1) (insert mark))))) (defun wl-summary-next-buffer () -- 1.7.10.4