Zander671/emacs-config
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fix consult preview

Browse Source
This commit is contained in:
Alexander Rosenberg
2026-01-25 17:58:18 -08:00
parent 44f409d713
commit 4502284adc
1 changed files with 9 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
init.el
View File

@ -1715,7 +1715,15 @@ COMMAND and COMINT are like `compile'."
(defun my/project-try-dotfile (dir) (defun my/project-try-dotfile (dir)
(if-let (root (locate-dominating-file dir my/project-root-marker)) (if-let (root (locate-dominating-file dir my/project-root-marker))
(list 'vc nil root))) (list 'vc nil root)))
(add-hook 'project-find-functions #'my/project-try-dotfile)) (add-hook 'project-find-functions #'my/project-try-dotfile)
;; `project-try-vc' causes consult file previews to break!
(defun my/project-try-vc-safe (dir)
(ignore-error file-error
(project-try-vc dir)))
(let ((cur-val (default-toplevel-value 'project-find-functions)))
(setq-default project-find-functions
(cl-nsubstitute 'my/project-try-vc-safe 'project-try-vc
cur-val))))
;; comint ;; comint
(use-package comint (use-package comint