[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
scratch/icomplete-vertical-mode-improvements 136f71b 02/10: Distinguish
From: |
João Távora |
Subject: |
scratch/icomplete-vertical-mode-improvements 136f71b 02/10: Distinguish fido-mode from icomplete-mode verticality |
Date: |
Fri, 28 May 2021 06:10:04 -0400 (EDT) |
branch: scratch/icomplete-vertical-mode-improvements
commit 136f71b05506918d8cfee7cd41cadc8fa2a0341d
Author: João Távora <joaotavora@gmail.com>
Commit: João Távora <joaotavora@gmail.com>
Distinguish fido-mode from icomplete-mode verticality
When vertical, fido-mode will not rotate, icomplete-mode will respect
icomplete-rotate.
* lisp/icomplete.el:
(icomplete--fido-mode-setup): Init icomplete-rotate to nil if vertical
(icomplete--vertical-minibuffer-setup): Don't init icomplete-rotate.
(fido-vertical-mode): Alias icomplete-vertical-mode
---
lisp/icomplete.el | 8 +++++---
1 file changed, 5 insertions(+), 3 deletions(-)
diff --git a/lisp/icomplete.el b/lisp/icomplete.el
index 60efa88..f6291fc 100644
--- a/lisp/icomplete.el
+++ b/lisp/icomplete.el
@@ -223,10 +223,10 @@ the default otherwise."
;; We're not at all interested in cycling here (bug#34077).
(minibuffer-force-complete nil nil 'dont-cycle))
-;; Both these variables are only meaningful if `icomplete-rotation' is
+;; Both these variables are only meaningful if `icomplete-rotate' is
;; nil.
(defvar icomplete--comp-predecessors nil
- "When completions to list before the selected one.")
+ "Completions to list before the selected one.")
(defvar icomplete--last-selected nil
"Last completion selected.")
@@ -374,6 +374,7 @@ if that doesn't produce a completion match."
(setq-local icomplete-tidy-shadowed-file-names t
icomplete-show-matches-on-no-input t
icomplete-hide-common-prefix nil
+ icomplete-rotate (null icomplete-vertical-mode)
completion-styles '(flex)
completion-flex-nospace nil
completion-category-defaults nil
@@ -598,7 +599,6 @@ Usually run by inclusion in `minibuffer-setup-hook'."
(use-local-map (make-composed-keymap icomplete-vertical-mode-minibuffer-map
(current-local-map)))
(setq-local icomplete-separator "\n"
- icomplete-rotate nil
icomplete-hide-common-prefix nil
;; Ask `icomplete-completions' to return enough completions
candidates.
icomplete-prospects-height 10
@@ -618,6 +618,8 @@ resized depends on `resize-mini-windows'."
(add-hook 'icomplete-minibuffer-setup-hook
#'icomplete--vertical-minibuffer-setup)))
+(defalias 'fido-vertical-mode 'icomplete-vertical-mode)
+
- branch scratch/icomplete-vertical-mode-improvements created (now 0337e73), João Távora, 2021/05/28
- scratch/icomplete-vertical-mode-improvements d3b85d0 04/10: * lisp/icomplete.el (icomplete--render-vertical): Simplify slightly., João Távora, 2021/05/28
- scratch/icomplete-vertical-mode-improvements 136f71b 02/10: Distinguish fido-mode from icomplete-mode verticality,
João Távora <=
- scratch/icomplete-vertical-mode-improvements 82f8a3d 03/10: Fix an edge case bug in icomplete.el where base-size wasn't restored, João Távora, 2021/05/28
- scratch/icomplete-vertical-mode-improvements 776633a 01/10: Improve icomplete-vertical-mode, João Távora, 2021/05/28
- scratch/icomplete-vertical-mode-improvements f751980 05/10: Don't break icomplete-vertical-mode scrolling when moving non-destructively, João Távora, 2021/05/28
- scratch/icomplete-vertical-mode-improvements 24ddc91 07/10: Rename icomplete-rotate to icomplete-scroll, for clarity, João Távora, 2021/05/28
- scratch/icomplete-vertical-mode-improvements 94368e2 06/10: Adjust scrolling behaviour of icomplete-vertical-mode, João Távora, 2021/05/28
- scratch/icomplete-vertical-mode-improvements f7b22c0 08/10: Simplify icomplete-vertical-mode scrolling implementation, João Távora, 2021/05/28
- scratch/icomplete-vertical-mode-improvements 0337e73 10/10: Add annotation capability to icomplete-vertical-mode, João Távora, 2021/05/28
- scratch/icomplete-vertical-mode-improvements 37f0362 09/10: Update NEWS, João Távora, 2021/05/28