* bug#24317: 25.1.50; image-dired-rotate-original: regexp doesn't match .jpeg suffix
@ 2016-08-27 8:04 Tino Calancha
2016-08-27 8:21 ` Eli Zaretskii
0 siblings, 1 reply; 15+ messages in thread
From: Tino Calancha @ 2016-08-27 8:04 UTC (permalink / raw)
To: 24317
emacs -Q:
;; file: full name of a .jpeg file in your filesystem
(let ((file "/tmp/bug24317.jpeg"))
(require 'dired)
(require 'image-dired)
(dired file)
(image-dired-display-thumbs)
(image-dired-rotate-original 90))
;; if: Only JPEG images can be rotated!
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
From 4ea0333150937d3f2f615df1ed476e6279caf77b Mon Sep 17 00:00:00 2001
From: Tino Calancha <tino.calancha@gmail.com>
Date: Sat, 27 Aug 2016 16:53:37 +0900
Subject: [PATCH] image-dired-rotate-original: regexp doesn't match .jpeg
suffix
* lisp/image-dired.el (image-dired-jpeg-suffix-regexp): New defvar.
(image-dired-rotate-original, image-dired-get-exif-file-name):
Use it (Bug#24317).
---
lisp/image-dired.el | 8 ++++++--
1 file changed, 6 insertions(+), 2 deletions(-)
diff --git a/lisp/image-dired.el b/lisp/image-dired.el
index 67b023d..bb43a55 100644
--- a/lisp/image-dired.el
+++ b/lisp/image-dired.el
@@ -1906,13 +1906,16 @@ image-dired-refresh-thumb
(clear-image-cache)
(image-dired-create-thumb file (image-dired-thumb-name file))))
+(defvar image-dired-jpeg-suffix-regexp "\\.[Jj][Pp][Ee]?[Gg]$"
+ "Regexp to match JPEG file extensions.")
+
(defun image-dired-rotate-original (degrees)
"Rotate original image DEGREES degrees."
(if (not (image-dired-image-at-point-p))
(message "No image at point")
(let ((file (image-dired-original-file-name))
command)
- (if (not (string-match "\\.[jJ][pP[eE]?[gG]$" file))
+ (if (not (string-match image-dired-jpeg-suffix-regexp file))
(error "Only JPEG images can be rotated!"))
(setq command (format-spec
image-dired-cmd-rotate-original-options
@@ -1952,7 +1955,8 @@ image-dired-get-exif-file-name
YYYY_MM_DD_HH_MM_DD_ORIG_FILE_NAME.jpg. Used from
`image-dired-copy-with-exif-file-name'."
(let (data no-exif-data-found)
- (if (not (string-match "\\.[Jj][Pp][Ee]?[Gg]$" (expand-file-name
file)))
+ (if (not (string-match image-dired-jpeg-suffix-regexp
+ (expand-file-name file)))
(progn
(setq no-exif-data-found t)
(setq data
--
2.9.3
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
In GNU Emacs 25.1.50.1 (x86_64-pc-linux-gnu, GTK+ Version 3.20.9)
of 2016-08-26 built on calancha-pc
Repository revision: 1c7166a3ba399efbefc65feb8a6a41ef0dfa33a4
^ permalink raw reply related [flat|nested] 15+ messages in thread* bug#24317: 25.1.50; image-dired-rotate-original: regexp doesn't match .jpeg suffix
2016-08-27 8:04 bug#24317: 25.1.50; image-dired-rotate-original: regexp doesn't match .jpeg suffix Tino Calancha
@ 2016-08-27 8:21 ` Eli Zaretskii
2016-08-27 8:53 ` Tino Calancha
0 siblings, 1 reply; 15+ messages in thread
From: Eli Zaretskii @ 2016-08-27 8:21 UTC (permalink / raw)
To: Tino Calancha; +Cc: 24317
> From: Tino Calancha <tino.calancha@gmail.com>
> Date: Sat, 27 Aug 2016 17:04:01 +0900 (JST)
>
> >From 4ea0333150937d3f2f615df1ed476e6279caf77b Mon Sep 17 00:00:00 2001
> From: Tino Calancha <tino.calancha@gmail.com>
> Date: Sat, 27 Aug 2016 16:53:37 +0900
> Subject: [PATCH] image-dired-rotate-original: regexp doesn't match .jpeg
> suffix
>
> * lisp/image-dired.el (image-dired-jpeg-suffix-regexp): New defvar.
> (image-dired-rotate-original, image-dired-get-exif-file-name):
> Use it (Bug#24317).
I understand why we need to fix a typo in the regexp (which the log
entry doesn't even mention, btw), but what's the rationale for making
it a defvar?
Thanks.
^ permalink raw reply [flat|nested] 15+ messages in thread
* bug#24317: 25.1.50; image-dired-rotate-original: regexp doesn't match .jpeg suffix
2016-08-27 8:21 ` Eli Zaretskii
@ 2016-08-27 8:53 ` Tino Calancha
2016-08-27 8:57 ` Eli Zaretskii
0 siblings, 1 reply; 15+ messages in thread
From: Tino Calancha @ 2016-08-27 8:53 UTC (permalink / raw)
To: Eli Zaretskii; +Cc: 24317, Tino Calancha
> I understand why we need to fix a typo in the regexp (which the log
> entry doesn't even mention, btw), but what's the rationale for making
> it a defvar?
I made a defvar because it was used in 2 functions: only one show the
typo.
Do you prefer just the simple 1-line fix? (ie., just correct the typo)
^ permalink raw reply [flat|nested] 15+ messages in thread
* bug#24317: 25.1.50; image-dired-rotate-original: regexp doesn't match .jpeg suffix
2016-08-27 8:53 ` Tino Calancha
@ 2016-08-27 8:57 ` Eli Zaretskii
2016-08-27 9:21 ` Tino Calancha
0 siblings, 1 reply; 15+ messages in thread
From: Eli Zaretskii @ 2016-08-27 8:57 UTC (permalink / raw)
To: Tino Calancha; +Cc: 24317
> From: Tino Calancha <tino.calancha@gmail.com>
> Date: Sat, 27 Aug 2016 17:53:49 +0900 (JST)
> cc: Tino Calancha <tino.calancha@gmail.com>, 24317@debbugs.gnu.org
>
> > I understand why we need to fix a typo in the regexp (which the log
> > entry doesn't even mention, btw), but what's the rationale for making
> > it a defvar?
> I made a defvar because it was used in 2 functions: only one show the
> typo.
In that case, why not make a function that does the string-match as
well, in which case you won't need a variable, because it will appear
in a single place, and will also have the test localized to a single
function?
Thanks.
^ permalink raw reply [flat|nested] 15+ messages in thread
* bug#24317: 25.1.50; image-dired-rotate-original: regexp doesn't match .jpeg suffix
2016-08-27 8:57 ` Eli Zaretskii
@ 2016-08-27 9:21 ` Tino Calancha
2016-08-27 9:27 ` Tino Calancha
2016-08-27 9:42 ` Thien-Thi Nguyen
0 siblings, 2 replies; 15+ messages in thread
From: Tino Calancha @ 2016-08-27 9:21 UTC (permalink / raw)
To: Eli Zaretskii; +Cc: 24317, Tino Calancha
> In that case, why not make a function that does the string-match as
> well, in which case you won't need a variable, because it will appear
> in a single place, and will also have the test localized to a single
> function?
>
> Thanks.
I see. Its good idea.
I have choose a defsubst because it is small function. I am not sure
if it is recommended or if people prefers always defun's.
Please, et me know if the doc string reads weird and need some tunning
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
From 0be47e3968d898bf8f44e5c37f9035be3147a4a2 Mon Sep 17 00:00:00 2001
From: Tino Calancha <tino.calancha@gmail.com>
Date: Sat, 27 Aug 2016 18:16:25 +0900
Subject: [PATCH] image-dired-rotate-original: Fix regexp typo
* lisp/image-dired.el (image-dired-jpeg-file-p): New defsubst;
Return non-nil if a file has a JPEG extension.
(image-dired-rotate-original, image-dired-get-exif-file-name):
Use it (Bug#24317).
---
lisp/image-dired.el | 8 ++++++--
1 file changed, 6 insertions(+), 2 deletions(-)
diff --git a/lisp/image-dired.el b/lisp/image-dired.el
index 67b023d..7c8d43b 100644
--- a/lisp/image-dired.el
+++ b/lisp/image-dired.el
@@ -1205,6 +1205,10 @@ image-dired-dired-file-marked-p
(beginning-of-line)
(not (looking-at "^ .*$"))))
+(defsubst image-dired-jpeg-file-p (file)
+ "Return non-nil if FILE has a JPEG extension."
+ (string-match-p "\\.[Jj][Pp][Ee]?[Gg]$" (expand-file-name file)))
+
(defun image-dired-modify-mark-on-thumb-original-file (command)
"Modify mark in dired buffer.
COMMAND is one of `mark' for marking file in dired, `unmark' for
@@ -1912,7 +1916,7 @@ image-dired-rotate-original
(message "No image at point")
(let ((file (image-dired-original-file-name))
command)
- (if (not (string-match "\\.[jJ][pP[eE]?[gG]$" file))
+ (if (not (image-dired-jpeg-file-p file))
(error "Only JPEG images can be rotated!"))
(setq command (format-spec
image-dired-cmd-rotate-original-options
@@ -1952,7 +1956,7 @@ image-dired-get-exif-file-name
YYYY_MM_DD_HH_MM_DD_ORIG_FILE_NAME.jpg. Used from
`image-dired-copy-with-exif-file-name'."
(let (data no-exif-data-found)
- (if (not (string-match "\\.[Jj][Pp][Ee]?[Gg]$" (expand-file-name
file)))
+ (if (not (image-dired-jpeg-file-p file)))
(progn
(setq no-exif-data-found t)
(setq data
--
2.9.3
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
^ permalink raw reply related [flat|nested] 15+ messages in thread* bug#24317: 25.1.50; image-dired-rotate-original: regexp doesn't match .jpeg suffix
2016-08-27 9:21 ` Tino Calancha
@ 2016-08-27 9:27 ` Tino Calancha
2016-08-27 9:42 ` Thien-Thi Nguyen
1 sibling, 0 replies; 15+ messages in thread
From: Tino Calancha @ 2016-08-27 9:27 UTC (permalink / raw)
To: Tino Calancha; +Cc: 24317
On Sat, 27 Aug 2016, Tino Calancha wrote:
> - (if (not (string-match "\\.[Jj][Pp][Ee]?[Gg]$" (expand-file-name file)))
> + (if (not (image-dired-jpeg-file-p file)))
I added one extra paren, it should read of course:
- (if (not (string-match "\\.[Jj][Pp][Ee]?[Gg]$" (expand-file-name file)))
+ (if (not (image-dired-jpeg-file-p file))
Sorry for that.
^ permalink raw reply [flat|nested] 15+ messages in thread
* bug#24317: 25.1.50; image-dired-rotate-original: regexp doesn't match .jpeg suffix
2016-08-27 9:21 ` Tino Calancha
2016-08-27 9:27 ` Tino Calancha
@ 2016-08-27 9:42 ` Thien-Thi Nguyen
2016-08-27 11:28 ` Eli Zaretskii
1 sibling, 1 reply; 15+ messages in thread
From: Thien-Thi Nguyen @ 2016-08-27 9:42 UTC (permalink / raw)
To: Tino Calancha; +Cc: 24317
[-- Attachment #1: Type: text/plain, Size: 512 bytes --]
() Tino Calancha <tino.calancha@gmail.com>
() Sat, 27 Aug 2016 18:21:25 +0900 (JST)
I see. Its good idea.
Another idea is to use function ‘image-type’,
which can handle a filename as its SOURCE argument.
--
Thien-Thi Nguyen -----------------------------------------------
(defun responsep (type via)
(case type
(technical (eq 'mailing-list via))
...)) 748E A0E8 1CB8 A748 9BFA
--------------------------------------- 6CE4 6703 2224 4C80 7502
[-- Attachment #2: signature.asc --]
[-- Type: application/pgp-signature, Size: 197 bytes --]
^ permalink raw reply [flat|nested] 15+ messages in thread* bug#24317: 25.1.50; image-dired-rotate-original: regexp doesn't match .jpeg suffix
2016-08-27 9:42 ` Thien-Thi Nguyen
@ 2016-08-27 11:28 ` Eli Zaretskii
2016-08-27 12:18 ` Tino Calancha
0 siblings, 1 reply; 15+ messages in thread
From: Eli Zaretskii @ 2016-08-27 11:28 UTC (permalink / raw)
To: Thien-Thi Nguyen; +Cc: 24317, tino.calancha
> From: Thien-Thi Nguyen <ttn@gnu.org>
> Cc: Eli Zaretskii <eliz@gnu.org>, 24317@debbugs.gnu.org
> Date: Sat, 27 Aug 2016 11:42:31 +0200
>
> Another idea is to use function ‘image-type’,
> which can handle a filename as its SOURCE argument.
That is better, yes. Except that
(let ((case-fold-search)) (image-type-from-file-name "foo.JPEG"))
=> nil
So I guess that function needs a minor change to be more robust.
^ permalink raw reply [flat|nested] 15+ messages in thread* bug#24317: 25.1.50; image-dired-rotate-original: regexp doesn't match .jpeg suffix
2016-08-27 11:28 ` Eli Zaretskii
@ 2016-08-27 12:18 ` Tino Calancha
2016-08-27 12:55 ` Eli Zaretskii
2016-08-28 6:22 ` Andreas Schwab
0 siblings, 2 replies; 15+ messages in thread
From: Tino Calancha @ 2016-08-27 12:18 UTC (permalink / raw)
To: Eli Zaretskii; +Cc: Thien-Thi Nguyen, 24317, tino.calancha
[-- Attachment #1: Type: text/plain, Size: 2827 bytes --]
On Sat, 27 Aug 2016, Eli Zaretskii wrote:
>> From: Thien-Thi Nguyen <ttn@gnu.org>
>> Cc: Eli Zaretskii <eliz@gnu.org>, 24317@debbugs.gnu.org
>> Date: Sat, 27 Aug 2016 11:42:31 +0200
>>
>> Another idea is to use function ‘image-type’,
>> which can handle a filename as its SOURCE argument.
>
> That is better, yes. Except that
>
> (let ((case-fold-search)) (image-type-from-file-name "foo.JPEG"))
> => nil
>
> So I guess that function needs a minor change to be more robust.
That's right. It wuld be worth take a look on
'image-type-from-file-name'.
I have corrected previous patch. I drop expand-file-name from
'image-dired-jpeg-file-p'. I also corrected the extra paren mentioned
before.
If people is happy with it i will apply this patch.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
From 9d95e361e45df393feaf3f6c451878e794c924eb Mon Sep 17 00:00:00 2001
From: Tino Calancha <tino.calancha@gmail.com>
Date: Sat, 27 Aug 2016 18:41:44 +0900
Subject: [PATCH] image-dired-rotate-original: Fix regexp typo
* lisp/image-dired.el (image-dired-jpeg-file-p): New defsubst;
Return non-nil if a file has a JPEG extension.
(image-dired-rotate-original, image-dired-get-exif-file-name):
Use it (Bug#24317).
---
lisp/image-dired.el | 8 ++++++--
1 file changed, 6 insertions(+), 2 deletions(-)
diff --git a/lisp/image-dired.el b/lisp/image-dired.el
index 67b023d..61b0751 100644
--- a/lisp/image-dired.el
+++ b/lisp/image-dired.el
@@ -1205,6 +1205,10 @@ image-dired-dired-file-marked-p
(beginning-of-line)
(not (looking-at "^ .*$"))))
+(defsubst image-dired-jpeg-file-p (file)
+ "Return non-nil if FILE has a JPEG extension."
+ (string-match-p "\\.[Jj][Pp][Ee]?[Gg]$" file))
+
(defun image-dired-modify-mark-on-thumb-original-file (command)
"Modify mark in dired buffer.
COMMAND is one of `mark' for marking file in dired, `unmark' for
@@ -1912,7 +1916,7 @@ image-dired-rotate-original
(message "No image at point")
(let ((file (image-dired-original-file-name))
command)
- (if (not (string-match "\\.[jJ][pP[eE]?[gG]$" file))
+ (if (not (image-dired-jpeg-file-p file))
(error "Only JPEG images can be rotated!"))
(setq command (format-spec
image-dired-cmd-rotate-original-options
@@ -1952,7 +1956,7 @@ image-dired-get-exif-file-name
YYYY_MM_DD_HH_MM_DD_ORIG_FILE_NAME.jpg. Used from
`image-dired-copy-with-exif-file-name'."
(let (data no-exif-data-found)
- (if (not (string-match "\\.[Jj][Pp][Ee]?[Gg]$" (expand-file-name
file)))
+ (if (not (image-dired-jpeg-file-p (expand-file-name file)))
(progn
(setq no-exif-data-found t)
(setq data
--
2.9.3
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
^ permalink raw reply related [flat|nested] 15+ messages in thread* bug#24317: 25.1.50; image-dired-rotate-original: regexp doesn't match .jpeg suffix
2016-08-27 12:18 ` Tino Calancha
@ 2016-08-27 12:55 ` Eli Zaretskii
2016-08-28 12:26 ` Tino Calancha
2016-08-28 6:22 ` Andreas Schwab
1 sibling, 1 reply; 15+ messages in thread
From: Eli Zaretskii @ 2016-08-27 12:55 UTC (permalink / raw)
To: Tino Calancha; +Cc: ttn, 24317
> From: Tino Calancha <tino.calancha@gmail.com>
> Date: Sat, 27 Aug 2016 21:18:37 +0900 (JST)
> cc: Thien-Thi Nguyen <ttn@gnu.org>, tino.calancha@gmail.com,
> 24317@debbugs.gnu.org
>
> > That is better, yes. Except that
> >
> > (let ((case-fold-search)) (image-type-from-file-name "foo.JPEG"))
> > => nil
> >
> > So I guess that function needs a minor change to be more robust.
> That's right. It wuld be worth take a look on
> 'image-type-from-file-name'.
>
> I have corrected previous patch. I drop expand-file-name from
> 'image-dired-jpeg-file-p'. I also corrected the extra paren mentioned
> before.
> If people is happy with it i will apply this patch.
I think we should indeed use image-type instead of having yet another
function that recognizes JPEG. The problem I pointed out should be
fixed in image-type-from-file-name, regardless.
Sorry this wasn't clear enough from what I wrote before.
^ permalink raw reply [flat|nested] 15+ messages in thread
* bug#24317: 25.1.50; image-dired-rotate-original: regexp doesn't match .jpeg suffix
2016-08-27 12:55 ` Eli Zaretskii
@ 2016-08-28 12:26 ` Tino Calancha
2016-08-28 14:31 ` Eli Zaretskii
0 siblings, 1 reply; 15+ messages in thread
From: Tino Calancha @ 2016-08-28 12:26 UTC (permalink / raw)
To: Eli Zaretskii; +Cc: ttn, 24317, schwab, Tino Calancha
On Sat, 27 Aug 2016, Eli Zaretskii wrote:
> I think we should indeed use image-type instead of having yet another
> function that recognizes JPEG. The problem I pointed out should be
> fixed in image-type-from-file-name, regardless.
I see. I have prepared following new patch:
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
From b953d600a295e4e0aa58b85126296663e7f02472 Mon Sep 17 00:00:00 2001
From: Tino Calancha <tino.calancha@gmail.com>
Date: Sun, 28 Aug 2016 21:20:22 +0900
Subject: [PATCH] image-type-from-file-name: Perform a case insensitive
match
Fix Bug#24317
* lisp/image.el (image-type-from-file-name): Bind case-fold-search
to a non-nil value to force a case insensitive match.
* lisp/image-dired.el (image-dired-rotate-original):
Use image-type (Bug#24317).
(image-dired-get-exif-file-name): Idem.
Set 'no-exif-data-found' and 'data' in same setq call.
Use file-attribute-modification-time.
---
lisp/image-dired.el | 19 +++++++++----------
lisp/image.el | 2 +-
2 files changed, 10 insertions(+), 11 deletions(-)
diff --git a/lisp/image-dired.el b/lisp/image-dired.el
index 67b023d..34e4eae 100644
--- a/lisp/image-dired.el
+++ b/lisp/image-dired.el
@@ -1912,8 +1912,8 @@ image-dired-rotate-original
(message "No image at point")
(let ((file (image-dired-original-file-name))
command)
- (if (not (string-match "\\.[jJ][pP[eE]?[gG]$" file))
- (error "Only JPEG images can be rotated!"))
+ (unless (eq 'jpeg (image-type file))
+ (error "Only JPEG images can be rotated!"))
(setq command (format-spec
image-dired-cmd-rotate-original-options
(list
@@ -1952,15 +1952,14 @@ image-dired-get-exif-file-name
YYYY_MM_DD_HH_MM_DD_ORIG_FILE_NAME.jpg. Used from
`image-dired-copy-with-exif-file-name'."
(let (data no-exif-data-found)
- (if (not (string-match "\\.[Jj][Pp][Ee]?[Gg]$" (expand-file-name
file)))
- (progn
- (setq no-exif-data-found t)
- (setq data
- (format-time-string
- "%Y:%m:%d %H:%M:%S"
- (nth 5 (file-attributes (expand-file-name file))))))
+ (if (not (eq 'jpeg (image-type (expand-file-name file))))
+ (setq no-exif-data-found t
+ data (format-time-string
+ "%Y:%m:%d %H:%M:%S"
+ (file-attribute-modification-time
+ (file-attributes (expand-file-name file)))))
(setq data (image-dired-get-exif-data (expand-file-name file)
- "DateTimeOriginal")))
+ "DateTimeOriginal")))
(while (string-match "[ :]" data)
(setq data (replace-match "_" nil nil data)))
(format "%s%s%s" data
diff --git a/lisp/image.el b/lisp/image.el
index 272cee5..d1cdc44 100644
--- a/lisp/image.el
+++ b/lisp/image.el
@@ -343,7 +343,7 @@ image-type-from-file-name
"Determine the type of image file FILE from its name.
Value is a symbol specifying the image type, or nil if type cannot
be determined."
- (let (type first)
+ (let (type first (case-fold-search t))
(catch 'found
(dolist (elem image-type-file-name-regexps first)
(when (string-match-p (car elem) file)
--
2.9.3
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
In GNU Emacs 25.1.50.1 (x86_64-pc-linux-gnu, GTK+ Version 3.20.9)
of 2016-08-27
Repository revision: 7fcce24e75b8281621a0b8816dc58cbdc05fdc91
^ permalink raw reply related [flat|nested] 15+ messages in thread* bug#24317: 25.1.50; image-dired-rotate-original: regexp doesn't match .jpeg suffix
2016-08-28 12:26 ` Tino Calancha
@ 2016-08-28 14:31 ` Eli Zaretskii
2016-08-28 14:49 ` Tino Calancha
2016-09-04 2:19 ` Tino Calancha
0 siblings, 2 replies; 15+ messages in thread
From: Eli Zaretskii @ 2016-08-28 14:31 UTC (permalink / raw)
To: Tino Calancha; +Cc: ttn, 24317, schwab
> > I think we should indeed use image-type instead of having yet another
> > function that recognizes JPEG. The problem I pointed out should be
> > fixed in image-type-from-file-name, regardless.
> I see. I have prepared following new patch:
>
> ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
> >From b953d600a295e4e0aa58b85126296663e7f02472 Mon Sep 17 00:00:00 2001
> From: Tino Calancha <tino.calancha@gmail.com>
> Date: Sun, 28 Aug 2016 21:20:22 +0900
> Subject: [PATCH] image-type-from-file-name: Perform a case insensitive
> match
>
> Fix Bug#24317
> * lisp/image.el (image-type-from-file-name): Bind case-fold-search
> to a non-nil value to force a case insensitive match.
> * lisp/image-dired.el (image-dired-rotate-original):
> Use image-type (Bug#24317).
> (image-dired-get-exif-file-name): Idem.
> Set 'no-exif-data-found' and 'data' in same setq call.
> Use file-attribute-modification-time.
Thanks, this looks good to me. Please push in a few days if no
additional comments are posted.
^ permalink raw reply [flat|nested] 15+ messages in thread
* bug#24317: 25.1.50; image-dired-rotate-original: regexp doesn't match .jpeg suffix
2016-08-28 14:31 ` Eli Zaretskii
@ 2016-08-28 14:49 ` Tino Calancha
2016-09-04 2:19 ` Tino Calancha
1 sibling, 0 replies; 15+ messages in thread
From: Tino Calancha @ 2016-08-28 14:49 UTC (permalink / raw)
To: Eli Zaretskii; +Cc: ttn, 24317, schwab, Tino Calancha
On Sun, 28 Aug 2016, Eli Zaretskii wrote:
> Thanks, this looks good to me. Please push in a few days if no
> additional comments are posted.
Thank you very much Eli. I promise I will be patient :-)
^ permalink raw reply [flat|nested] 15+ messages in thread
* bug#24317: 25.1.50; image-dired-rotate-original: regexp doesn't match .jpeg suffix
2016-08-28 14:31 ` Eli Zaretskii
2016-08-28 14:49 ` Tino Calancha
@ 2016-09-04 2:19 ` Tino Calancha
1 sibling, 0 replies; 15+ messages in thread
From: Tino Calancha @ 2016-09-04 2:19 UTC (permalink / raw)
To: 24317-done
On Sun, 28 Aug 2016, Eli Zaretskii wrote:
> Thanks, this looks good to me. Please push in a few days if no
> additional comments are posted.
Fixed in master branch.
^ permalink raw reply [flat|nested] 15+ messages in thread
* bug#24317: 25.1.50; image-dired-rotate-original: regexp doesn't match .jpeg suffix
2016-08-27 12:18 ` Tino Calancha
2016-08-27 12:55 ` Eli Zaretskii
@ 2016-08-28 6:22 ` Andreas Schwab
1 sibling, 0 replies; 15+ messages in thread
From: Andreas Schwab @ 2016-08-28 6:22 UTC (permalink / raw)
To: Tino Calancha; +Cc: Thien-Thi Nguyen, 24317
On Aug 27 2016, Tino Calancha <tino.calancha@gmail.com> wrote:
> diff --git a/lisp/image-dired.el b/lisp/image-dired.el
> index 67b023d..61b0751 100644
> --- a/lisp/image-dired.el
> +++ b/lisp/image-dired.el
> @@ -1205,6 +1205,10 @@ image-dired-dired-file-marked-p
> (beginning-of-line)
> (not (looking-at "^ .*$"))))
>
> +(defsubst image-dired-jpeg-file-p (file)
> + "Return non-nil if FILE has a JPEG extension."
> + (string-match-p "\\.[Jj][Pp][Ee]?[Gg]$" file))
FWIW, the regexp should end in "\\'".
Andreas.
--
Andreas Schwab, schwab@linux-m68k.org
GPG Key fingerprint = 58CA 54C7 6D53 942B 1756 01D3 44D5 214B 8276 4ED5
"And now for something completely different."
^ permalink raw reply [flat|nested] 15+ messages in thread
end of thread, other threads:[~2016-09-04 2:19 UTC | newest]
Thread overview: 15+ messages (download: mbox.gz follow: Atom feed
-- links below jump to the message on this page --
2016-08-27 8:04 bug#24317: 25.1.50; image-dired-rotate-original: regexp doesn't match .jpeg suffix Tino Calancha
2016-08-27 8:21 ` Eli Zaretskii
2016-08-27 8:53 ` Tino Calancha
2016-08-27 8:57 ` Eli Zaretskii
2016-08-27 9:21 ` Tino Calancha
2016-08-27 9:27 ` Tino Calancha
2016-08-27 9:42 ` Thien-Thi Nguyen
2016-08-27 11:28 ` Eli Zaretskii
2016-08-27 12:18 ` Tino Calancha
2016-08-27 12:55 ` Eli Zaretskii
2016-08-28 12:26 ` Tino Calancha
2016-08-28 14:31 ` Eli Zaretskii
2016-08-28 14:49 ` Tino Calancha
2016-09-04 2:19 ` Tino Calancha
2016-08-28 6:22 ` Andreas Schwab
Code repositories for project(s) associated with this external index
https://git.savannah.gnu.org/cgit/emacs.git
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.