bug#60411: 29.0.60; minibuffer-next-completion skips first candidate when completions-header-format and completion-show-help are nil

[Juri Linkov]

> Okay.  I just had another look at this bug, and the patch below seems to
> work, too.  I find it much trickier and adhocish, though.

Indeed.  But I'm not opposed to this patch.

> +      (when (and (= n 1)
> +                 (= (point) (point-min))
> +                 (get-text-property (point) 'mouse-face)
> +                 (not (get-text-property (point) 'first-completion)))
> +        (let ((inhibit-read-only t))
> +          (add-text-properties (point) (1+ (point)) '(first-completion t)))
> +        (setq n 0))

Please remove (= n 1) and replace (setq n 0) with (setq n (1- n))
to support the prefix arg with ‘M-N M-n’.