Cómo mediante programación construir el nombre de la aplicación que se utiliza para abrir directorios?

Esta secuencia de comandos de Emacs LISP reveal-in-finder.el permite abrir rápidamente un directorio en la búsqueda de un buffer de Emacs que tiene el directorio abierto en dired modo. Pero en mi equipo, utiliza la Ruta de acceso del Buscador en lugar de la estándar de Finder. Si me quedo open /path/to/dir en la línea de comando, se abre el directorio dir en el Path Finder en lugar de Finder. ¿Alguna idea de cómo puedo modificar reveal-in-finder.el a abrir los directorios en el Path Finder?