* lisp/dired.el (dired-safe-switches-p): New function. (Bug#3230)

2 files changed, 7 insertions, 0 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 5b8a5be8280..c4154b9a56e 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2011-03-01  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+        * dired.el (dired-safe-switches-p): New function.
+
 2011-03-01  Glenn Morris  <rgm@gnu.org>
 
         * files.el (dir-locals-collect-variables):
diff --git a/lisp/dired.el b/lisp/dired.el
index 625ed48eff4..4b9bc19c8d9 100644
--- a/lisp/dired.el
+++ b/lisp/dired.el
@@ -249,6 +249,9 @@ Local to each dired buffer.  May be a list, in which case the car is the
 directory name and the cdr is the list of files to mention.
 The directory name must be absolute, but need not be fully expanded.")
 
+(defun dired-safe-switches-p (switches)
+  (string-match "\\`[- [:alnum:]]+\\'" switches))
+
 (defvar dired-actual-switches nil
   "The value of `dired-listing-switches' used to make this buffer's text.")