branch: externals/compat
commit 59c893c2fe01f8bb8c25d8b7e48f02595884aeb8
Author: Daniel Mendler <m...@daniel-mendler.de>
Commit: Daniel Mendler <m...@daniel-mendler.de>
compat-defalias: Add docstring
---
compat-macs.el | 11 +++++++----
1 file changed, 7 insertions(+), 4 deletions(-)
diff --git a/compat-macs.el b/compat-macs.el
index f37c0ab1e5..3f723efd49 100644
--- a/compat-macs.el
+++ b/compat-macs.el
@@ -156,10 +156,13 @@ under which the definition is generated.
;; redefine an existing definition if Compat is loaded on a newer Emacs
;; version.
`((unless (fboundp ',name)
- ,(if obsolete
- `(define-obsolete-function-alias
- ',name ',def ,compat--version)
- `(defalias ',name ',def)))))))
+ ,(let ((doc (compat--format-docstring
+ 'function name
+ (get name 'function-documentation))))
+ (if obsolete
+ `(define-obsolete-function-alias
+ ',name ',def ,compat--version ,doc)
+ `(defalias ',name ',def ,doc))))))))
(defmacro compat-defun (name arglist docstring &rest rest)
"Define compatibility function NAME with arguments ARGLIST.
