Wrap around error in coreutil's ls

[gnu-emacs] / lisp / help.el

diff --git a/lisp/help.el b/lisp/help.el
index efbae39a002af155e80c87124cbd628f3d6b1de2..b8485667ae03ff1f6ea60b2d08f576bba4372536 100644 (file)
--- a/lisp/help.el
+++ b/lisp/help.el
@@ -1485,7 +1485,8 @@ the same names as used in the original source code, when possible."
 (define-obsolete-function-alias 'help-make-usage 'help--make-usage "25.1")
 
 (defun help--make-usage-docstring (fn arglist)
-  (help--docstring-quote (format "%S" (help--make-usage fn arglist))))
+  (let ((print-escape-newlines t))
+    (help--docstring-quote (format "%S" (help--make-usage fn arglist)))))
 
 \f
 (provide 'help)