From 961651e5752f9037e4c52f5130fd42f9c9874b26 Mon Sep 17 00:00:00 2001 From: Tom Willemse Date: Thu, 25 May 2023 13:49:01 -0700 Subject: [PATCH] =?UTF-8?q?[oni-core]=20Call=20=E2=80=98consult-customize?= =?UTF-8?q?=E2=80=99=20from=20the=20top-level?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit 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? --- oni-core.el | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/oni-core.el b/oni-core.el index ca9b403..db3e121 100644 --- a/oni-core.el +++ b/oni-core.el @@ -4,7 +4,7 @@ ;; Author: Tom Willemse ;; 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