From 9ad8204c3b403f211dabb3291c221c3a68082906 Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Fri, 31 Mar 2000 01:01:34 +0000 Subject: [PATCH] ("polish-slash"): New input method. --- leim/quail/latin-pre.el | 33 ++++++++++++++++++++++++++++++++- 1 file changed, 32 insertions(+), 1 deletion(-) diff --git a/leim/quail/latin-pre.el b/leim/quail/latin-pre.el index f0557427f36..d68299644ac 100644 --- a/leim/quail/latin-pre.el +++ b/leim/quail/latin-pre.el @@ -25,9 +25,13 @@ ;;; Commentary: ;; All key translation maps are copied from iso-acc.el. -;; Latin-1-prefix: extra special characters added, adapted from the vim +;; latin-1-prefix: extra special characters added, adapted from the vim ;; digraphs (from J.H.M.Dassen ) ;; by R.F. Smith +;; +;; polish-slash: +;; Author: W,B3(Bodek Bzyl +;; Maintainer: W,B3(Bodek Bzyl ;;; Code: @@ -680,3 +684,30 @@ Key translation rules are: (".g" ?,Cu(B) (".z" ?,C?(B) ) + + +(quail-define-package + "polish-slash" "Polish" "PL>" nil + "Polish diacritics in Latin-2 encoding are input as `/[acelnosxzACELNOSXZ]'. +For example, the character named `aogonek' is obtained by `/a'." + nil t t t t nil nil nil nil nil t) + +(quail-define-rules + ("/a" ?,B1(B) + ("/c" ?,Bf(B) + ("/e" ?,Bj(B) + ("/l" ?,B3(B) + ("/n" ?,Bq(B) + ("/o" ?,Bs(B) + ("/s" ?,B6(B) + ("/x" ?,B<(B) + ("/z" ?,B?(B) + ("/A" ?,B!(B) + ("/C" ?,BF(B) + ("/E" ?,BJ(B) + ("/L" ?,B#(B) + ("/N" ?,BQ(B) + ("/O" ?,BS(B) + ("/S" ?,B&(B) + ("/X" ?,B,(B) + ("/Z" ?,B/(B)) -- 2.39.5