diff options
Diffstat (limited to 'lisp/language/ethio-util.el')
| -rw-r--r-- | lisp/language/ethio-util.el | 58 |
1 files changed, 42 insertions, 16 deletions
diff --git a/lisp/language/ethio-util.el b/lisp/language/ethio-util.el index fa31cd5f9f8..dc385b07d3e 100644 --- a/lisp/language/ethio-util.el +++ b/lisp/language/ethio-util.el @@ -98,48 +98,74 @@ ;; users' preference ;; -(defvar ethio-primary-language 'tigrigna +(defgroup ethiopic nil + "Options for writing Ethiopic." + :version "28.1" + :group 'languages) + +(defcustom ethio-primary-language 'tigrigna "Symbol that defines the primary language in SERA --> FIDEL conversion. -The value should be one of: `tigrigna', `amharic' or `english'.") +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))) -(defvar ethio-secondary-language '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'.") +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))) -(defvar ethio-use-colon-for-colon nil +(defcustom ethio-use-colon-for-colon nil "Non-nil means associate ASCII colon with Ethiopic colon. If nil, associate ASCII colon with Ethiopic word separator, i.e., two vertically stacked dots. All SERA <--> FIDEL converters refer this -variable.") +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 -mark. All SERA <--> FIDEL converters refer this variable.") +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. If nil, put an apostrophe only between a 6th-form consonant and an -isolated vowel.") +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.") +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: \\=`10\\=`9\\=`100\\=`80\\=`7 if `ethio-numeric-reduction' is 0, \\=`109100807 if `ethio-numeric-reduction' is 1, - \\=`10900807 if `ethio-numeric-reduction' is 2.") + \\=`10900807 if `ethio-numeric-reduction' is 2." + :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.") +If nil, use uppercases." + :version "28.1" + :type 'boolean) + (defun ethio-prefer-amharic-p () (or (eq ethio-primary-language 'amharic) |