diff options
| author | Juri Linkov <juri@linkov.net> | 2022-11-05 19:34:47 +0200 |
|---|---|---|
| committer | Juri Linkov <juri@linkov.net> | 2022-11-05 19:34:47 +0200 |
| commit | 7926cf73414d93700119f6138429a1347bb797fa (patch) | |
| tree | acc282d6a38f3b03c2d75ec10de52772b1b0d22d /lisp/net/dictionary.el | |
| parent | 2637ef8f48a9f1bd26575731465b9ce0e75d4653 (diff) | |
| download | emacs-7926cf73414d93700119f6138429a1347bb797fa.tar.gz emacs-7926cf73414d93700119f6138429a1347bb797fa.tar.bz2 emacs-7926cf73414d93700119f6138429a1347bb797fa.zip | |
* lisp/net/dictionary.el (dictionary-search): Use format-prompt.
Diffstat (limited to 'lisp/net/dictionary.el')
| -rw-r--r-- | lisp/net/dictionary.el | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/lisp/net/dictionary.el b/lisp/net/dictionary.el index b8f5018005b..d381750eb00 100644 --- a/lisp/net/dictionary.el +++ b/lisp/net/dictionary.el @@ -1150,9 +1150,7 @@ It presents the selection or word at point as default input and allows editing it." (interactive (list (let ((default (dictionary-search-default))) - (read-string (if default - (format "Search word (%s): " default) - "Search word: ") + (read-string (format-prompt "Search word" default) nil 'dictionary-word-history default)) (if current-prefix-arg (read-string (if dictionary-default-dictionary |