compat-defalias: Add docstring

1 files changed, 7 insertions, 4 deletions

diff --git a/compat-macs.el b/compat-macs.el
index f37c0ab..3f723ef 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.