emacs: Remove the ‘: ’ suffix from the prompt

1 files changed, 5 insertions, 2 deletions

diff --git a/.config/emacs/init.el b/.config/emacs/init.el
index 7857df0..3d9b807 100644
--- a/.config/emacs/init.el
+++ b/.config/emacs/init.el
@@ -504,8 +504,11 @@ related hooks."
     (dolist (dir-to-delete x-dirs-to-delete)
       (when (and (stringp dir-to-delete)
                  (file-exists-p dir-to-delete)
-                 (y-or-n-p (format-prompt "Also delete directory `%s'?" nil
-                                          (directory-file-name dir-to-delete))))
+                 (thread-last
+                   (directory-file-name dir-to-delete)
+                   (format-prompt "Also delete directory `%s'?" nil)
+                   (string-remove-suffix ": ")
+                   (y-or-n-p)))
         (delete-directory dir-to-delete)))))
 
 (defun x-remove-auto-directory-hooks ()