Re: [solved] Non-ASCII characters Key binding (emacs 21.4)

[Mounir AITTAHAR]

Here is sample codes (works on emacs 21.4 - console, "-nw" and X mode), 
maybe emacs 20.7) :

;; *********************************************************************
;; Only for emacs -nw
;; *********************************************************************

(normal-erase-is-backspace-mode 1)
(set-keyboard-coding-system 'latin-1)


;;***********************************************************************
;; Local key bindings for some modes
;;***********************************************************************

;; Set up translation-tables for unifying ISO 8859 characters on encoding.

(unify-8859-on-encoding-mode 1)
(unify-8859-on-decoding-mode 1)

;; Returns emacs keys representation
(defun kbd-from-string (list-string)
    (if list-string
        (cons (elt (read-kbd-macro (car list-string)) 0)
              (kbd-from-string(cdr list-string)))
      nil))

(setq char-strings '("é" "è" "ê" "à" "â" "î" "ô" "ù" "û"))
(setq html-char-symbols '("é" "è" "ê"
                          "à" "â"  "î"
                          "&ocirc" "ù" "û"
                          "&ccedil"))
(setq tex-char-symbols '("\\'e" "\\`e" "\\^e"
                         "\\`a" "\\^a" "\\^i"
                         "\\^o" "\\`u" "\\^u"
                         "\\,c"))

;; Get keys repreentation
(setq char-codes (kbd-from-string char-strings nil))

;; Bindings function

(defun set-keys-from-lists (list-keys list-strings)
  (if (not list-keys)
      nil
      (local-set-key (vector (car list-keys))
                     (car list-strings))
      (set-keys-from-lists (cdr list-keys) (cdr list-strings))))

(defun unset-keys-from-list (list-keys)
  (if (not list-keys)
      nil
    (local-unset-key (vector (car list-keys)))
    (unset-keys-from-list (cdr list-keys))))

(defun set-default-char ()
  (princ "default char mode")
  (unset-keys-from-list char-codes))

(defun set-html-char ()
  (princ "default char mode")
  (local-set-key "\M- " (lambda()(interactive)(insert " ")))
  (set-keys-from-lists char-codes html-char-symbols))

(defun set-tex-char ()
  (princ "default char mode")
  (set-keys-from-lists char-codes tex-char-symbols))


;; Hooks
(add-hook 'sgml-mode-hook 'set-html-char)
(add-hook 'tex-mode-hook  'set-tex-char)

;; Cool stuff

(defun switch-html-default-char-mode ()
  "Switch html<=>default key bindings"
  (interactive)
  (cond  (is-html-char-mode (setq is-html-char-mode nil)(set-default-char))
         (t                 (setq is-html-char-mode t)  (set-html-char))))

(setq is-html-char-mode nil)
(global-set-key [f5] 'switch-html-default-char-mode)

--
Mounir AITTAHAR