Skip to content

GitLab

Commit 62c804f8 authored by Andreas Schwab's avatar Andreas Schwab
Browse files

(find-name-dired): Don't quote pattern twice.

parent 0344bc5a
Hide whitespace changes
Inline Side-by-side
Showing with 6 additions and 2 deletions
lisp/ChangeLog
View file @ 62c804f8
2002-04-25 Andreas Schwab <schwab@suse.de>
* find-dired.el (find-name-dired): Don't quote pattern twice.
2002-04-26 Miles Bader <miles@gnu.org>
* cus-edit.el (customize-face, customize-face-other-window):
......
lisp/find-dired.el
View file @ 62c804f8
;;; 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 <roland@gnu.org>,
;; Sebastian Kremer <sk@thp.uni-koeln.de>
......@@ -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)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment