bug#55430: 29.0.50; choose-completion errors when completion-show-help and completions-header-format are nil

[Visuwesh]

To reproduce,

    1. emacs -Q
    2. M-: (setq completion-show-help nil completions-header-format nil)
    3. M-x M-v

Note how the cursor is not on the first candidate.  If you move to the
first candidate, then type RET, it errors with the following backtrace
for me.

Sorry if this is a duplicate report.

Debugger entered--Lisp error: (wrong-type-argument integer-or-marker-p nil)
  get-text-property(nil completion--string)
  choose-completion(13 nil)
  funcall-interactively(choose-completion 13 nil)
  call-interactively(choose-completion nil nil)
  command-execute(choose-completion)
  read-from-minibuffer("M-x " nil (keymap (10 . minibuffer-complete-and-exit) 
(13 . minibuffer-complete-and-exit) keymap (menu-bar keymap (minibuf "Minibuf" 
keymap (tab menu-item "Complete" minibuffer-complete :help "Complete as far as 
possible") (space menu-item "Complete Word" minibuffer-complete-word :help 
"Complete at most one word") (63 menu-item "List Completions" 
minibuffer-completion-help :help "Display all possible completions") 
"Minibuf")) (M-down . minibuffer-next-completion) (M-up . 
minibuffer-previous-completion) (27 keymap (13 . minibuffer-choose-completion) 
(103 keymap (27 keymap (99 . switch-to-completions))) (118 . 
switch-to-completions)) (prior . switch-to-completions) (63 . 
minibuffer-completion-help) (32 . minibuffer-complete-word) (backtab . 
minibuffer-complete) (9 . minibuffer-complete) keymap (3 keymap (39 . 
vz/minibuffer-edit-become)) (67108903 . vz/minibuffer-avy-completions) (8388727 
. vz/minibuffer-yank-symbol) (menu-bar keymap (minibuf "Minibuf" keymap 
(previous menu-item "Previous History Item" previous-history-element :help "Put 
previous minibuffer history element in the min...") (next menu-item "Next 
History Item" next-history-element :help "Put next minibuffer history element 
in the minibuf...") (isearch-backward menu-item "Isearch History Backward" 
isearch-backward :help "Incrementally search minibuffer history backward") 
(isearch-forward menu-item "Isearch History Forward" isearch-forward :help 
"Incrementally search minibuffer history forward") (return menu-item "Enter" 
exit-minibuffer :key-sequence "\15" :help "Terminate input and exit 
minibuffer") (quit menu-item "Quit" abort-recursive-edit :help "Abort input and 
exit minibuffer") "Minibuf")) (13 . exit-minibuffer) (10 . exit-minibuffer) (7 
. abort-minibuffers) (C-tab . file-cache-minibuffer-complete) (9 . 
self-insert-command) (XF86Back . previous-history-element) (up . 
previous-line-or-history-element) (prior . previous-history-element) 
(XF86Forward . next-history-element) (down . next-line-or-history-element) 
(next . next-history-element) (27 keymap (19 . next-matching-history-element) 
(18 . previous-matching-history-element) (60 . minibuffer-beginning-of-buffer) 
(114) (115) (112 . previous-history-element) (110 . next-history-element))) nil 
extended-command-history nil nil)
  completing-read-default("M-x " #f(compiled-function (string pred action) 
#<bytecode 0x1bf4e34434c2f25f>) #f(compiled-function (sym) #<bytecode 
-0x131c94a880a73520>) t nil extended-command-history nil nil)
  completing-read("M-x " #f(compiled-function (string pred action) #<bytecode 
0x1bf4e34434c2f25f>) #f(compiled-function (sym) #<bytecode 
-0x131c94a880a73520>) t nil extended-command-history)
  read-extended-command()
  byte-code("\302\30\11\303 \10E)\207" [execute-extended-command--last-typed 
current-prefix-arg nil read-extended-command] 3)
  call-interactively(execute-extended-command nil nil)
  command-execute(execute-extended-command)


In GNU Emacs 29.0.50 (build 1, x86_64-pc-linux-gnu, X toolkit, cairo version 
1.16.0, Xaw scroll bars)
 of 2022-05-15 built on astatine
Repository revision: f171a36c0ad7a0b5b69c3d4bad2875c54e2ccdd9
Repository branch: master
Windowing system distributor 'The X.Org Foundation', version 11.0.12013000
System Description: NixOS 21.11 (Porcupine)

Configured using:
 'configure --with-sqlite3 --with-x-toolkit=lucid --with-json
 --without-gsettings --with-x --without-libsystemd --with-modules'

Configured features:
ACL CAIRO DBUS FREETYPE GIF GLIB GMP GNUTLS GPM HARFBUZZ JPEG JSON
LIBOTF LIBXML2 M17N_FLT MODULES NOTIFY INOTIFY PDUMPER PNG RSVG SECCOMP
SOUND SQLITE3 THREADS TIFF TOOLKIT_SCROLL_BARS WEBP X11 XDBE XIM XINPUT2
XPM LUCID ZLIB

Important settings:
  value of $LC_MONETARY: ta_IN.UTF-8
  value of $LC_NUMERIC: ta_IN.UTF-8
  value of $LANG: en_GB.UTF-8
  locale-coding-system: utf-8-unix

Major mode: Lisp Interaction

