branch: externals/mct
commit 0c2ca7c019af31f650dd099287dd702630d6caba
Author: Protesilaos Stavrou <i...@protesilaos.com>
Commit: Protesilaos Stavrou <i...@protesilaos.com>
Fix possible cycling regression on Emacs 29
The cycling from the top of the Completions to the minibuffer has been
broken on my latest build of Emacs. I am not sure what is going on, but
this fixes the issue and does not seem to have any drawbacks.
---
mct.el | 4 +++-
1 file changed, 3 insertions(+), 1 deletion(-)
diff --git a/mct.el b/mct.el
index 3cf5ea97e9..fd953d8a1a 100644
--- a/mct.el
+++ b/mct.el
@@ -601,7 +601,9 @@ ARG is a numeric argument for `previous-completion', as
described in
`mct-previous-completion-or-mini'."
(or (bobp)
(mct--completions-line-boundary (mct--first-completion-point))
- (= (save-excursion (previous-completion arg) (point)) (point-min))))
+ (= (save-excursion (previous-completion arg) (point)) (point-min))
+ ;; FIXME 2021-12-27: Why do we need this now? Regression upstream?
+ (eq (line-number-at-pos) 1)))
(defun mct-previous-completion-or-mini (&optional arg)
"Move to the next completion or switch to the minibuffer.
