From c78a5b391ce1f46096afd5e1ddf9b9c54e0f6975 Mon Sep 17 00:00:00 2001 From: jao Date: Thu, 21 Oct 2021 04:29:48 +0100 Subject: pre-narrow for C-c m --- completion.org | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) (limited to 'completion.org') diff --git a/completion.org b/completion.org index eb58943..d8ba4b4 100644 --- a/completion.org +++ b/completion.org @@ -200,10 +200,11 @@ (defvar jao-consult-narrow nil) (defun jao-consult-initial-narrow () - (when (eq this-command #'consult-buffer) - (when-let (c (cdr (assoc (jao-afio-current-frame) jao-consult-narrow))) - (setq unread-command-events - (append unread-command-events `(,c 32)))))) + (when-let (c (cond ((eq this-command #'consult-buffer) + (cdr (assoc (jao-afio-current-frame) + jao-consult-narrow))) + ((eq this-command #'consult-mode-command) ?m))) + (setq unread-command-events (append unread-command-events `(,c 32))))) (add-hook 'minibuffer-setup-hook #'jao-consult-initial-narrow) -- cgit v1.2.3