Is there a way to suppress this error message and beep?
1 Answer
$\begingroup$
$\endgroup$
It might be better to suppress the specific message, and let others pass.
code:
ClearAll[x, a]
CurrentValue[$FrontEnd, {"PrintAction"}] = {"PrintToNotebook"};
CurrentValue[$FrontEnd, {"MessageOptions","KernelMessageAction"}] = {"PrintToNotebook", "Beep"};
And now
Quiet[Integrate[(ArcTan[a*x] - ArcTan[b*x])/x, {x, 0,Infinity}], {Integrate::idiv}]
Quiet
. $\endgroup$Off
:Off[Integrate::idiv]
$\endgroup$