summaryrefslogtreecommitdiff
path: root/lisp/net/dictionary.el
diff options
context:
space:
mode:
authorTorsten Hilbrich <torsten.hilbrich@gmx.net>2020-10-08 19:30:12 +0200
committerTorsten Hilbrich <torsten.hilbrich@gmx.net>2020-10-08 19:33:14 +0200
commit5dc17d73b071aefac3dcfed193a82601c94a98af (patch)
tree42631826be4cdbfb665af75be5fe141e08cd0491 /lisp/net/dictionary.el
parent723906c4443e4aa8636c0d5bec8645ae1e29f79a (diff)
downloademacs-5dc17d73b071aefac3dcfed193a82601c94a98af.tar.gz
emacs-5dc17d73b071aefac3dcfed193a82601c94a98af.tar.bz2
emacs-5dc17d73b071aefac3dcfed193a82601c94a98af.zip
Add :version tag to defcustom statement
* lisp/net/dictionary.el: Add :version tag to all defcustom statements Suggested-By: Robert Pluim <rpluim@gmail.com>
Diffstat (limited to 'lisp/net/dictionary.el')
-rw-r--r--lisp/net/dictionary.el60
1 files changed, 40 insertions, 20 deletions
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)