diff options
| author | Thomas Voss <mail@thomasvoss.com> | 2024-09-10 18:51:44 +0200 |
|---|---|---|
| committer | Thomas Voss <mail@thomasvoss.com> | 2024-09-10 18:51:44 +0200 |
| commit | ecfe5f26c42705e3539316415740958456c1195b (patch) | |
| tree | 817788d24adf2249bd6f220d979e266e2fa44f74 | |
| parent | 782558a703f9da74afacdd26da97ce6c63bc307a (diff) | |
emacs: Remove the ‘: ’ suffix from the prompt
| -rw-r--r-- | .config/emacs/init.el | 7 |
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 () |