aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorLars Ingebrigtsen2019-09-21 18:27:53 +0200
committerLars Ingebrigtsen2019-09-21 18:27:53 +0200
commitb5afd295ccac33a18d901fc294944798c3bdfe2d (patch)
treee317b5cb103f036569f74ec343f1ad85fe332368
parent535b65875e7e47e1fd6bec1753f687592ae600b8 (diff)
downloademacs-b5afd295ccac33a18d901fc294944798c3bdfe2d.tar.gz
emacs-b5afd295ccac33a18d901fc294944798c3bdfe2d.zip
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."
107 (delete-region (point-min) (point)) 107 (delete-region (point-min) (point))
108 (let* ((endian-marker (exif--read-chunk 2)) 108 (let* ((endian-marker (exif--read-chunk 2))
109 (le (cond 109 (le (cond
110 ;; "Morotola" is big-endian. 110 ;; "Motorola" is big-endian.
111 ((equal endian-marker "MM") 111 ((equal endian-marker "MM")
112 nil) 112 nil)
113 ;; "Intel" is little-endian. 113 ;; "Intel" is little-endian.
@@ -141,7 +141,7 @@ The return value is a list of Exif items."
141 ;; The actual length is the number in this field 141 ;; The actual length is the number in this field
142 ;; times the "inherent" length of the field format 142 ;; times the "inherent" length of the field format
143 ;; (i.e., "long integer" (4 bytes) or "ascii" (1 143 ;; (i.e., "long integer" (4 bytes) or "ascii" (1
144 ;; byte). 144 ;; byte)).
145 for length = (* (exif--read-number 4 le) 145 for length = (* (exif--read-number 4 le)
146 (cdr field-format)) 146 (cdr field-format))
147 for value = (exif--read-number 4 le) 147 for value = (exif--read-number 4 le)
@@ -171,7 +171,7 @@ The return value is a list of Exif items."
171 ;; keep parsing. 171 ;; keep parsing.
172 (progn 172 (progn
173 (goto-char (1+ next)) 173 (goto-char (1+ next))
174 (append dir (exif--parse-directory le))) 174 (nconc dir (exif--parse-directory le)))
175 ;; We've reached the end of the directories. 175 ;; We've reached the end of the directories.
176 dir)))) 176 dir))))
177 177