Mercurial > emacs

changeset 21646:ec243644b3fb

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Customize. Add `;;; Code' line. ogonek-encoding-choices: new variable as helper for customizing.
author Stephen Eglen <stephen@gnu.org>
date Sat, 18 Apr 1998 16:38:50 +0000
parents 40670d13dd48
children 9b009b58225f
files lisp/international/ogonek.el
diffstat 1 files changed, 32 insertions(+), 11 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/international/ogonek.el	Sat Apr 18 16:35:35 1998 +0000
+++ b/lisp/international/ogonek.el	Sat Apr 18 16:38:50 1998 +0000
@@ -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 @@
   (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 ----