diff options
| author | Dmitry Gutov <dgutov@yandex.ru> | 2022-11-14 02:18:56 +0200 |
|---|---|---|
| committer | Dmitry Gutov <dgutov@yandex.ru> | 2022-11-14 02:19:10 +0200 |
| commit | c0474ca21dd76cafbd1a04fd32d4a0bd42de6351 (patch) | |
| tree | fbc7e086be814d1e9c3bdfa204b0454192c3f909 /lisp/progmodes/project.el | |
| parent | 9d5fc2c7eb3cfc2ae36cdc750a4605b4b08771b8 (diff) | |
| download | emacs-c0474ca21dd76cafbd1a04fd32d4a0bd42de6351.tar.gz | |
Hardcode "-name" instead of using find-name-arg
* lisp/progmodes/project.el (project--files-in-directory):
Hardcode "-name" instead of using find-name-arg (bug#59023).
Diffstat (limited to 'lisp/progmodes/project.el')
| -rw-r--r-- | lisp/progmodes/project.el | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/lisp/progmodes/project.el b/lisp/progmodes/project.el index d2ce684c1ba..ed26872ae77 100644 --- a/lisp/progmodes/project.el +++ b/lisp/progmodes/project.el @@ -1,7 +1,7 @@ ;;; project.el --- Operations on the current project -*- lexical-binding: t; -*- ;; Copyright (C) 2015-2022 Free Software Foundation, Inc. -;; Version: 0.8.2 +;; Version: 0.8.3 ;; Package-Requires: ((emacs "26.1") (xref "1.4.0")) ;; This is a GNU ELPA :core package. Avoid using functionality that @@ -296,7 +296,6 @@ to find the list of ignores for each directory." (defun project--files-in-directory (dir ignores &optional files) (require 'find-dired) (require 'xref) - (defvar find-name-arg) (let* ((default-directory dir) ;; Make sure ~/ etc. in local directory name is ;; expanded and not left for the shell command @@ -308,11 +307,11 @@ to find the list of ignores for each directory." (xref--find-ignores-arguments ignores "./") (if files (concat (shell-quote-argument "(") - " " find-name-arg " " + " -name " (mapconcat #'shell-quote-argument (split-string files) - (concat " -o " find-name-arg " ")) + (concat " -o -name ")) " " (shell-quote-argument ")")) ""))) |