From 29f2f3278c0a1c84bdb681822d3f949d8c259791 Mon Sep 17 00:00:00 2001
From: Mario Lang <mlang@delysid.org>
Date: Mon, 3 Mar 2014 18:21:36 +0100
Subject: Do not use `delete-backward-char'.

---
 chess-common.el  | 1 +
 chess-display.el | 2 +-
 chess-file.el    | 2 +-
 chess-images.el  | 2 +-
 4 files changed, 4 insertions(+), 3 deletions(-)

diff --git a/chess-common.el b/chess-common.el
index c7e93e0..f32dcc5 100644
--- a/chess-common.el
+++ b/chess-common.el
@@ -6,6 +6,7 @@
 ;;   http://www.tim-mann.org/xboard/engine-intf.html
 ;;
 
+(require 'chess)
 (require 'chess-engine)
 (require 'chess-message)
 
diff --git a/chess-display.el b/chess-display.el
index bcdc12e..a58fbb1 100644
--- a/chess-display.el
+++ b/chess-display.el
@@ -702,7 +702,7 @@ Basically, it means we are playing, not editing or reviewing."
       (insert text)
       (goto-char (point-max))
       (while (and (bolp) (not (bobp)))
-	(delete-backward-char 1))
+	(delete-char -1))
       (goto-char (point-min))
       (cond
        ((search-forward "[Event " nil t)
diff --git a/chess-file.el b/chess-file.el
index 30565af..9ea516d 100644
--- a/chess-file.el
+++ b/chess-file.el
@@ -81,7 +81,7 @@ inbetween of individual records.")
    ((eq event 'write)
     (goto-char (point-max))
     (while (memq (char-before) '(?  ?\t ?\n ?\r))
-      (delete-backward-char 1))
+      (delete-char -1))
     (apply 'insert (nth 4 (assq chess-file-type chess-file-types)))
     (push (point) chess-file-locations)
     (funcall (nth 3 (assq chess-file-type chess-file-types)) (car args))
diff --git a/chess-images.el b/chess-images.el
index cce9efb..ca11ac9 100644
--- a/chess-images.el
+++ b/chess-images.el
@@ -411,7 +411,7 @@ They are returned in ascending order, or nil for no sizes available."
     (insert "/* pixels */\n")
     (dotimes (i height)
       (insert ?\" (make-string (or width height) ?.) ?\" ?, ?\n))
-    (delete-backward-char 2)
+    (delete-char -2)
     (insert "\n};\n")
     (buffer-string)))
 
-- 
cgit v1.2.3