procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Add :version tag to defcustom statement

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

Suggested-By: Robert Pluim <rpluim@gmail.com>
This commit is contained in:
Torsten Hilbrich 2020-10-08 19:30:12 +02:00
parent 723906c444
commit 5dc17d73b0
1 changed files with 40 additions and 20 deletions
Download patch file Download diff file Expand all files Collapse all files

60
lisp/net/dictionary.el
View file

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