Patrice Karatchentzeff écrivait :
[...]
Je me suis rendu compte à l'instant que j'ai oublié de mettre le
« ; »... Il faut l'ajouter :
(defun my-point-virgule ()
(interactive)
(if (eq (char-before) ?\ ) ; si espace classique
(progn
(backward-delete-char 1)
(insert " ;"));<-- 1 espace insécable
(insert " ;")
et
(define-key text-mode-map ";" 'my-point-virgule)
là où il faut.
J'ai un effet collatéral amusant : mes souriards sont aussi précédés
de la bonne espace et ils ne se balladent plus comme des cons tout
seul en début de ligne ;-)
PK
--
|\ _,,,---,,_ Patrice KARATCHENTZEFF
ZZZzz /,`.-'`' -. ;-;;,_ mailto:[EMAIL PROTECTED]
|,4- ) )-,_. ,\ ( `'-' http://p.karatchentzeff.free.fr
'---''(_/--' `-'\_)
