;;; By J. Chroboczek <jec@dcs.ed.ac.uk>
;;; This file adds support for the usual keyboards used for writing in
;;; Polish to iso-acc.el in Emacs 19.30 or XEmacs 19.15 or later.

;;; Time-stamp: <97/08/22 20:56:17 jec>

;;; Usage: load this file.  Then type:
;;;
;;;    M-x iso-accents-customise polslash RET
;;;
;;; or
;;;
;;;    M-x iso-accents-customise poltilde RET
;;;
;;; or add to .emacs the following lines:
;;;
;;;    (load "iso-pol")
;;;    (iso-accents-customise "polslash")  ; or "poltilde"
;;;    (global-set-key "\M-P" 'iso-accents-mode)

(require 'iso-acc)

(defvar iso-polish-keys 
  `((?e . 234) (?E . 202) (?o . 243) (?O . 211) (?a . 177) (?A . 161)
    (?s . 182) (?S . 166) (?l . 179) (?L . 163) (?x . 188) (?X . 172)
    (?z . 191) (?Z . 175) (?c . 230) (?C . 198) (?n . 241) (?N . 209)))

(if (assoc "polslash" iso-languages)
    nil
  (setq iso-languages
        (cons
         (list "polslash"
               (cons ?/
                     (cons '(?\ . ?/)
                           iso-polish-keys)))
         (cons
          (list "poltilde"
                (cons ?~
                      (cons '(?\ . ?~)
                            iso-polish-keys)))
          iso-languages))))