;; Funkcje wstawiajce polskie litery
;; Na podstawie pliku znalezionego na stronie Jacka Pliszki (www.fiz.edu.pl/~pliszka)
;; modyfikacja do uywania Xkbd extension Rafa Kleger-Rudomin (klakier@pg.gda.pl)

(defun insert-a-ogonek ()
  (interactive "*")
  (insert 177)
)

(defun insert-c-acute ()
  (interactive "*")
  (insert 230)
)

(defun insert-e-ogonek ()
  (interactive "*")
  (insert 234)
)

(defun insert-l-slash ()
  (interactive "*")
  (insert 179)
)

(defun insert-n-acute ()
  (interactive "*")
  (insert 241)
)

(defun insert-o-acute ()
  (interactive "*")
  (insert 243)
)

(defun insert-s-acute ()
  (interactive "*")
  (insert 182)
)

(defun insert-z-acute ()
  (interactive "*")
  (insert 188)
)

(defun insert-z-dot ()
  (interactive "*")
  (insert 191)
)

(defun insert-A-ogonek ()
  (interactive "*")
  (insert 161)
)

(defun insert-C-acute ()
  (interactive "*")
  (insert 198)
)

(defun insert-E-ogonek ()
  (interactive "*")
  (insert 202)
)

(defun insert-L-slash ()
  (interactive "*")
  (insert 163)
)

(defun insert-N-acute ()
  (interactive "*")
  (insert 209)
)

(defun insert-O-acute ()
  (interactive "*")
  (insert 211)
)

(defun insert-S-acute ()
  (interactive "*")
  (insert 166)
)

(defun insert-Z-acute ()
  (interactive "*")
  (insert 172)
)

(defun insert-Z-dot ()
  (interactive "*")
  (insert 175)
)

(global-set-key (quote [aogonek])  (quote insert-a-ogonek))
(global-set-key (quote [Aogonek])  (quote insert-A-ogonek))
(global-set-key (quote [cacute]) (quote insert-c-acute))
(global-set-key (quote [Cacute]) (quote insert-C-acute))
(global-set-key (quote [eogonek]) (quote insert-e-ogonek))
(global-set-key (quote [Eogonek]) (quote insert-E-ogonek))
(global-set-key (quote [lstroke]) (quote insert-l-slash))
(global-set-key (quote [Lstroke]) (quote insert-L-slash))
(global-set-key (quote [nacute]) (quote insert-n-acute))
(global-set-key (quote [Nacute]) (quote insert-N-acute))
(global-set-key (quote [oacute]) (quote insert-o-acute))
(global-set-key (quote [Oacute]) (quote insert-O-acute))
(global-set-key (quote [sacute]) (quote insert-s-acute))
(global-set-key (quote [Sacute]) (quote insert-S-acute))
(global-set-key (quote [zacute]) (quote insert-z-acute))
(global-set-key (quote [Zacute]) (quote insert-Z-acute))
(global-set-key (quote [zabovedot]) (quote insert-z-dot))
(global-set-key (quote [Zabovedot]) (quote insert-Z-dot))



