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 a3bc6f3427607d1c43c1e497adc2a9ededd52be8..0f4d086ce9beed0a4c2e9d6b504a7a3717736a10 100644 (file)
--- 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))
                                     (erase-buffer)
                                     (shell-command "date +%Y-%m-%d" t)
                                     (goto-char (mark))

-                                    (delete-backward-char 1)
+                                    (delete-char -1)

                                     (buffer-string))
                (kill-buffer buffer))))))
 
                                     (buffer-string))
                (kill-buffer buffer))))))