;; Funkcje wstawiajace polskie litery

(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 [plusminus])   (quote insert-a-ogonek))
(global-set-key (quote [exclamdown])  (quote insert-A-ogonek))
(global-set-key (quote [ae]) (quote insert-c-acute))
(global-set-key (quote [AE]) (quote insert-C-acute))
(global-set-key (quote [ecircumflex]) (quote insert-e-ogonek))
(global-set-key (quote [Ecircumflex]) (quote insert-E-ogonek))
(global-set-key (quote [threesuperior]) (quote insert-l-slash))
(global-set-key (quote [sterling]) (quote insert-L-slash))
(global-set-key (quote [ntilde]) (quote insert-n-acute))
(global-set-key (quote [Ntilde]) (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 [paragraph]) (quote insert-s-acute))
(global-set-key (quote [brokenbar]) (quote insert-S-acute))
(global-set-key (quote [onequarter]) (quote insert-z-acute))
(global-set-key (quote [notsign]) (quote insert-Z-acute))
(global-set-key (quote [questiondown]) (quote insert-z-dot))
(global-set-key (quote [macron]) (quote insert-Z-dot))



