From 8db0d840836db9f83427e9375e5ff1c7482e6fb5 Mon Sep 17 00:00:00 2001 From: Thomas Voss Date: Mon, 9 Sep 2024 23:56:23 +0200 Subject: emacs: Prefer ‘format-prompt’ MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- .config/emacs/init.el | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) (limited to '.config') diff --git a/.config/emacs/init.el b/.config/emacs/init.el index 9db3109..2ad75d9 100644 --- a/.config/emacs/init.el +++ b/.config/emacs/init.el @@ -166,7 +166,8 @@ it convenient to use in ‘thread-last’." (list (car range) (cadr range) (concat "\\(\\s-*\\)" - (read-string "Align regexp: ")) + (read-string + (format-prompt "Align regexp" nil))) (y-or-n-p "Repeat? ")))) (align-regexp start end regexp 1 1 repeat)) @@ -510,8 +511,8 @@ 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 "Also delete directory ‘%s’?" - (directory-file-name dir-to-delete)))) + (y-or-n-p (format-prompt "Also delete directory `%s'?" nil + (directory-file-name dir-to-delete)))) (delete-directory dir-to-delete))))) (defun x-remove-auto-directory-hooks () -- cgit v1.2.3