comparison leim/quail/latin-pre.el @ 28434:08cd5ffb5799

("polish-slash"): New input method.

28433:8605ab7873d4

;; Boston, MA 02111-1307, USA.

;;; Commentary:

;; All key translation maps are copied from iso-acc.el.
;; Latin-1-prefix: extra special characters added, adapted from the vim 
;;                 digraphs (from J.H.M.Dassen <[e-mail]>)
;;                 by R.F. Smith <[e-mail]>

;;; Code:

(require 'quail)

 (".Z" ?,C/(B)
 (".c" ?,Ce(B)
 (".g" ?,Cu(B)
 (".z" ?,C?(B)
)

28434:08cd5ffb5799

;; Boston, MA 02111-1307, USA.

;;; Commentary:

;; All key translation maps are copied from iso-acc.el.
;; latin-1-prefix: extra special characters added, adapted from the vim 
;;                 digraphs (from J.H.M.Dassen <[e-mail]>)
;;                 by R.F. Smith <[e-mail]>
;;
;; polish-slash:
;;  Author:	W,B3(Bodek Bzyl <[e-mail]>
;;  Maintainer:	W,B3(Bodek Bzyl <[e-mail]>

;;; Code:

(require 'quail)

 (".Z" ?,C/(B)
 (".c" ?,Ce(B)
 (".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))