# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 954464494 0
# Node ID 08cd5ffb579978548cfb2aae174bd8834088109f
# Parent  8605ab7873d4e4527d543f5af42ea547eacb4004
("polish-slash"): New input method.

diff -r 8605ab7873d4 -r 08cd5ffb5799 leim/quail/latin-pre.el
--- a/leim/quail/latin-pre.el	Thu Mar 30 23:12:55 2000 +0000
+++ b/leim/quail/latin-pre.el	Fri Mar 31 01:01:34 2000 +0000
@@ -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 <jdassen@wi.leidenuniv.nl>)
 ;;                 by R.F. Smith <rsmith@xs4all.nl>
+;;
+;; polish-slash:
+;;  Author:	W,B3(Bodek Bzyl <matwb@univ.gda.pl>
+;;  Maintainer:	W,B3(Bodek Bzyl <matwb@univ.gda.pl>
 
 ;;; Code:
 
@@ -680,3 +684,30 @@
  (".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))