diff options
| author | Arun Isaac | 2017-06-14 01:00:10 +0530 |
|---|---|---|
| committer | Arun Isaac | 2017-06-14 01:00:10 +0530 |
| commit | 29ea037677bb5b9a2d0e4f50f275feca605bc516 (patch) | |
| tree | 9f05d25c193522f4f02a11f88d41d27263d8a517 | |
| parent | 79444ebf1812ecb4914bde18ef2452c0506419d3 (diff) | |
| download | exiftool.el-29ea037677bb5b9a2d0e4f50f275feca605bc516.tar.gz exiftool.el-29ea037677bb5b9a2d0e4f50f275feca605bc516.tar.lz exiftool.el-29ea037677bb5b9a2d0e4f50f275feca605bc516.zip | |
Handle literal "-" tag values.
* exiftool.el (exiftool-read): If exiftool returns "-" as tag value
with the "-f" flag, call exiftool again without the "-f" flag to
ascertain whether the tag is absent or the value is a literal "-".
| -rw-r--r-- | exiftool.el | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/exiftool.el b/exiftool.el index e477ed9..06c056e 100644 --- a/exiftool.el +++ b/exiftool.el @@ -89,7 +89,10 @@ value. If no TAGS are specified, read all tags from FILE. (string-match "\\([^:]*\\): \\(.*\\)" line) (let ((tag (match-string 1 line)) (value (match-string 2 line))) - (cons tag (if (equal value "-") "" value)))) + (cons tag (if (equal value "-") + (exiftool-command "-s" "-s" "-s" + (format "-%s" tag) file) + value)))) (split-string (apply 'exiftool-command "-s" "-s" "-f" |