Skip to content

Commit

Permalink
Fix kludge for Emacs 27
Browse files Browse the repository at this point in the history
  • Loading branch information
tarsius committed Jul 24, 2024
1 parent a403ee1 commit 5c2b630
Showing 1 changed file with 4 additions and 6 deletions.
10 changes: 4 additions & 6 deletions borg.el
Original file line number Diff line number Diff line change
Expand Up @@ -74,11 +74,8 @@
(declare-function org-texinfo-export-to-texinfo "ox-texinfo"
(&optional async subtreep visible-only body-only ext-plist))

(when (eval '(< emacs-major-version 28) t)
(defalias 'native-comp-available-p #'ignore)
(defvar byte+native-compile)
(defvar comp-files-queue))

(defvar byte+native-compile) ; for Emacs 27
(defvar comp-files-queue) ; for Emacs 27
(defvar native-comp-eln-load-path)
(defvar native-compile-target-directory)

Expand Down Expand Up @@ -567,7 +564,8 @@ and optional NATIVE are both non-nil, then also compile natively."
(cond
(noninteractive
(let ((borg-compile-function borg-compile-function))
(when (native-comp-available-p)
(when (and (fboundp 'native-comp-available-p)
(native-comp-available-p))
(when native
(setq borg-compile-function
(if (functionp native) native #'borg-byte+native-compile)))
Expand Down

0 comments on commit 5c2b630

Please sign in to comment.