From 1921d2176bb9127d2483a1c8a470abfc3f4eec33 Mon Sep 17 00:00:00 2001 From: Lars Ingebrigtsen Date: Sun, 6 Sep 2020 23:11:17 +0200 Subject: [PATCH] Use format-prompt in calls to read-from-minibuffer with default value * lisp/tab-bar.el (tab-bar-rename-tab) (tab-bar-rename-tab-by-name): * lisp/simple.el (next-matching-history-element): Use format-prompt in calls to read-from-minibuffer with at default value. --- lisp/simple.el | 12 ++++++------ lisp/tab-bar.el | 4 ++-- 2 files changed, 8 insertions(+), 8 deletions(-) diff --git a/lisp/simple.el b/lisp/simple.el index 376585d8e82..bc92ecf8e55 100644 --- a/lisp/simple.el +++ b/lisp/simple.el @@ -2200,12 +2200,12 @@ Normally, history elements are matched case-insensitively if makes the search case-sensitive." (interactive (let* ((enable-recursive-minibuffers t) - (regexp (read-from-minibuffer "Next element matching (regexp): " - nil - minibuffer-local-map - nil - 'minibuffer-history-search-history - (car minibuffer-history-search-history)))) + (regexp (read-from-minibuffer + (format-prompt "Next element matching (regexp)" + (car minibuffer-history-search-history)) + nil minibuffer-local-map nil + 'minibuffer-history-search-history + (car minibuffer-history-search-history)))) ;; Use the last regexp specified, by default, if input is empty. (list (if (string= regexp "") (if minibuffer-history-search-history diff --git a/lisp/tab-bar.el b/lisp/tab-bar.el index d8f932e7a40..56c936e773d 100644 --- a/lisp/tab-bar.el +++ b/lisp/tab-bar.el @@ -1028,7 +1028,7 @@ function `tab-bar-tab-name-function'." (tab-index (or current-prefix-arg (1+ (tab-bar--current-tab-index tabs)))) (tab-name (alist-get 'name (nth (1- tab-index) tabs)))) (list (read-from-minibuffer - "New name for tab (leave blank for automatic naming): " + (format-prompt "New name for tab" tab-name) nil nil nil nil tab-name) current-prefix-arg))) (let* ((tabs (funcall tab-bar-tabs-function)) @@ -1057,7 +1057,7 @@ function `tab-bar-tab-name-function'." (alist-get 'name tab)) (funcall tab-bar-tabs-function))))) (list tab-name (read-from-minibuffer - "New name for tab (leave blank for automatic naming): " + (format-prompt "New name for tab" tab-name) nil nil nil nil tab-name)))) (tab-bar-rename-tab new-name (1+ (tab-bar--tab-index-by-name tab-name)))) -- 2.39.5