[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master b5afd29: Fix some commentary typos in exif.el
From: |
Lars Ingebrigtsen |
Subject: |
[Emacs-diffs] master b5afd29: Fix some commentary typos in exif.el |
Date: |
Sat, 21 Sep 2019 12:27:58 -0400 (EDT) |
branch: master
commit b5afd295ccac33a18d901fc294944798c3bdfe2d
Author: Lars Ingebrigtsen <address@hidden>
Commit: Lars Ingebrigtsen <address@hidden>
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 2ec256b..2ceafd5 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))))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] master b5afd29: Fix some commentary typos in exif.el,
Lars Ingebrigtsen <=