hiro/apheleia
1
0
Fork 0
mirror of https://github.com/vale981/apheleia synced 2025-03-04 17:11:40 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

Fix build for emacs-master

Browse source
This commit is contained in:
Radon Rosborough 2021-02-20 09:37:36 -08:00
parent f40300b9b5
commit f487ef185c
1 changed files with 7 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
apheleia.el
View file

@ -43,7 +43,13 @@ then `projectile' (if the latter is installed), before falling
back to `default-directory'."
(expand-file-name
(if-let ((project (project-current)))
(car (project-roots project))
;; `project-roots' was replaced with `project-root' in Emacs
;; 28, and the former function deprecated. Use whichever one is
;; available and non-deprecated.
(with-no-warnings
(if (fboundp 'project-root)
(project-root project)
(car (project-roots project))))
(or (and (require 'projectile nil 'noerror)
(projectile-project-root))
default-directory))))