From 7ca331a4f94a6a5f9c454823fd5c765031ce7167 Mon Sep 17 00:00:00 2001 From: Matthias Meulien Date: Sun, 8 Nov 2020 16:08:07 +0100 Subject: [PATCH] Add history of search words to read-string --- lisp/net/dictionary.el | 11 ++++++++--- 1 file changed, 8 insertions(+), 3 deletions(-) diff --git a/lisp/net/dictionary.el b/lisp/net/dictionary.el index 0682d5511c9..510a905aca9 100644 --- a/lisp/net/dictionary.el +++ b/lisp/net/dictionary.el @@ -344,6 +344,10 @@ is utf-8" (error nil)) "Determines if the Emacs has support to display color") +(defvar dictionary-word-history + '() + "History list of searched word") + ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; Basic function providing startup actions ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; @@ -1118,7 +1122,7 @@ It presents the word at point as default input and allows editing it." (read-string (if default (format "Search word (%s): " default) "Search word: ") - nil nil default)) + nil 'dictionary-word-history default)) (if current-prefix-arg (read-string (if dictionary-default-dictionary (format "Dictionary (%s): " dictionary-default-dictionary) @@ -1128,7 +1132,7 @@ It presents the word at point as default input and allows editing it." ;; if called by pressing the button (unless word - (setq word (read-string "Search word: "))) + (setq word (read-string "Search word: " nil 'dictionary-word-history))) ;; just in case non-interactivly called (unless dictionary (setq dictionary dictionary-default-dictionary)) @@ -1158,7 +1162,8 @@ It presents the word at point as default input and allows editing it." (interactive) ;; can't use interactive because of mouse events (or pattern - (setq pattern (read-string "Search pattern: "))) + (setq pattern (read-string "Search pattern: " + nil 'dictionary-word-history))) (dictionary-new-matching pattern)) ;;;###autoload -- 2.39.2