f = (x Exp[Sqrt[1 + x^2]])/(1 + Sqrt[1 + x^2]); r = Reduce[f == 1, x, Reals]
Plot[{f, 1}, {x, -2, 2}, Epilog -> {Red, PointSize[0.025], Point[{x, f}] /. {ToRules[r]}}]