Customize. Add `;;; Code' line.

ogonek-encoding-choices: new variable as helper for customizing.

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 ----