- "Return t if PROGRAM is executable regular file."
- (and (stringp program)
- (file-regular-p program)
- (file-executable-p program)
- t))
+ "Return non-nil if PROGRAM is executable regular file."
+ (when (stringp program)
+ (let ((f (executable-find program)))
+ (and (file-regular-p f)
+ (file-executable-p f)))))