branch: externals/compat
commit a90e08cbc537778ac108e491daff4e418e7740cf
Author: Daniel Mendler <m...@daniel-mendler.de>
Commit: Daniel Mendler <m...@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)
