mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-13 09:32:47 +00:00
Code Issues Releases Activity

Customize. Add `;;; Code' line.

Browse Source 
ogonek-encoding-choices: new variable as helper for customizing.
This commit is contained in:
Stephen Eglen 1998-04-18 16:38:50 +00:00
parent d876a0a0c9
commit 3413eafadd
1 changed files with 32 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

43
lisp/international/ogonek.el
View File

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