Lines Matching refs:fullname
288 (let ((fullname (if (file-name-directory file) file
291 (if (and fullname (not (or eshell-force-execution
292 (file-executable-p fullname))))
294 (let ((try (concat fullname (car suffixes))))
298 (setq fullname try suffixes nil)
300 (cond ((not (and fullname (file-exists-p fullname)))
301 (let ((name (or fullname file)))
302 (unless (setq fullname
307 (file-executable-p fullname)))
308 (error "%s: Permission denied" fullname)))
311 (setq interp (eshell-script-interpreter fullname))
316 (or interp (list fullname)))))))