From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Tue, 8 Feb 2022 07:02:52 +0000 (+0100)
Subject: Minor fix to how describe-function-1 displays symbols with spaces
X-Git-Tag: emacs-29.0.90~2436
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=95a021fe5f009bb0198b6c1266d674b12092449b;p=emacs.git

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 36c7966919b..a7f0c4437fa 100644
--- 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))