From: Matthias Meulien <orontee@gmail.com>
Date: Sun, 8 Nov 2020 15:08:07 +0000 (+0100)
Subject: Add history of search words to read-string
X-Git-Tag: emacs-28.0.90~4726^2~17
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=7ca331a4f9;p=emacs.git

Add history of search words to read-string
---

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