Remappage du clavier

Le
jj.r&torr&
Je désire échanger les touches "`" et "²" j'ai pour ça =
mis dans mon
fichier d'initialisation :

#+BEGIN_SRC emacs-lisp
;; permutation des touches "`" et "²"
(define-key key-translation-map (kbd "²") (kbd "`")) ; backquote
(define-key key-translation-map (kbd "M-è") (kbd "²")) ;
#+END_SRC

Ça marche, mais si je le place au début du fichier d'initialisati=
on, les
autres redéfinitions du clavier sont masquées. Par exemple

(setq f7-keymap (make-sparse-keymap))
(define-key global-map [f7] f7-keymap)
(define-key f7-keymap [f7] 'org-agenda-list)
(define-key f7-keymap "c" 'org-capture)

La touche "F7" devient undefined.
Par contre si je le place à la fin, pas de problème.
J'aimerais bien comprendre et si possible placer mon remappage n'importe
ou.
J'ai cherché un peu dans (info "(elisp)keymaps") mais mon anglais is v=
ery
moyen."

Merci d'avance

--
JJR.
Questions / Réponses high-tech
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
vincent.belaiche
Le #26409089
jj.r&torr&@gmail.com (Jean-Jacques Rétorré) writes:
Je désire échanger les touches "`" et "²" j'ai pour ça mis dans mon
fichier d'initialisation :
#+BEGIN_SRC emacs-lisp
;; permutation des touches "`" et ""
(define-key key-translation-map (kbd "") (kbd "`")) ; backquote
(define-key key-translation-map (kbd "M-") (kbd "")) ;
#+END_SRC
Ça marche, mais si je le place au début du fichier d'initialisation, les
autres redéfinitions du clavier sont masquées. Par exemple
(setq f7-keymap (make-sparse-keymap))
(define-key global-map [f7] f7-keymap)
(define-key f7-keymap [f7] 'org-agenda-list)
(define-key f7-keymap "c" 'org-capture)
La touche "F7" devient undefined.
Par contre si je le place à la fin, pas de problème.
J'aimerais bien comprendre et si possible placer mon remappage n'importe
ou.
J'ai cherché un peu dans (info "(elisp)keymaps") mais mon anglais is very
moyen."
Merci d'avance
--
JJR.

Je ne comprends pas très bien ton code, moi j'aurais mis (pas testé) :
#+BEGIN_SRC emacs-lisp
;; permutation des touches "`" et "²"
(define-key key-translation-map [?`] [?²])
(define-key key-translation-map [?²] [?`] )
(define-key key-translation-map [(meta ?`)] [(meta ?²)])
(define-key key-translation-map [(meta ?²)] [(meta ?`)] )
(define-key key-translation-map [(control ?`)] [(control ?²)])
(define-key key-translation-map [(control ?²)] [(control ?`)] )
(define-key key-translation-map [(meta control ?`)] [(meta control ?²)])
(define-key key-translation-map [(meta control ?²)] [(meta control ?`)] )
#+END_SRC
Vincent.
Publicité
Poster une réponse
Anonyme