diff options
| -rw-r--r-- | exiftool.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/exiftool.el b/exiftool.el index 77d829d..e477ed9 100644 --- a/exiftool.el +++ b/exiftool.el @@ -86,10 +86,10 @@ value. If no TAGS are specified, read all tags from FILE. \(fn FILE TAG...)" (mapcar (lambda (line) - (cl-destructuring-bind - (tag value) (split-string line ": ") - (let ((value (if (equal value "-") "" value))) - (cons tag value)))) + (string-match "\\([^:]*\\): \\(.*\\)" line) + (let ((tag (match-string 1 line)) + (value (match-string 2 line))) + (cons tag (if (equal value "-") "" value)))) (split-string (apply 'exiftool-command "-s" "-s" "-f" |