Prevent text from wrapping in a notebook

Mathematica graphics

You can also set option PageWidth -> Infinity for the Cell or Notebook, e.g.:

SetOptions[EvaluationNotebook[], PageWidth -> Infinity]

There's also a way to do it programmatically with LineBreakWithin

SetOptions[$FrontEnd, LineBreakWithin -> False]

Recover the original with:

SetOptions[$FrontEnd, LineBreakWithin -> Automatic]

Warning:

This function has not been fully integrated into the long-term Mathematica system, and is subject to change.

Related