* lisp/dired-x.el (dired-omit-expunge): Escape '%' (bug#75877).

(cherry picked from commit bfc8540da4521d460b72fdbc20edb3a0488c23c2)

diff --git a/lisp/dired-x.el b/lisp/dired-x.el
index 364e8af5299d86a87e76bd3e1b537dfa5d9a736c..1774049b0560da2607e6c7ffcf0246bc6aff1386 100644 (file)
--- a/lisp/dired-x.el
+++ b/lisp/dired-x.el
@@ -498,8 +498,10 @@ status message."
                                nil
                                (if dired-omit-verbose
                                    (format "Omitted %%d line%%s in %s"
-                                           (abbreviate-file-name
-                                            dired-directory))
+                                           (replace-regexp-in-string
+                                            "%" "%%"
+                                            (abbreviate-file-name
+                                             dired-directory)))
                                  "")
                                init-count)))
               (force-mode-line-update))))