From b5afd295ccac33a18d901fc294944798c3bdfe2d Mon Sep 17 00:00:00 2001 From: Lars Ingebrigtsen Date: Sat, 21 Sep 2019 18:27:53 +0200 Subject: Fix some commentary typos in exif.el * lisp/image/exif.el (exif--parse-exif-chunk) (exif--parse-directory): Commentary typo fixes. --- lisp/image/exif.el | 6 +++--- 1 file 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)))) -- cgit v1.2.1