From 62c804f83683d003691b7fdc8d72b9f9f4594705 Mon Sep 17 00:00:00 2001 From: Andreas Schwab Date: Thu, 25 Apr 2002 16:30:49 +0000 Subject: [PATCH] (find-name-dired): Don't quote pattern twice. --- lisp/ChangeLog | 4 ++++ lisp/find-dired.el | 4 ++-- 2 files changed, 6 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 5d8cdb66090..9815f43137a 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2002-04-25 Andreas Schwab + + * find-dired.el (find-name-dired): Don't quote pattern twice. + 2002-04-26 Miles Bader * cus-edit.el (customize-face, customize-face-other-window): diff --git a/lisp/find-dired.el b/lisp/find-dired.el index 4e86c792ab4..01d89fd9116 100644 --- a/lisp/find-dired.el +++ b/lisp/find-dired.el @@ -1,6 +1,6 @@ ;;; find-dired.el --- run a `find' command and dired the output -;; Copyright (C) 1992, 1994, 1995, 2000 Free Software Foundation, Inc. +;; Copyright (C) 1992, 1994, 1995, 2000, 2002 Free Software Foundation, Inc. ;; Author: Roland McGrath , ;; Sebastian Kremer @@ -159,7 +159,7 @@ The command run (after changing into DIR) is find . -name 'PATTERN' -ls" (interactive "DFind-name (directory): \nsFind-name (filename wildcard): ") - (find-dired dir (concat "-name '" (shell-quote-argument pattern) "'"))) + (find-dired dir (concat "-name " (shell-quote-argument pattern)))) ;; This functionality suggested by ;; From: oblanc@watcgl.waterloo.edu (Olivier Blanc) -- 2.39.5