[elpa] externals/compat a90e08cbc5 10/10: compat-macs: Fix docstrings

[ELPA Syncer]

branch: externals/compat
commit a90e08cbc537778ac108e491daff4e418e7740cf
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>

    compat-macs: Fix docstrings
---
 compat-macs.el | 18 +++++++++++-------
 1 file changed, 11 insertions(+), 7 deletions(-)

diff --git a/compat-macs.el b/compat-macs.el
index 247ecfbe84..0293111190 100644
--- a/compat-macs.el
+++ b/compat-macs.el
@@ -162,14 +162,13 @@ attributes (see `compat--generate')."
            ;; Prepend compatibility notice to the actual
            ;; documentation string.
            ,(with-temp-buffer
-              (insert docstring)
-              (newline 2)
               (insert
                (format
                 "[Compatibility %s for `%S', defined in Emacs %s.  \
 If this is not documented on yourself system, you can check \
-`(compat) Emacs %s' for more details.]"
-                type oldname compat--current-version compat--current-version))
+`(compat) Emacs %s' for more details.]\n\n"
+                type oldname compat--current-version compat--current-version
+                docstring))
               (let ((fill-column 80))
                 (fill-region (point-min) (point-max)))
               (buffer-string))
@@ -257,9 +256,14 @@ non-nil value."
                    ,realname ,initval
                    ;; Prepend compatibility notice to the actual
                    ;; documentation string.
-                   ,(format
-                     "[Compatibility variable for `%S', defined in Emacs 
%s]\n\n%s"
-                     name compat--current-version docstring))
+                   ,(with-temp-buffer
+                      (insert
+                       (format
+                        "[Compatibility variable for `%S', defined in Emacs 
%s]\n\n%s"
+                        name compat--current-version docstring))
+                      (let ((fill-column 80))
+                        (fill-region (point-min) (point-max)))
+                      (buffer-string)))
                   ;; Make variable as local if necessary
                   ,(cond
                     ((eq localp 'permanent)