From ecfe5f26c42705e3539316415740958456c1195b Mon Sep 17 00:00:00 2001 From: Thomas Voss Date: Tue, 10 Sep 2024 18:51:44 +0200 Subject: emacs: Remove the ‘: ’ suffix from the prompt MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- .config/emacs/init.el | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) (limited to '.config/emacs/init.el') 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 () -- cgit v1.2.3