[oni-core] Call ‘consult-customize’ from the top-level
This macro seems to work fine when expanded at run-time even when ‘consult’ hasn't been loaded, but it doesn't work after it's been byte-compiled... Perhaps putting it in the top-level will help. I'm wondering if somehow the byte compiler closes over a reference to ‘consult-buffer’ during compilation that's not available when it executes?
This commit is contained in:
parent
67159d71e5
commit
961651e575
1 changed files with 6 additions and 6 deletions
12
oni-core.el
12
oni-core.el
|
@ -4,7 +4,7 @@
|
|||
|
||||
;; Author: Tom Willemse <tom@ryuslash.org>
|
||||
;; Keywords: local
|
||||
;; Version: 2023.0524.235720
|
||||
;; Version: 2023.0525.134737
|
||||
;; Package-Requires: (oni-data-dir oni-embrace oni-hydra expand-region multiple-cursors gcmh diminish ws-butler which-key insert-char-preview mixed-pitch ace-window vertico marginalia orderless consult embark docstr mini-frame)
|
||||
|
||||
;; This program is free software; you can redistribute it and/or modify
|
||||
|
@ -450,14 +450,14 @@ _s_: String list"
|
|||
:enabled buffer-file-name
|
||||
:action find-file))
|
||||
|
||||
(defun oni-core-remove-consult-buffer-preview ()
|
||||
(consult-customize consult-buffer :preview-key nil))
|
||||
(eval-when-compile
|
||||
(require 'consult))
|
||||
|
||||
(consult-customize consult-buffer :preview-key nil)
|
||||
|
||||
(with-eval-after-load 'consult
|
||||
(with-eval-after-load 'related-files
|
||||
(add-to-list 'consult-buffer-sources 'oni-core-related-places-source))
|
||||
|
||||
(oni-core-remove-consult-buffer-preview))
|
||||
(add-to-list 'consult-buffer-sources 'oni-core-related-places-source)))
|
||||
|
||||
;;; Embark
|
||||
|
||||
|
|
Loading…
Reference in a new issue