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

75da6eb9 · Stefan Monnier · Glenn Morris · 6640b281 · 75da6eb9 · 75da6eb9
Commit 75da6eb9 authored Feb 28, 2011 by Stefan Monnier Committed by Glenn Morris Feb 28, 2011
Hide whitespace changes
Inline Side-by-side

Showing with 7 additions and 0 deletions

lisp/ChangeLog lisp/ChangeLog +4 -0

lisp/dired.el lisp/dired.el +3 -0

No files found.
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
+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):

--- 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.")