From: Mark Wooding <mdw@distorted.org.uk>
Date: Fri, 13 Sep 2019 16:07:07 +0000 (+0100)
Subject: el/dot-emacs.el (date): Use primitive `delete-char' to remove newline.
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~mdw/git/profile/commitdiff_plain/fbf8b18edfecd9e29e62c00c906b096278314d72?ds=sidebyside

el/dot-emacs.el (date): Use primitive `delete-char' to remove newline.
---

diff --git a/el/dot-emacs.el b/el/dot-emacs.el
index a3bc6f3..0f4d086 100644
--- a/el/dot-emacs.el
+++ b/el/dot-emacs.el
@@ -908,7 +908,7 @@ (defun date ()
 				     (erase-buffer)
 				     (shell-command "date +%Y-%m-%d" t)
 				     (goto-char (mark))
-				     (delete-backward-char 1)
+				     (delete-char -1)
 				     (buffer-string))
 		(kill-buffer buffer))))))