Commit b5afd295 authored by Lars Ingebrigtsen's avatar Lars Ingebrigtsen

Fix some commentary typos in exif.el

* lisp/image/exif.el (exif--parse-exif-chunk)
(exif--parse-directory): Commentary typo fixes.
parent 535b6587
Pipeline #3238 passed with stage
in 61 minutes and 8 seconds
...@@ -107,7 +107,7 @@ The return value is a list of Exif items." ...@@ -107,7 +107,7 @@ The return value is a list of Exif items."
(delete-region (point-min) (point)) (delete-region (point-min) (point))
(let* ((endian-marker (exif--read-chunk 2)) (let* ((endian-marker (exif--read-chunk 2))
(le (cond (le (cond
;; "Morotola" is big-endian. ;; "Motorola" is big-endian.
((equal endian-marker "MM") ((equal endian-marker "MM")
nil) nil)
;; "Intel" is little-endian. ;; "Intel" is little-endian.
...@@ -141,7 +141,7 @@ The return value is a list of Exif items." ...@@ -141,7 +141,7 @@ The return value is a list of Exif items."
;; The actual length is the number in this field ;; The actual length is the number in this field
;; times the "inherent" length of the field format ;; times the "inherent" length of the field format
;; (i.e., "long integer" (4 bytes) or "ascii" (1 ;; (i.e., "long integer" (4 bytes) or "ascii" (1
;; byte). ;; byte)).
for length = (* (exif--read-number 4 le) for length = (* (exif--read-number 4 le)
(cdr field-format)) (cdr field-format))
for value = (exif--read-number 4 le) for value = (exif--read-number 4 le)
...@@ -171,7 +171,7 @@ The return value is a list of Exif items." ...@@ -171,7 +171,7 @@ The return value is a list of Exif items."
;; keep parsing. ;; keep parsing.
(progn (progn
(goto-char (1+ next)) (goto-char (1+ next))
(append dir (exif--parse-directory le))) (nconc dir (exif--parse-directory le)))
;; We've reached the end of the directories. ;; We've reached the end of the directories.
dir)))) dir))))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment