diff options
| author | Lars Ingebrigtsen | 2019-09-21 18:27:53 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen | 2019-09-21 18:27:53 +0200 |
| commit | b5afd295ccac33a18d901fc294944798c3bdfe2d (patch) | |
| tree | e317b5cb103f036569f74ec343f1ad85fe332368 | |
| parent | 535b65875e7e47e1fd6bec1753f687592ae600b8 (diff) | |
| download | emacs-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.el | 6 |
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 | ||