From: Torsten Hilbrich <torsten.hilbrich@gmx.net>
Date: Thu, 8 Oct 2020 17:30:12 +0000 (+0200)
Subject: Add :version tag to defcustom statement
X-Git-Tag: emacs-28.0.90~4726^2~26
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=5dc17d73b0;p=emacs.git

Add :version tag to defcustom statement

* lisp/net/dictionary.el: Add :version tag to all defcustom statements

Suggested-By: Robert Pluim <rpluim@gmail.com>
---

diff --git a/lisp/net/dictionary.el b/lisp/net/dictionary.el
index ef667f1fe35..7f4bb2a8282 100644
--- a/lisp/net/dictionary.el
+++ b/lisp/net/dictionary.el
@@ -67,7 +67,8 @@
   "This server is contacted for searching the dictionary"
   :group 'dictionary
   :set 'dictionary-set-server-var
-  :type 'string)
+  :type 'string
+  :version "28.1")
 
 (defcustom dictionary-port
   2628
@@ -75,13 +76,15 @@
  This port is propably always 2628 so there should be no need to modify it."
   :group 'dictionary
   :set 'dictionary-set-server-var
-  :type 'number)
+  :type 'number
+  :version "28.1")
 
 (defcustom dictionary-identification
   "dictionary.el emacs lisp dictionary client"
   "This is the identification string that will be sent to the server."
   :group 'dictionary
-  :type 'string)
+  :type 'string
+  :version "28.1")
 
 (defcustom dictionary-default-dictionary
   "*"
@@ -89,13 +92,15 @@
  * and ! have a special meaning, * search all dictionaries, ! search until
  one dictionary yields matches."
   :group 'dictionary
-  :type 'string)
+  :type 'string
+  :version "28.1")
 
 (defcustom dictionary-default-strategy
   "."
   "The default strategy for listing matching words."
   :group 'dictionary
-  :type 'string)
+  :type 'string
+  :version "28.1")
 
 (defcustom dictionary-default-popup-strategy
   "exact"
@@ -132,58 +137,67 @@ by the choice value:
   :type '(choice (const :tag "Exact match" "exact")
 		 (const :tag "Similiar sounding" "soundex")
 		 (const :tag "Levenshtein distance one" "lev")
-		 (string :tag "User choice")))
+		 (string :tag "User choice"))
+  :version "28.1")
 
 (defcustom dictionary-create-buttons
   t
   "Create some clickable buttons on top of the window if non-nil."
   :group 'dictionary
-  :type 'boolean)
+  :type 'boolean
+  :version "28.1")
 
 (defcustom dictionary-mode-hook
   nil
   "Hook run in dictionary mode buffers."
   :group 'dictionary
-  :type 'hook)
+  :type 'hook
+  :version "28.1")
 
 (defcustom dictionary-use-http-proxy
   nil
   "Connects via a HTTP proxy using the CONNECT command when not nil."
   :group 'dictionary-proxy
   :set 'dictionary-set-server-var
-  :type 'boolean)
+  :type 'boolean
+  :version "28.1")
 
 (defcustom dictionary-proxy-server
   "proxy"
   "The name of the HTTP proxy to use when dictionary-use-http-proxy is set."
   :group 'dictionary-proxy
   :set 'dictionary-set-server-var
-  :type 'string)
+  :type 'string
+  :version "28.1")
 
 (defcustom dictionary-proxy-port
   3128
   "The port of the proxy server, used only when dictionary-use-http-proxy is set."
   :group 'dictionary-proxy
   :set 'dictionary-set-server-var
-  :type 'number)
+  :type 'number
+  :version "28.1")
 
 (defcustom dictionary-use-single-buffer
   nil
   "Should the dictionary command reuse previous dictionary buffers?"
   :group 'dictionary
-  :type 'boolean)
+  :type 'boolean
+  :version "28.1")
 
 (defcustom dictionary-description-open-delimiter
   ""
   "The delimiter to display in front of the dictionaries description"
   :group 'dictionary
-  :type 'string)
+  :type 'string
+  :version "28.1")
 
 (defcustom dictionary-description-close-delimiter
   ""
   "The delimiter to display after of the dictionaries description"
   :group 'dictionary
-  :type 'string)
+  :type 'string
+  :version "28.1")
 
 ;; Define only when coding-system-list is available
 (when (fboundp 'coding-system-list)
@@ -200,7 +214,8 @@ by the choice value:
 				 :value 'utf-8
 				 ,@(mapcar (lambda (x) (list 'const x))
 					   (coding-system-list))
-				 ))))
+				 )))
+    :version "28.1")
 
   )
 
@@ -215,7 +230,8 @@ by the choice value:
 	  (t
 	   (:font "default")))
 	"The face that is used for displaying the definition of the word."
-	:group 'dictionary)
+	:group 'dictionary
+        :version "28.1")
 
       (defface dictionary-word-entry-face
 	'((((type x))
@@ -225,13 +241,15 @@ by the choice value:
 	  (t
 	   (:inverse t)))
 	"The face that is used for displaying the initial word entry line."
-	:group 'dictionary)
+	:group 'dictionary
+        :version "28.1")
 
       (defface dictionary-button-face
 	'((t
 	   (:bold t)))
 	"The face that is used for displaying buttons."
-	:group 'dictionary)
+	:group 'dictionary
+        :version "28.1")
 
       (defface dictionary-reference-face
 	'((((type x)
@@ -249,7 +267,8 @@ by the choice value:
 	   (:underline t)))
 
 	"The face that is used for displaying a reference word."
-	:group 'dictionary)
+	:group 'dictionary
+        :version "28.1")
 
       )
 
@@ -1206,7 +1225,8 @@ It presents the word at point as default input and allows editing it."
   nil
   "This dictionary to lookup words for tooltips"
   :group 'dictionary
-  :type '(choice (const :tag "None" nil) string))
+  :type '(choice (const :tag "None" nil) string)
+  :version "28.1")
 
 (defun dictionary-definition (word &optional dictionary)
   (interactive)