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

use regexp-opt for readability.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index aade4d68813cf97724d5c6f93c4827a65b424443..504e061643ccfd69763f54682d567f2d59ca945a 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2003-01-10  Kai Gro\e,A_\e(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 9dbde910911af29f29592a89683fa3c567775752..160fee7d34b2acf0de3b17a6bc02463fea948020 100644 (file)
--- 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 ()