Minor modes in effect:
  recentf-mode: t
  paredit-mode: t
  eros-mode: t
  flymake-mode: t
  pdf-occur-global-minor-mode: t
  hl-todo-mode: t
  minibuffer-depth-indicate-mode: t
  repeat-mode: t
  display-time-mode: t
  display-battery-mode: t
  winner-mode: t
  straight-use-package-mode: t
  straight-package-neutering-mode: t
  tooltip-mode: t
  global-eldoc-mode: t
  eldoc-mode: t
  show-paren-mode: t
  electric-indent-mode: t
  mouse-wheel-mode: t
  tab-bar-mode: t
  file-name-shadow-mode: t
  global-font-lock-mode: t
  font-lock-mode: t
  undelete-frame-mode: t
  transient-mark-mode: t
  auto-composition-mode: t
  auto-encryption-mode: t
  auto-compression-mode: t

Load-path shadows:
None found.

Features:
(shadow sort flyspell ispell goto-addr ecomplete mail-extr reveal
noutline outline recentf tree-widget vc-backup log-view pcvs-util vc
diff vc-git diff-mode vc-dispatcher dabbrev emacsbug message yank-media
rmc puny rfc822 mml mml-sec epa epg rfc6068 epg-config gnus-util
mm-decode mm-bodies mm-encode mail-parse rfc2231 mailabbrev gmm-utils
mailheader sendmail rfc2047 rfc2045 ietf-drums mm-util mail-prsvr
mail-utils cursor-sensor paredit edmacro kmacro eros time-date checkdoc
lisp-mnt flymake-proc flymake project warnings thingatpt
wordel-autoloads sokoban-autoloads ement-autoloads ts-autoloads
svg-lib-autoloads taxy-magit-section-autoloads taxy-autoloads
plz-autoloads nov-autoloads esxml-autoloads kv-autoloads
transmission-autoloads lua-mode-autoloads nix-mode-autoloads
magit-section-autoloads dash-autoloads racket-mode-autoloads
eros-autoloads flymake-shellcheck-autoloads writegood-mode-autoloads
siege-mode-autoloads paredit-autoloads puni-autoloads
expand-region-autoloads filladapt-autoloads compose quail
scroll-other-window org-pdftools-autoloads org-noter-autoloads
change-env-autoloads math-delimiters-autoloads doct-autoloads
ob-async-autoloads async-autoloads emacs-ob-racket-autoloads
valign-autoloads org-starless-autoloads cdlatex-autoloads
auctex-autoloads tex-site easy-mmode pdf-occur ibuf-ext ibuffer
ibuffer-loaddefs tablist advice tablist-filter semantic/wisent/comp
semantic/wisent semantic/wisent/wisent semantic/util-modes semantic/util
semantic semantic/tag semantic/lex semantic/fw mode-local cedet
pdf-isearch let-alist pdf-misc imenu pdf-tools package browse-url url
url-proxy url-privacy url-expand url-methods url-history url-cookie
url-domsuf url-util mailcap url-handlers url-parse auth-source eieio
eieio-core eieio-loaddefs json map url-vars compile comint ansi-color
cus-edit hl-todo edebug debug backtrace find-func wid-edit pdf-view
password-cache bookmark text-property-search pp jka-compr pdf-cache
pdf-info tq pdf-util pdf-macs image-mode dired-x dired dired-loaddefs
exif pdf-tools-autoloads tablist-autoloads derived mb-depth cus-load
repeat visual-fill-autoloads olivetti-autoloads hl-todo-autoloads time
format-spec battery dbus filenotify xml disp-table lacarte-autoloads
shell-command-plus-autoloads winner avy ring avy-autoloads
vc-backup-autoloads icalendar diary-lib diary-loaddefs cal-menu calendar
cal-loaddefs rx filecache flymake-grammarly-autoloads
grammarly-autoloads websocket-autoloads finder-inf request-autoloads
s-autoloads chemtable-autoloads molar-mass-autoloads pcase
straight-autoloads info cl-seq cl-extra help-mode seq byte-opt straight
subr-x cl-macs gv cl-loaddefs cl-lib bytecomp byte-compile cconv
vz-nh-theme iso-transl tooltip eldoc paren electric uniquify ediff-hook
vc-hooks lisp-float-type elisp-mode mwheel term/x-win x-win
term/common-win x-dnd tool-bar dnd fontset image regexp-opt fringe
tabulated-list replace newcomment text-mode lisp-mode prog-mode register
page tab-bar menu-bar rfn-eshadow isearch easymenu timer select
scroll-bar mouse jit-lock font-lock syntax font-core term/tty-colors
frame minibuffer nadvice simple cl-generic cham georgian utf-8-lang
misc-lang vietnamese tibetan thai tai-viet lao korean japanese eucjp-ms
cp51932 hebrew greek romanian slovak czech european ethiopic indian
cyrillic chinese composite emoji-zwj charscript charprop case-table
epa-hook jka-cmpr-hook help abbrev obarray oclosure cl-preloaded button
loaddefs faces cus-face macroexp files window text-properties overlay
sha1 md5 base64 format env code-pages mule custom widget keymap
hashtable-print-readable backquote threads dbusbind inotify
dynamic-setting font-render-setting cairo x-toolkit xinput2 x multi-tty
make-network-process emacs)

Memory information:
((conses 16 217991 18705) (symbols ?0 20908 2) (strings 32 67297 4592)
 (
  string-bytes 1 2390799) (vectors 16 43547) (vector-slots 8 1137062 84917)
 (
  floats 8 139 ?C) (intervals ?8 568 0) (buffers 992 18))