[elpa] externals/compat 7619f21 89/99: Display version number of manual advice docstring

[ELPA Syncer]

branch: externals/compat
commit 7619f218486d35668bb116501b30c6f20e45243e
Author: Philip Kaludercic <philipk@posteo.net>
Commit: Philip Kaludercic <philipk@posteo.net>

    Display version number of manual advice docstring
---
 compat-macs.el | 11 ++++++-----
 1 file changed, 6 insertions(+), 5 deletions(-)

diff --git a/compat-macs.el b/compat-macs.el
index f2e9c1b..46ea7aa 100644
--- a/compat-macs.el
+++ b/compat-macs.el
@@ -96,7 +96,7 @@ TYPE is used to set the symbol property `compat-type' for 
NAME."
                                     (regexp-quote (symbol-name name))
                                     "\\)\\_>")
                            1 font-lock-preprocessor-face prepend))))
-                 ,(funcall install-fn realname))))
+                 ,(funcall install-fn realname version))))
     `(progn
        (put ',realname 'compat-type ',type)
        (put ',realname 'compat-version ,version)
@@ -146,7 +146,7 @@ attributes (see `compat-generate-common')."
          ,(and (eq type 'advice) '(ignore oldfun))
          ;; Insert the actual body now.
          ,@body))
-     (lambda (realname)
+     (lambda (realname version)
        (cond
         ((memq type '(func macro))
          ;; Functions and macros are installed by
@@ -165,8 +165,9 @@ attributes (see `compat-generate-common')."
                 (put ',name 'compat-advice-fn #',realname)
                 (defalias ',name
                   (lambda (&rest args)
-                    ,(format "[Manual compatibility advice for %S]\n\n%s"
-                             name (documentation name))
+                    ,(format
+                      "[Manual compatibility advice for `%S', defined in Emacs 
%s]\n\n%s"
+                      name version (documentation name))
                     (apply #',realname (cons (autoload-do-load ,oldfun) 
args))))))))))
      (lambda ()
        (cond
@@ -254,7 +255,7 @@ non-nil value."
              `(put ',realname 'permanent-local t))
             (localp
              `(make-variable-buffer-local ',realname))))))
-   (lambda (realname)
+   (lambda (realname _version)
      `(defvaralias ',name ',realname))
    (lambda ()
      `(not (boundp ',name)))