unofficial mirror of bug-gnu-emacs@gnu.org 
 help / color / mirror / code / Atom feed
* bug#73445: [PATCH] image-dired: quote file name fore search-forward-regexp
@ 2024-09-24  4:55 Vitaliy Chepelev via Bug reports for GNU Emacs, the Swiss army knife of text editors
  2024-09-24 18:24 ` Stefan Kangas
  0 siblings, 1 reply; 3+ messages in thread
From: Vitaliy Chepelev via Bug reports for GNU Emacs, the Swiss army knife of text editors @ 2024-09-24  4:55 UTC (permalink / raw)
  To: 73445

[-- Attachment #1: Type: text/plain, Size: 217 bytes --]

Tags: patch


In GNU Emacs 29.4 (build 1, x86_64-pc-linux-gnu, X toolkit) of
 2024-07-29 built on localhost
Windowing system distributor 'The X.Org Foundation', version 11.0.12101013
System Description: Gentoo Linux


[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: 0001-image-dired-quote-file-name-fore-search-forward-rege.patch --]
[-- Type: text/patch, Size: 3507 bytes --]

From d0e7b67e10d3ecb34969c0af18ef6317fd96636d Mon Sep 17 00:00:00 2001
From: none <none>
Date: Tue, 24 Sep 2024 04:25:13 +0000
Subject: [PATCH] image-dired: quote file name fore search-forward-regexp

For example when you have file with name "file[image].jpg". and use M-x image-dired you will have error: image-dired-list-tags: Invalid regexp: "Unmatched [ or [^"
---
 lisp/image/image-dired-dired.el |  2 +-
 lisp/image/image-dired-tags.el  | 10 +++++-----
 2 files changed, 6 insertions(+), 6 deletions(-)

diff --git a/lisp/image/image-dired-dired.el b/lisp/image/image-dired-dired.el
index 7219a10..c4e82e9 100644
--- a/lisp/image/image-dired-dired.el
+++ b/lisp/image/image-dired-dired.el
@@ -383,7 +383,7 @@ matching tag will be marked in the Dired buffer."
                       (file-name-directory curr-file)))
         (setq curr-file (file-name-nondirectory curr-file))
         (goto-char (point-min))
-        (when (search-forward-regexp (format "\\s %s[*@]?$" curr-file) nil t)
+        (when (search-forward-regexp (format "\\s %s[*@]?$" (regexp-quote curr-file)) nil t)
           (setq hits (+ hits 1))
           (dired-mark 1))))
     (message "%d files with matching tag marked" hits)))
diff --git a/lisp/image/image-dired-tags.el b/lisp/image/image-dired-tags.el
index 54595ad..828372e 100644
--- a/lisp/image/image-dired-tags.el
+++ b/lisp/image/image-dired-tags.el
@@ -79,7 +79,7 @@ FILE-TAGS is an alist in the following form:
         (setq file (car elt)
               tag (cdr elt))
         (goto-char (point-min))
-        (if (search-forward-regexp (format "^%s.*$" file) nil t)
+        (if (search-forward-regexp (format "^%s.*$" (regexp-quote file)) nil t)
             (progn
               (setq end (point))
               (beginning-of-line)
@@ -103,7 +103,7 @@ FILES can be a name of a single file (a string) or a list of file names."
           (error "Files must be a string or a list of strings!")))
       (dolist (file files)
         (goto-char (point-min))
-        (when (search-forward-regexp (format "^%s;" file) nil t)
+        (when (search-forward-regexp (format "^%s;" (regexp-quote file)) nil t)
           (end-of-line)
           (setq end (point))
           (beginning-of-line)
@@ -125,7 +125,7 @@ Value is a list of all tags for FILE."
   (image-dired-sane-db-file)
   (image-dired--with-db-file
     (let (end (tags ""))
-      (when (search-forward-regexp (format "^%s" file) nil t)
+      (when (search-forward-regexp (format "^%s" (regexp-quote file)) nil t)
         (end-of-line)
         (setq end (point))
         (beginning-of-line)
@@ -179,7 +179,7 @@ FILE-COMMENTS is an alist on the following form:
         (setq file (car elt)
               comment (cdr elt))
         (goto-char (point-min))
-        (if (search-forward-regexp (format "^%s.*$" file) nil t)
+        (if (search-forward-regexp (format "^%s.*$" (regexp-quote file)) nil t)
             (progn
               (setq end (point))
               (beginning-of-line)
@@ -236,7 +236,7 @@ Optionally use old comment from FILE as initial value."
   (image-dired-sane-db-file)
   (image-dired--with-db-file
     (let (end comment-beg-pos comment-end-pos comment)
-      (when (search-forward-regexp (format "^%s" file) nil t)
+      (when (search-forward-regexp (format "^%s" (regexp-quote file)) nil t)
         (end-of-line)
         (setq end (point))
         (beginning-of-line)
--
2.44.2


[-- Attachment #3: Type: text/plain, Size: 21 bytes --]


--
Best regards,

^ permalink raw reply related	[flat|nested] 3+ messages in thread

* bug#73445: [PATCH] image-dired: quote file name fore search-forward-regexp
  2024-09-24  4:55 bug#73445: [PATCH] image-dired: quote file name fore search-forward-regexp Vitaliy Chepelev via Bug reports for GNU Emacs, the Swiss army knife of text editors
@ 2024-09-24 18:24 ` Stefan Kangas
  2024-10-05  1:09   ` Stefan Kangas
  0 siblings, 1 reply; 3+ messages in thread
From: Stefan Kangas @ 2024-09-24 18:24 UTC (permalink / raw)
  To: Vitaliy Chepelev, 73445

tags 73445 + pending
thanks

Could you resend the patch with a correct "From" line so that we
can get the attribution right?

Currently, the "From" line says:

> From: none <none>

Other than that, LGTM.

Bonus points if you include a ChangeLog according to CONTRIBUTE, but I
can easily write that for you.





^ permalink raw reply	[flat|nested] 3+ messages in thread

* bug#73445: [PATCH] image-dired: quote file name fore search-forward-regexp
  2024-09-24 18:24 ` Stefan Kangas
@ 2024-10-05  1:09   ` Stefan Kangas
  0 siblings, 0 replies; 3+ messages in thread
From: Stefan Kangas @ 2024-10-05  1:09 UTC (permalink / raw)
  To: Vitaliy Chepelev; +Cc: 73445

Stefan Kangas <stefankangas@gmail.com> writes:

> tags 73445 + pending
> thanks
>
> Could you resend the patch with a correct "From" line so that we
> can get the attribution right?
>
> Currently, the "From" line says:
>
>> From: none <none>
>
> Other than that, LGTM.
>
> Bonus points if you include a ChangeLog according to CONTRIBUTE, but I
> can easily write that for you.

Ping!





^ permalink raw reply	[flat|nested] 3+ messages in thread

end of thread, other threads:[~2024-10-05  1:09 UTC | newest]

Thread overview: 3+ messages (download: mbox.gz follow: Atom feed
-- links below jump to the message on this page --
2024-09-24  4:55 bug#73445: [PATCH] image-dired: quote file name fore search-forward-regexp Vitaliy Chepelev via Bug reports for GNU Emacs, the Swiss army knife of text editors
2024-09-24 18:24 ` Stefan Kangas
2024-10-05  1:09   ` Stefan Kangas

Code repositories for project(s) associated with this public inbox

	https://git.savannah.gnu.org/cgit/emacs.git

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).