From 930f692039680051b89b130a7e790a232df4462b Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Thu, 16 May 2019 20:44:36 +0530
Subject: Specify exiftool executable in a variable.

* exiftool.el (exiftool-executable): New variable.
(exiftool-run): Invoke command specified in exiftool-executable.
---
 exiftool.el | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/exiftool.el b/exiftool.el
index fdc2d54..2fd60e2 100644
--- a/exiftool.el
+++ b/exiftool.el
@@ -42,6 +42,9 @@
 (require 'subr-x)
 (require 'tq)
 
+(defvar exiftool-executable "exiftool"
+  "Executable used to invoke exiftool.")
+
 (defun exiftool--tq-sync-query (tq question regexp)
   "Add a transaction to transaction queue TQ, block and read response.
 
@@ -61,7 +64,8 @@ a new one.  Return the process object of the newly created
 process."
   (when-let (exiftool (get-process "exiftool"))
     (delete-process exiftool))
-  (start-process "exiftool" "exiftool" "exiftool" "-stay_open" "True" "-@" "-"))
+  (start-process "exiftool" "exiftool"
+                 exiftool-executable "-stay_open" "True" "-@" "-"))
 
 (let ((tq (tq-create (exiftool-run))))
   (defun exiftool-command (&rest args)
-- 
cgit v1.2.3