mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-03 08:30:09 +00:00
Code Issues Releases Activity

Fix some commentary typos in exif.el

Browse Source 
* lisp/image/exif.el (exif--parse-exif-chunk)
(exif--parse-directory): Commentary typo fixes.
This commit is contained in:
Lars Ingebrigtsen 2019-09-21 18:27:53 +02:00
parent 535b65875e
commit b5afd295cc
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/image/exif.el
View File

@ -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))))