diff options
| author | David Morgan <djm_uk@protonmail.com> | 2021-12-22 13:00:48 +0000 |
|---|---|---|
| committer | David Morgan <djm_uk@protonmail.com> | 2021-12-22 13:00:48 +0000 |
| commit | 1906a446f8cca3968dae3f33b88c211341e3c7d8 (patch) | |
| tree | af7a089c929fbf9ef10f25a05af7aa3922adbc94 /.emacs.d | |
| parent | 0baa06d84ce0ee9f4b3f5ced636229ce5ceed90c (diff) | |
| download | dotfiles-1906a446f8cca3968dae3f33b88c211341e3c7d8.tar.gz | |
Update for consult changes
Diffstat (limited to '.emacs.d')
| -rw-r--r-- | .emacs.d/lisp/init-minibuffer.el | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/.emacs.d/lisp/init-minibuffer.el b/.emacs.d/lisp/init-minibuffer.el index 118a9f5..aba7f44 100644 --- a/.emacs.d/lisp/init-minibuffer.el +++ b/.emacs.d/lisp/init-minibuffer.el @@ -161,8 +161,8 @@ DEFS is a plist associating completion categories to commands." ("M-g i" . consult-imenu) ("M-g I" . consult-imenu-multi) :map isearch-mode-map - ("M-e" . consult-isearch) ;; orig. isearch-edit-string - ("M-s e" . consult-isearch) ;; orig. isearch-edit-string + ("M-e" . consult-isearch-history) ;; orig. isearch-edit-string + ("M-s e" . consult-isearch-history) ;; orig. isearch-edit-string ("M-s l" . consult-line) ;; needed by consult-line to detect isearch (:map vertico-map ;; These are used for previewing with some consult commands (see consult-customize call below) @@ -323,7 +323,7 @@ DEFS is a plist associating completion categories to commands." ;; Copy of consult--source-project-file to use with perspective narrowing (identical except for narrowing key) ;; Put before consult--source-project-file so we get recentf behaviour here (defvar consult--source-perspective-files - (plist-put (plist-put (copy-sequence consult--source-project-file) + (plist-put (plist-put (copy-sequence consult--source-project-recent-file) :name "Project File") :narrow '(?x . "Perspective"))) (add-to-list 'consult-buffer-sources 'consult--source-perspective-files t) @@ -337,11 +337,11 @@ DEFS is a plist associating completion categories to commands." :hidden nil) :narrow '(?b . "Buffer"))) (defvar consult--project-source-project-file-recentf - (plist-put (plist-put (copy-sequence consult--source-project-file) + (plist-put (plist-put (copy-sequence consult--source-project-recent-file) :hidden nil) :narrow '(?f . "File (Recentf)"))) (defvar consult--project-source-project-file-all - (plist-put (plist-put (copy-sequence consult--source-project-file) + (plist-put (plist-put (copy-sequence consult--source-project-recent-file) :narrow '(?a . "File (All)")) :items '(lambda () (when (eq 0 (call-process-shell-command "fd")) |