]> git.eshelyaron.com Git - emacs.git/commitdiff
Minor fix to how describe-function-1 displays symbols with spaces
authorLars Ingebrigtsen <larsi@gnus.org>
Tue, 8 Feb 2022 07:02:52 +0000 (08:02 +0100)
committerLars Ingebrigtsen <larsi@gnus.org>
Tue, 8 Feb 2022 07:02:52 +0000 (08:02 +0100)
* lisp/help-fns.el (describe-function-1): Ensure that symbols like
`bar\ ' aren't rendered incorrectly (bug#23130).

lisp/help-fns.el

index 36c7966919b8eb1067d6494595255970e736b21d..a7f0c4437fabff4513485e051b80374d87cc5605 100644 (file)
@@ -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))