summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLars Ingebrigtsen <larsi@gnus.org>2019-09-21 18:27:53 +0200
committerLars Ingebrigtsen <larsi@gnus.org>2019-09-21 18:27:53 +0200
commitb5afd295ccac33a18d901fc294944798c3bdfe2d (patch)
treee317b5cb103f036569f74ec343f1ad85fe332368
parent535b65875e7e47e1fd6bec1753f687592ae600b8 (diff)
downloademacs-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.el6
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))))