From 3413eafadd407950d681403e118c127167e16f71 Mon Sep 17 00:00:00 2001 From: Stephen Eglen Date: Sat, 18 Apr 1998 16:38:50 +0000 Subject: [PATCH] Customize. Add `;;; Code' line. ogonek-encoding-choices: new variable as helper for customizing. --- lisp/international/ogonek.el | 43 +++++++++++++++++++++++++++--------- 1 file 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 ---- -- 2.39.2