>>166
こういう事をやりたいのか?

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