From: kaoru <kaoru>
Date: Tue, 24 Aug 2010 00:03:21 +0000 (+0000)
Subject: * ptexinfmt.el (texinfo-format-verb): Use (delete-char -1)
X-Git-Tag: merged-trunk-to-elmo-imap4-compliance-1^2~15
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=e4e12ae7178f53d45fe33c935693f31acf53c6e8;p=elisp%2Fwanderlust.git

* ptexinfmt.el (texinfo-format-verb): Use (delete-char -1)
instead of (delete-backward-char 1); For Emacs24.
---

diff --git a/utils/ChangeLog b/utils/ChangeLog
index 188bf57..46d9212 100644
--- a/utils/ChangeLog
+++ b/utils/ChangeLog
@@ -1,3 +1,8 @@
+2010-08-24  TAKAHASHI Kaoru  <kaoru@kaisei.org>
+
+	* ptexinfmt.el (texinfo-format-verb): Use (delete-char -1)
+        instead of (delete-backward-char 1); For Emacs24.
+
 2010-08-04  David Maus  <dmaus@ictsoc.de>
 
 	* ssl.el (open-ssl-stream, condition-case): Don't use old-style
diff --git a/utils/ptexinfmt.el b/utils/ptexinfmt.el
index 4c193e8..d35fc65 100644
--- a/utils/ptexinfmt.el
+++ b/utils/ptexinfmt.el
@@ -409,7 +409,7 @@ For example, @verb\{|@|\} results in @ and
       (error "Not found: @verb start brace"))
     (delete-region texinfo-command-start (+ 2 texinfo-command-end))
     (search-forward  delimiter))
-  (delete-backward-char 1)
+  (delete-char -1)
   (unless (looking-at "}")
     (error "Not found: @verb end brace"))
   (delete-char 1))