[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/mct 144a32f 05/70: Add internal function to show comple
From: |
ELPA Syncer |
Subject: |
[elpa] externals/mct 144a32f 05/70: Add internal function to show completions |
Date: |
Thu, 11 Nov 2021 03:57:40 -0500 (EST) |
branch: externals/mct
commit 144a32f21e5d3b982df0d444838a23bbef7f1da2
Author: Protesilaos Stavrou <info@protesilaos.com>
Commit: Protesilaos Stavrou <info@protesilaos.com>
Add internal function to show completions
---
mct.el | 14 ++++++++------
1 file changed, 8 insertions(+), 6 deletions(-)
diff --git a/mct.el b/mct.el
index 820ce4a..dd4689d 100644
--- a/mct.el
+++ b/mct.el
@@ -255,8 +255,7 @@ Meant to be added to `after-change-functions'."
((member this-command mct-completion-passlist)
(setq-local mct-minimum-input 0)
(setq-local mct-live-update-delay 0)
- (save-excursion (minibuffer-completion-help))
- (mct--fit-completions-window)
+ (mct--show-completions)
(add-hook 'after-change-functions #'mct--live-completions nil t))
((unless (member this-command mct-completion-blocklist)
(add-hook 'after-change-functions #'mct--live-completions-timer nil
t)))))
@@ -325,6 +324,11 @@ Meant to be added to `after-change-functions'."
mct-completion-windows-regexp
(buffer-name (window-buffer window))))))
+(defun mct--show-completions ()
+ "Show the completions' buffer."
+ (save-excursion (minibuffer-completion-help))
+ (mct--fit-completions-window))
+
;;;###autoload
(defun mct-focus-mini-or-completions ()
"Focus the active minibuffer or the completions' window.
@@ -354,8 +358,7 @@ by `mct-completion-windows-regexp'."
(interactive nil mct-mode)
(if (get-buffer-window "*Completions*" 0)
(minibuffer-hide-completions)
- (save-excursion (minibuffer-completion-help))
- (mct--fit-completions-window)))
+ (mct--show-completions)))
;;;;; Commands for file completion
@@ -493,8 +496,7 @@ Completions' buffer."
(mct-live-update-delay most-positive-fixnum)
(enable-recursive-minibuffers t))
(unless (get-buffer-window "*Completions*" 0)
- (save-excursion (minibuffer-completion-help))
- (mct--fit-completions-window))
+ (mct--show-completions))
(if (or (and (derived-mode-p 'completion-list-mode)
(active-minibuffer-window))
(and (minibufferp)
- [elpa] branch externals/mct created (now b5f4222), ELPA Syncer, 2021/11/11
- [elpa] externals/mct 2d77307 04/70: Add "Acknowledgements" section to the manual, ELPA Syncer, 2021/11/11
- [elpa] externals/mct 144a32f 05/70: Add internal function to show completions,
ELPA Syncer <=
- [elpa] externals/mct 769b1a8 02/70: Use remap where applicable, ELPA Syncer, 2021/11/11
- [elpa] externals/mct 6bd2457 03/70: Ensure that display-line-numbers-mode is bound, ELPA Syncer, 2021/11/11
- [elpa] externals/mct cc8a5c1 09/70: Mention temp-buffer-resize-mode in the docs, ELPA Syncer, 2021/11/11
- [elpa] externals/mct 91586c4 10/70: Fix documentation about manual install method, ELPA Syncer, 2021/11/11
- [elpa] externals/mct 79b2643 07/70: Remove unused user-error message, ELPA Syncer, 2021/11/11
- [elpa] externals/mct 609fd0a 12/70: Move findex and vindex annotations to their actual mentions, ELPA Syncer, 2021/11/11
- [elpa] externals/mct 4882ed6 17/70: Note display-buffer in mct-display-buffer-action, ELPA Syncer, 2021/11/11
- [elpa] externals/mct e75a6c6 19/70: Update mct-display-buffer-action with sample conf, ELPA Syncer, 2021/11/11
- [elpa] externals/mct 982b4ee 20/70: Note mct-completions-format needs mct-mode restart, ELPA Syncer, 2021/11/11
- [elpa] externals/mct 1b0ab0b 21/70: Untabify and re-indent, ELPA Syncer, 2021/11/11