[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] /srv/bzr/emacs/trunk r103456: * lisp/dired.el (dired-safe-
From: |
Glenn Morris |
Subject: |
[Emacs-diffs] /srv/bzr/emacs/trunk r103456: * lisp/dired.el (dired-safe-switches-p): New function. (Bug#3230) |
Date: |
Mon, 28 Feb 2011 19:10:11 -0800 |
User-agent: |
Bazaar (2.0.3) |
------------------------------------------------------------
revno: 103456
author: Stefan Monnier <address@hidden>
committer: Glenn Morris <address@hidden>
branch nick: trunk
timestamp: Mon 2011-02-28 19:10:11 -0800
message:
* lisp/dired.el (dired-safe-switches-p): New function. (Bug#3230)
modified:
lisp/ChangeLog
lisp/dired.el
=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog 2011-03-01 03:05:28 +0000
+++ b/lisp/ChangeLog 2011-03-01 03:10:11 +0000
@@ -1,3 +1,7 @@
+2011-03-01 Stefan Monnier <address@hidden>
+
+ * dired.el (dired-safe-switches-p): New function.
+
2011-03-01 Glenn Morris <address@hidden>
* files.el (dir-locals-collect-variables):
=== modified file 'lisp/dired.el'
--- a/lisp/dired.el 2011-02-26 09:48:22 +0000
+++ b/lisp/dired.el 2011-03-01 03:10:11 +0000
@@ -249,6 +249,9 @@
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.")
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] /srv/bzr/emacs/trunk r103456: * lisp/dired.el (dired-safe-switches-p): New function. (Bug#3230),
Glenn Morris <=