🚀 go-pugleaf

Few weeks ago, I asked for suggestion to configure Epoch so that it can
recognize the spanish keyboard of a IBM RS/6000.  Thanks to all of you who
send me messages.  The solution I found it is based on a suggestion of 
Eric Favre (Switzerland) and it is included below:


; Default init file for Epoch 4.2.
;
; Rafael Morales Gamboa
; ITESM Campus Morelos
; Cuernavaca, Mor.
; MEXICO
;
; INTERNET: mr370673@rs6550.mor.itesm.mx
;
; 21 de octubre de 1992.


; After many rebind-keys ...

(defvar acute-map (make-sparse-keymap)
  "Keymap for the acute keysym (X)")
(global-set-key "\C-^" acute-map)
(rebind-key "acute" nil "\C-^")

(define-key acute-map "a" "\C-q ")
(define-key acute-map "e" "\C-q")
(define-key acute-map "i" "\C-q!")
(define-key acute-map "o" "\C-q"")
(define-key acute-map "u" "\C-q#")

(defvar diaeresis-map (make-sparse-keymap)
  "Keymap for the diaeresis keysym (X)")
(global-set-key "\M-"" diaeresis-map)
(rebind-key "diaeresis" 'shift "\M-"")

(define-key diaeresis-map "u" "\C-q")
(define-key diaeresis-map "U" "\C-q")

(rebind-key "ntilde" nil "\C-q$")
(rebind-key "Ntilde" 'shift "\C-q%")
(rebind-key "Ntilde" 'lock "\C-q%")

(rebind-key "questiondown" 'shift "\C-q(")
(rebind-key "questiondown" 'lock "\C-q(")
(rebind-key "exclamdown" nil "\C-q-")
(rebind-key "exclamdown" 'lock "\C-q-")


Thank you very much.

Rafael Morales Gamboa
ITESM Campus Morelos
Cuernavaca, Mor.
MEXICO

INTERNET: mr370673@rs6550.mor.itesm.mx