diff options
author | jao <jao@gnu.org> | 2021-10-21 04:29:48 +0100 |
---|---|---|
committer | jao <jao@gnu.org> | 2021-10-21 04:29:48 +0100 |
commit | c78a5b391ce1f46096afd5e1ddf9b9c54e0f6975 (patch) | |
tree | e2aa8735dc7d05bac16f467f1ba5191ac9752f13 | |
parent | 7b5e2c3aaaed8c7272a7c10a26969de7f2f5a400 (diff) | |
download | elibs-c78a5b391ce1f46096afd5e1ddf9b9c54e0f6975.tar.gz elibs-c78a5b391ce1f46096afd5e1ddf9b9c54e0f6975.tar.bz2 |
pre-narrow for C-c m
-rw-r--r-- | completion.org | 9 |
1 files changed, 5 insertions, 4 deletions
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) |