From: Kai Großjohann <kgrossjo@eu.uu.net>
Date: Fri, 10 Jan 2003 16:42:27 +0000 (+0000)
Subject: (dired-garbage-files-regexp): Use \\' instead of $ and
X-Git-Tag: ttn-vms-21-2-B4~11750
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d4aeef3b961bcbfb78a388683f64a4ce971fda26;p=emacs.git

(dired-garbage-files-regexp): Use \\' instead of $ and
use regexp-opt for readability.
---

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