How to programmatically construct the name of application used to open directories? This Emacs LISP script reveal-in-finder.el allows one to quickly open a directory in Finder from an Emacs buffer which has the directory opened in it in dired mode.  But on my computer, I uses Path Finder instead of the standard Finder.  If I run open /path/to/dir on command line, it opens the directory dir in Path Finder rather than Finder.  Any idea how I can modify reveal-in-finder.el to open directories in Path Finder?
An indirect solution I'm currently using is M-!, and type open . in the mini-buffer, which opens the directory in the system-default application, which is Path Finder on my computer.