バッチファイルから実行するEmacs Lispのスクリプトについて その1

解決したいこと

バッチファイルから実行するEmacs Lispのスクリプトでスクリプト終了後にファイルを読み込ませないようにしたい。

該当するソースコード

--- foo.bat ---
echo off
emacs --script foo-script.el %*
pause


--- foo-script.el ---
(let (fname)
  (dolist (fname argv)
	(message "%s" (shell-command-to-string (concat "dir " (shell-quote-argument fname))))))

自分で試したこと

上記のような形でWindowsのバッチファイルからEmacs Lispのスクリプトを実行しています。ファイルサイズが小さいときはわからなかったのですが、動画など大きなサイズになるとスクリプト実行後に
’ファイル名(***MiB), really open? (yes, no・・・)’
と訊いてくるようになりました。(setq large-file-warning-threshold nil)で問い合わせだけはなくなりましたが、スクリプト実行後にファイルを丸ごと読み込んでいるようで時間とメモリを相当量消費します。読み込まないようにする設定をご存じの方よろしくお願いします。

環境 Windows10 Emacs30.1