Show
Ignore:
Timestamp:
09/09/06 16:30:10 (2 years ago)
Author:
miyoshi
Message:

Sync up with Emacs CVS HEAD.

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • trunk/lisp/find-dired.el

    r4037 r4161  
    130130                       (if (string= args "") 
    131131                           "" 
    132                          (concat "\\( " args " \\) ")) 
    133                        (car find-ls-option))) 
     132                         (concat 
     133                          (shell-quote-argument "(") 
     134                          " " args " " 
     135                          (shell-quote-argument ")") 
     136                          " ")) 
     137                       (if (equal (car find-ls-option) "-exec ls -ld {} \\;") 
     138                           (concat "-exec ls -ld " 
     139                                   (shell-quote-argument "{}") 
     140                                   " " 
     141                                   (shell-quote-argument ";")) 
     142                         (car find-ls-option)))) 
    134143    ;; Start the find process. 
    135144    (shell-command (concat args "&") (current-buffer)) 
    …… 
    216225              (concat "-type f -exec grep " find-grep-options " -e " 
    217226                      (shell-quote-argument regexp) 
    218                       " {} \\\; "))) 
     227                      " " 
     228                      (shell-quote-argument "{}") 
     229                      " " 
     230                      (shell-quote-argument ";")))) 
    219231 
    220232(defun find-dired-filter (proc string)