(dired-garbage-files-regexp): Use \\' instead of $ and

use regexp-opt for readability.

2 files changed, 8 insertions, 1 deletions

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 ()