(if (not (eq nil '__FILE__))
(print '__FILE__))
確認までは行っていないが下記記事のようなことか?
blog::2310 » EmacsLispのファイル名を自分自身で取得
http://blog.2310.net/archives/94
(setq this-file-name load-file-name)
--> this-file-nameには'/home/hoge/hoge.el'が代入される
どういうことをやりたいのかわかりませんが、スクリプトが入ったバッファのファイル名でしょうか?
それならばbuffer-file-nameですね。