Remove unknown declare properties for Emacs 24 and prior

1 files changed, 6 insertions, 0 deletions

diff --git a/compat-macs.el b/compat-macs.el
index b2e8612..f6819fc 100644
--- a/compat-macs.el
+++ b/compat-macs.el
@@ -116,6 +116,12 @@ attributes (see `compat-generate-common')."
   (let ((body rest))
     (while (keywordp (car body))
       (setq body (cddr body)))
+    ;; It might be possible to set these properties otherwise.  That
+    ;; should be looked into and implemented if it is the case.
+    (when (and (listp (car-safe body)) (eq (caar body) 'declare))
+      (when (version<= "25" emacs-version)
+        (delq (assq 'side-effect-free (car body)) (car body))
+        (delq (assq 'pure (car body)) (car body))))
     (compat-generate-common
      name
      (lambda (realname version)