diff options
author | Lars Ingebrigtsen <larsi@gnus.org> | 2019-09-21 18:27:53 +0200 |
---|---|---|
committer | Lars Ingebrigtsen <larsi@gnus.org> | 2019-09-21 18:27:53 +0200 |
commit | b5afd295ccac33a18d901fc294944798c3bdfe2d (patch) | |
tree | e317b5cb103f036569f74ec343f1ad85fe332368 | |
parent | 535b65875e7e47e1fd6bec1753f687592ae600b8 (diff) | |
download | emacs-b5afd295ccac33a18d901fc294944798c3bdfe2d.tar.gz |
Fix some commentary typos in exif.el
* lisp/image/exif.el (exif--parse-exif-chunk)
(exif--parse-directory): Commentary typo fixes.
-rw-r--r-- | lisp/image/exif.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/image/exif.el b/lisp/image/exif.el index 2ec256bb2ee..2ceafd5bfc0 100644 --- a/lisp/image/exif.el +++ b/lisp/image/exif.el @@ -107,7 +107,7 @@ The return value is a list of Exif items." (delete-region (point-min) (point)) (let* ((endian-marker (exif--read-chunk 2)) (le (cond - ;; "Morotola" is big-endian. + ;; "Motorola" is big-endian. ((equal endian-marker "MM") nil) ;; "Intel" is little-endian. @@ -141,7 +141,7 @@ The return value is a list of Exif items." ;; The actual length is the number in this field ;; times the "inherent" length of the field format ;; (i.e., "long integer" (4 bytes) or "ascii" (1 - ;; byte). + ;; byte)). for length = (* (exif--read-number 4 le) (cdr field-format)) for value = (exif--read-number 4 le) @@ -171,7 +171,7 @@ The return value is a list of Exif items." ;; keep parsing. (progn (goto-char (1+ next)) - (append dir (exif--parse-directory le))) + (nconc dir (exif--parse-directory le))) ;; We've reached the end of the directories. dir)))) |