diff options
| author | Richard M. Stallman | 2002-03-08 09:35:44 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 2002-03-08 09:35:44 +0000 |
| commit | ff39e69ccd6fd617b14b05a60c2c98b6b3784b12 (patch) | |
| tree | 72605ac0b096bb84ca7889fdaf13151424141dbf | |
| parent | 007776bcc68f6549071f8c738ce6263293f09ae8 (diff) | |
| download | emacs-ff39e69ccd6fd617b14b05a60c2c98b6b3784b12.tar.gz emacs-ff39e69ccd6fd617b14b05a60c2c98b6b3784b12.zip | |
(find-name-dired): Use shell-quote-argument.
| -rw-r--r-- | lisp/find-dired.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/find-dired.el b/lisp/find-dired.el index d07c983c1dc..4e86c792ab4 100644 --- a/lisp/find-dired.el +++ b/lisp/find-dired.el | |||
| @@ -159,7 +159,7 @@ The command run (after changing into DIR) is | |||
| 159 | find . -name 'PATTERN' -ls" | 159 | find . -name 'PATTERN' -ls" |
| 160 | (interactive | 160 | (interactive |
| 161 | "DFind-name (directory): \nsFind-name (filename wildcard): ") | 161 | "DFind-name (directory): \nsFind-name (filename wildcard): ") |
| 162 | (find-dired dir (concat "-name '" pattern "'"))) | 162 | (find-dired dir (concat "-name '" (shell-quote-argument pattern) "'"))) |
| 163 | 163 | ||
| 164 | ;; This functionality suggested by | 164 | ;; This functionality suggested by |
| 165 | ;; From: oblanc@watcgl.waterloo.edu (Olivier Blanc) | 165 | ;; From: oblanc@watcgl.waterloo.edu (Olivier Blanc) |