Minor fix to how describe-function-1 displays symbols with spaces

* lisp/help-fns.el (describe-function-1): Ensure that symbols like
`bar\ ' aren't rendered incorrectly (bug#23130).

diff --git a/lisp/help-fns.el b/lisp/help-fns.el
index 36c7966919b8eb1067d6494595255970e736b21d..a7f0c4437fabff4513485e051b80374d87cc5605 100644 (file)
--- a/lisp/help-fns.el
+++ b/lisp/help-fns.el
@@ -962,9 +962,14 @@ Returns a list of the form (REAL-FUNCTION DEF ALIASED REAL-DEF)."
   (let ((pt1 (with-current-buffer (help-buffer) (point))))
     (help-fns-function-description-header function)
     (with-current-buffer (help-buffer)
-      (fill-region-as-paragraph (save-excursion (goto-char pt1) (forward-line 0) (point))
-                                (point))))
-  (terpri)(terpri)
+      (fill-region-as-paragraph
+       (save-excursion
+         (goto-char pt1)
+         (forward-line 0)
+         (point))
+       (point)
+       nil t)
+      (ensure-empty-lines)))
 
   (pcase-let* ((`(,real-function ,def ,_aliased ,real-def)
                 (help-fns--analyze-function function))