questions catcode

Bonjour,
Pour des besoins typographiques, j'ai besoin de faire de "~" un caractère normal, de redéfinir "_" et de choisir un autre espace insécable, j'ai choisi: "¬"
Je définis alors un environnement où ces règles s'appliquent:
\catcode`\_=13 %
\catcode`\¬=13
  \newenvironment{toto}{%
   \catcode`\~=12 %
   \catcode`\¬=13%
   \def¬{\kern 1ex}%
   \catcode`\_=13 %
   \def_{}%
................. et beaucoup d'autres choses....
}%
{%
\catcode`\_=8%
\catcode`\¬=12%
}%
\catcode`\_=8%
\catcode`\¬=12%
Ça marche mais ça paraît redondant : je ne peux pas définir  \catcode`\¬=13
   \def¬{\kern 1ex} (idem pour _) uniquement dans l'environnement sinon latex proteste qu'il manque une "control sequence" d'où le \catcode`\_=13 % \catcode`\¬=13 avant l'environnement.
De même, remettre leurs catcodes initiaux seulement dans la déclaration de fin d'environnement ne suffit pas non plus.... d'où la rededondance après la définition de l'environnement.
D'où ma question: est-ce une façon normale de procéder où y a-t-il une manière plus orthodoxe?
Je le répète: ça marche comme je veux et je n'ai, jusqu'à présent, pas eu d'effet secondaires.
Merci de vos lumières.
F.P.