From 006628df1823ef10bed92c71bee490717f2c2864 Mon Sep 17 00:00:00 2001 From: Mauro Aranda Date: Wed, 23 Jun 2021 12:08:04 -0300 Subject: [PATCH] Fix defvar->defcustom conversion in ethio-util.el * lisp/language/ethio-util.el (ethio-primary-language) (ethio-secondary-language): Don't quote the const. (ethio-use-three-dot-question, ethio-quote-vowel-always) (ethio-W-sixth-always, ethio-numeric-reduction) (ethio-java-save-lowercase): Really make them defcustom. --- lisp/language/ethio-util.el | 22 +++++++++++----------- 1 file changed, 11 insertions(+), 11 deletions(-) diff --git a/lisp/language/ethio-util.el b/lisp/language/ethio-util.el index 1d698229d67..dc385b07d3e 100644 --- a/lisp/language/ethio-util.el +++ b/lisp/language/ethio-util.el @@ -107,17 +107,17 @@ "Symbol that defines the primary language in SERA --> FIDEL conversion. The value should be one of: `tigrigna', `amharic' or `english'." :version "28.1" - :type '(choice (const :tag "Tigrigna" 'tigrigna) - (const :tag "Amharic" 'amharic) - (const :tag "English" 'english))) + :type '(choice (const :tag "Tigrigna" tigrigna) + (const :tag "Amharic" amharic) + (const :tag "English" english))) (defcustom ethio-secondary-language 'english "Symbol that defines the secondary language in SERA --> FIDEL conversion. The value should be one of: `tigrigna', `amharic' or `english'." :version "28.1" - :type '(choice (const :tag "Tigrigna" 'tigrigna) - (const :tag "Amharic" 'amharic) - (const :tag "English" 'english))) + :type '(choice (const :tag "Tigrigna" tigrigna) + (const :tag "Amharic" amharic) + (const :tag "English" english))) (defcustom ethio-use-colon-for-colon nil "Non-nil means associate ASCII colon with Ethiopic colon. @@ -127,7 +127,7 @@ variable." :version "28.1" :type 'boolean) -(defvar ethio-use-three-dot-question nil +(defcustom ethio-use-three-dot-question nil "If non-nil, associate ASCII question mark with Ethiopic question mark. The Ethiopic old style question mark is three vertically stacked dots. If nil, associate ASCII question mark with Ethiopic stylized question @@ -135,7 +135,7 @@ mark. All SERA <--> FIDEL converters refer this variable." :version "28.1" :type 'boolean) -(defvar ethio-quote-vowel-always nil +(defcustom ethio-quote-vowel-always nil "Non-nil means always put an apostrophe before an isolated vowel. This happens in FIDEL --> SERA conversions. Isolated vowels at word beginning do not get an apostrophe put before them. @@ -144,13 +144,13 @@ isolated vowel." :version "28.1" :type 'boolean) -(defvar ethio-W-sixth-always nil +(defcustom ethio-W-sixth-always nil "Non-nil means convert the Wu-form of a 12-form consonant to \"W'\". This is instead of \"Wu\" in FIDEL --> SERA conversion." :version "28.1" :type 'boolean) -(defvar ethio-numeric-reduction 0 +(defcustom ethio-numeric-reduction 0 "Degree of reduction in converting Ethiopic digits into Arabic digits. Should be 0, 1 or 2. For example, ({10}{9}{100}{80}{7}) is converted into: @@ -160,7 +160,7 @@ For example, ({10}{9}{100}{80}{7}) is converted into: :version "28.1" :type 'integer) -(defvar ethio-java-save-lowercase nil +(defcustom ethio-java-save-lowercase nil "Non-nil means save Ethiopic characters in lowercase hex numbers to Java files. If nil, use uppercases." :version "28.1" -- 2.39.2