Activate the workaround from the last commit only on Emacs 28 and up.

emacs-eldev · May 11, 2024 · f4fafc3 · f4fafc3
1 parent 2c6be00
commit f4fafc3
Showing 1 changed file with 5 additions and 4 deletions.
diff --git a/eldev.el b/eldev.el
@@ -2717,10 +2717,11 @@ Since 0.2."
                                                                                 ;; source could maybe tell more, but I have no idea how to get it, so fuck it.  Running `chmod'
                                                                                 ;; instead of calling Emacs function would succeed, by the way, but on the other hand it doesn't
                                                                                 ;; have a `nofollow' option, so that doesn't say much.
-                                                                                (eldev-advised ('set-file-modes :around (lambda (original filename mode &optional flag)
-                                                                                                                          (when (and flag (not (file-symlink-p filename)))
-                                                                                                                            (setf flag nil))
-                                                                                                                          (funcall original filename mode flag)))
+                                                                                (eldev-advised ('set-file-modes :around (when (>= emacs-major-version 28)
+                                                                                                                          (lambda (original filename mode &optional flag)
+                                                                                                                            (when (and flag (not (file-symlink-p filename)))
+                                                                                                                              (setf flag nil))
+                                                                                                                            (funcall original filename mode flag))))
                                                                                   (package-install-from-archive dependency)))
                                                                             (when (eq dependency-name 'eldev)
                                                                               ;; Reload the current package again, so that we