diff options
| author | Daniel Mendler <mail@daniel-mendler.de> | 2023-01-05 16:46:02 +0100 |
|---|---|---|
| committer | Daniel Mendler <mail@daniel-mendler.de> | 2023-01-05 16:46:02 +0100 |
| commit | a90e08cbc537778ac108e491daff4e418e7740cf (patch) | |
| tree | 5eb54c3fe10ef7ac92ef7a5fea3227fb75656c49 | |
| parent | bc2f9448863c583fba5e4b1f544c8b230c3432ba (diff) | |
compat-macs: Fix docstrings
| -rw-r--r-- | compat-macs.el | 18 |
1 files changed, 11 insertions, 7 deletions
diff --git a/compat-macs.el b/compat-macs.el index 247ecfb..0293111 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) |