From d4aeef3b961bcbfb78a388683f64a4ce971fda26 Mon Sep 17 00:00:00 2001
From: =?utf8?q?Kai=20Gro=C3=9Fjohann?= <kgrossjo@eu.uu.net>
Date: Fri, 10 Jan 2003 16:42:27 +0000
Subject: [PATCH] (dired-garbage-files-regexp): Use \\' instead of $ and use
 regexp-opt for readability.

---
 lisp/ChangeLog | 5 +++++
 lisp/dired.el  | 4 +++-
 2 files changed, 8 insertions(+), 1 deletion(-)

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index aade4d68813..504e061643c 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2003-01-10  Kai Gro,A_(Bjohann  <kai.grossjohann@uni-duisburg.de>
+
+	* dired.el (dired-garbage-files-regexp): Use \\' instead of $ and
+	use regexp-opt for readability.
+
 2003-01-10  Mark A. Hershberger  <mah@everybody.org>
 
 	* xml.el (xml-parse-tag, xml-parse-attlist, xml-skip-dtd)
diff --git a/lisp/dired.el b/lisp/dired.el
index 9dbde910911..160fee7d34b 100644
--- a/lisp/dired.el
+++ b/lisp/dired.el
@@ -2570,7 +2570,9 @@ A prefix argument says to unflag those files instead."
      "auto save file")))
 
 (defvar dired-garbage-files-regexp
-  "\\.log$\\|\\.toc$\\|\\.dvi$\\|\\.bak$\\|\\.orig$\\|\\.rej$\\|.aux$" 
+  (concat (regexp-opt
+	   '(".log" ".toc" ".dvi" ".bak" ".orig" ".rej" ".aux"))
+	  "\\'") 
   "*Regular expression to match \"garbage\" files for `dired-flag-garbage-files'.")
 
 (defun dired-flag-garbage-files ()
-- 
2.39.2