packages/mathml/mathml.red

2105 (<< if u=t then else maprin(u); terpri!* nil>>) where outputhandler!* := nil;
2822    temp:=outputhandler!*;
2823    outputhandler!*:=nil;
2830    outputhandler!*:=temp;
3068 %It will change the outputhandler!* when mathml is set to on or both is set
3085 %%%      outputhandler!*:='math_ml_printer;
3087 %%%      if !*mathml neq t then outputhandler!*:=nil;
3089 %%%      outputhandler!*:='math_ml_printer;
3092 %%%        outputhandler!*:=nil;
3094 %%%      outputhandler!*:='math_ml_printer;
3097 %%%        outputhandler!*:=nil
3098 %%%      else outputhandler!*:='math_ml_printer;
3103 put('web,'simpfg,'((nil (or !*mathml (setq outputhandler!* nil)))
3104                    (t (setq outputhandler!* (quote math_ml_printer)))));
3106 put('mathml,'simpfg,'((nil (and (null !*both) (setq outputhandler!* nil)))
3107                       (t (setq outputhandler!* (quote math_ml_printer)))));
3109 put('both,'simpfg,'((nil (setq outputhandler!* (and !*mathml (quote math_ml_printer))))
3110                     (t (setq outputhandler!* (quote math_ml_printer)))));