branch: externals/mct commit 08f806eaba9cb5f46e3bee9550d675bf5fbe020b Author: Protesilaos Stavrou <i...@protesilaos.com> Commit: Protesilaos Stavrou <i...@protesilaos.com>
Do not set completions-detailed Let the user handle that in their own configuration, because this is a stylistic matter that has nothing to do with the functionality of mct. --- README.org | 1 + mct.el | 10 +++------- 2 files changed, 4 insertions(+), 7 deletions(-) diff --git a/README.org b/README.org index f511691..bbfdfef 100644 --- a/README.org +++ b/README.org @@ -333,6 +333,7 @@ And with more options: Other useful extras from the Emacs source code (read their doc strings): #+begin_src emacs-lisp +(setq completions-detailed t) (setq enable-recursive-minibuffers t) (setq minibuffer-eldef-shorten-default t) diff --git a/mct.el b/mct.el index 8da8ef2..921959d 100644 --- a/mct.el +++ b/mct.el @@ -755,7 +755,6 @@ To be assigned to `minibuffer-setup-hook'." (defvar mct--completion-show-help nil) (defvar mct--completion-auto-help nil) (defvar mct--completions-format nil) -(defvar mct--completions-detailed nil) ;;;###autoload (define-minor-mode mct-mode @@ -767,13 +766,11 @@ To be assigned to `minibuffer-setup-hook'." (setq mct--resize-mini-windows resize-mini-windows mct--completion-show-help completion-show-help mct--completion-auto-help completion-auto-help - mct--completions-format completions-format - mct--completions-detailed completions-detailed) + mct--completions-format completions-format) (setq resize-mini-windows t completion-show-help nil completion-auto-help t - completions-format mct-completions-format - completions-detailed t) + completions-format mct-completions-format) (let ((hook 'minibuffer-setup-hook)) (add-hook hook #'mct--setup-completions) (add-hook hook #'mct--minibuffer-local-completion-map) @@ -799,8 +796,7 @@ To be assigned to `minibuffer-setup-hook'." (setq resize-mini-windows mct--resize-mini-windows completion-show-help mct--completion-show-help completion-auto-help mct--completion-auto-help - completions-format mct--completions-format - completions-detailed mct--completions-detailed) + completions-format mct--completions-format) (let ((hook 'minibuffer-setup-hook)) (remove-hook hook #'mct--setup-completions) (remove-hook hook #'mct--minibuffer-local-completion-map)