diff options
| author | Stephen Eglen <stephen@gnu.org> | 1998-04-18 16:38:50 +0000 |
|---|---|---|
| committer | Stephen Eglen <stephen@gnu.org> | 1998-04-18 16:38:50 +0000 |
| commit | 9bb5de7084b6ddcad28ceb897c7eb78a4683ff3c (patch) | |
| tree | 02220eb1dee786ea24ccfe21dc1b3224a98506ea | |
| parent | 0373041001e68589b85f34dba6c750c627db9976 (diff) | |
| download | emacs-9bb5de7084b6ddcad28ceb897c7eb78a4683ff3c.tar.gz | |
Customize. Add `;;; Code' line.
ogonek-encoding-choices: new variable as helper for customizing.
| -rw-r--r-- | lisp/international/ogonek.el | 43 |
1 files changed, 32 insertions, 11 deletions
diff --git a/lisp/international/ogonek.el b/lisp/international/ogonek.el index 932dc44ecf5..1b0fc054265 100644 --- a/lisp/international/ogonek.el +++ b/lisp/international/ogonek.el @@ -31,6 +31,13 @@ ;; M-x ogonek-jak -- in Polish ;; M-x ogonek-how -- in English " +;;; Code: + +(defgroup ogonek nil + "Change the encoding of Polish diacritic characters." + :prefix "ogonek-" + :group 'i18n) + (defconst ogonek-name-encoding-alist '(("ascii" . (?A ?C ?E ?L ?N ?O ?S ?Z ?Z ?a ?c ?e ?l ?n ?o ?s ?z ?z)) @@ -260,17 +267,31 @@ The functions come in the following groups. (beginning-of-buffer)) ;; ---- Variables keeping the suggested answers to dialogue questions ----- - -(defvar ogonek-from-encoding "iso8859-2" - "*Encoding in the source file of recoding.") -(defvar ogonek-to-encoding "ascii" - "*Encoding in the target file of recoding.") -(defvar ogonek-prefix-char ?/ - "*Prefix character for prefix encodings.") -(defvar ogonek-prefix-from-encoding "iso8859-2" - "*Encoding in the source file subject to prefixifation.") -(defvar ogonek-prefix-to-encoding "iso8859-2" - "*Encoding in the target file subject to deprefixifation.") +(defvar ogonek-encoding-choices + (cons 'choice + (mapcar (lambda (x) (list 'const (car x))) + ogonek-name-encoding-alist)) + "List of ogonek encodings. Used only for customization.") +(defcustom ogonek-from-encoding "iso8859-2" + "*Encoding in the source file of recoding." + :type ogonek-encoding-choices + :group 'ogonek) +(defcustom ogonek-to-encoding "ascii" + "*Encoding in the target file of recoding." + :type ogonek-encoding-choices + :group 'ogonek) +(defcustom ogonek-prefix-char ?/ + "*Prefix character for prefix encodings." + :type 'character + :group 'ogonek) +(defcustom ogonek-prefix-from-encoding "iso8859-2" + "*Encoding in the source file subject to prefixifation." + :type ogonek-encoding-choices + :group 'ogonek) +(defcustom ogonek-prefix-to-encoding "iso8859-2" + "*Encoding in the target file subject to deprefixifation." + :type ogonek-encoding-choices + :group 'ogonek) ;; ---- Auxiliary functions for reading parameters in interactive mode ---- |