compat--function-definition: Add declare-function

The functions are declared in order to avoid bytecompiler warnings
about missing definitions at runtime. These warnings may be generated
due to the dynamic unless fboundp check, which ensures that existing
functions are not overridden.

1 files changed, 6 insertions, 1 deletions

diff --git a/compat-macs.el b/compat-macs.el
index e9e3712..be3fefd 100644
--- a/compat-macs.el
+++ b/compat-macs.el
@@ -134,7 +134,12 @@ REST are attributes and the function BODY."
         ;; is loaded on a newer Emacs version.
         `(,@(when def
               (if (eq defname name)
-                  `((unless (fboundp ',name) ,def))
+                  ;; Declare the function in a non-existing compat-declare
+                  ;; feature, such that the byte compiler does not complain
+                  ;; about possibly missing functions at runtime. The warnings
+                  ;; are generated due to the unless fboundp check.
+                  `((declare-function ,name "ext:compat-declare")
+                    (unless (fboundp ',name) ,def))
                 (list def)))
           ,@(when realname
               `((defalias ',realname #',(or defname name)))))))))