Como aplicar o `call-interactively` a um comando interativo que aceita o argumento universal?

Eu li a documentação sobre como fazer chamadas interativas no Elisp, mas ainda não consigo descobrir como passar o argumento universal ao usar call-interactivelyum comando que reconheça o argumento universal.

Mais especificamente, quero implementar uma função que, sob certas condições, chame o shellcomando interativamente com o argumento universal , para que, como resultado, o prompt

Shell buffer (default *shell*): 

ficará visível no minibuffer e, assim que esse prompt obtiver uma resposta, o buffer especificado será criado (se já não existir) e o buffer atual será criado.

FWIW, tentei o seguinte:

(universal-argument)
(call-interactively 'shell)

e

(setq prefix-arg (list 4))
(call-interactively 'shell)

... mas eu nunca vi o prompt Shell buffer (default *shell*):; em vez disso, em todos os casos, o shellcomando foi executado exatamente como se tivesse sido chamado sem o argumento universal. (Eu realmente não sei o que estou fazendo aqui, por isso minhas tentativas cegas acima foram feitas com desconsideração consciente dos conselhos prescientes da documentação .)

De acordo com shella forma interativa, contanto que current-prefix-argseja nulo, shellsolicitará ao usuário um buffer para usar, para que você possa definir current-prefix-argcomo nulo (4 é usado a seguir como exemplo):

(let ((current-prefix-arg 4))
  (call-interactively 'shell))

ou simule a execução shellcom um prefixo 4 ( M-4 M-x shell):

(execute-extended-command 4 "shell")