From mboxrd@z Thu Jan 1 00:00:00 1970 Path: main.gmane.org!not-for-mail From: "Ehud Karni" Newsgroups: gmane.emacs.pretest.bugs,gmane.emacs.devel Subject: Re: Emacs 21.3.50 grep.el/executable.el problems Date: Mon, 16 Feb 2004 17:17:11 +0200 Organization: Mivtach-Simon Insurance agencies Sender: emacs-pretest-bug-bounces+gebp-emacs-pretest-bug=gmane.org@gnu.org Message-ID: <200402161517.i1GFHB6h006645@beta.mvs.co.il> References: Reply-To: ehud@unix.mvs.co.il NNTP-Posting-Host: deer.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=iso-8859-8-i Content-Transfer-Encoding: 7bit X-Trace: sea.gmane.org 1076944758 19251 80.91.224.253 (16 Feb 2004 15:19:18 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Mon, 16 Feb 2004 15:19:18 +0000 (UTC) Cc: emacs-pretest-bug@gnu.org, emacs-devel@gnu.org Original-X-From: emacs-pretest-bug-bounces+gebp-emacs-pretest-bug=gmane.org@gnu.org Mon Feb 16 16:19:04 2004 Return-path: Original-Received: from hermes.netfonds.no ([80.91.224.195]) by deer.gmane.org with esmtp (Exim 3.35 #1 (Debian)) id 1AskWW-00008j-00 for ; Mon, 16 Feb 2004 16:19:04 +0100 Original-Received: from monty-python.gnu.org (monty-python.gnu.org [199.232.76.173]) by hermes.netfonds.no (8.12.8p1/8.12.8) with ESMTP id i1GFItOn030654 for ; Mon, 16 Feb 2004 16:18:55 +0100 (CET) Original-Received: from localhost ([127.0.0.1] helo=monty-python.gnu.org) by monty-python.gnu.org with esmtp (Exim 4.24) id 1AskWM-00010X-Bc for gebp-emacs-pretest-bug@gmane.org; Mon, 16 Feb 2004 10:18:54 -0500 Original-Received: from list by monty-python.gnu.org with tmda-scanned (Exim 4.24) id 1AskW6-0000qu-PA for emacs-pretest-bug@gnu.org; Mon, 16 Feb 2004 10:18:38 -0500 Original-Received: from mail by monty-python.gnu.org with spam-scanned (Exim 4.24) id 1AskVM-0008Iu-F3 for emacs-pretest-bug@gnu.org; Mon, 16 Feb 2004 10:18:26 -0500 Original-Received: from [192.114.178.12] (helo=unix.mvs.co.il) by monty-python.gnu.org with esmtp (Exim 4.24) id 1AskUn-0007WG-HA; Mon, 16 Feb 2004 10:17:17 -0500 Original-Received: from beta.mvs.co.il (beta [10.253.0.3]) by unix.mvs.co.il (8.12.10/8.12.10) with ESMTP id i1GFHDDD017536 for ; Mon, 16 Feb 2004 17:17:13 +0200 Original-Received: from beta.mvs.co.il (localhost [127.0.0.1]) by beta.mvs.co.il (8.12.10/8.12.10) with ESMTP id i1GFHCkg006660 for ; Mon, 16 Feb 2004 17:17:12 +0200 Original-Received: (from root@localhost) by beta.mvs.co.il (8.12.10/8.12.10/Submit) id i1GFHB6h006645; Mon, 16 Feb 2004 17:17:11 +0200 Original-To: rost@mathematik.uni-bielefeld.de In-reply-to: (message from Markus Rost on Mon, 16 Feb 2004 15:35:22 +0100) X-Mailer: Emacs 21.3.1 rmail (send-msg 1.108) X-BeenThere: emacs-pretest-bug@gnu.org X-Mailman-Version: 2.1.2 Precedence: list List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-pretest-bug-bounces+gebp-emacs-pretest-bug=gmane.org@gnu.org Xref: main.gmane.org gmane.emacs.pretest.bugs:2133 gmane.emacs.devel:19976 X-Report-Spam: http://spam.gmane.org/gmane.emacs.devel:19976 -----BEGIN PGP SIGNED MESSAGE----- Hash: SHA1 On Mon, 16 Feb 2004 15:35:22 +0100, Markus Rost wrote: > > I suggest following simple fix, at least as a temporary solution. > I'll install it, if one of the maintainers agrees. > > ===Buffer *vc-diff*========================================= > *** executable.el.~1.30.~ Thu Feb 12 14:48:19 2004 > --- executable.el Mon Feb 16 15:22:31 2004 > *************** > *** 145,156 **** > "Check if PROGRAM handles arguments Posix-style. > If PROGRAM is non-nil, use that instead of \"find\"." > ;; Pick file to search from location we know > ! (let* ((dir (car load-path)) > ! (file (find-if > ! (lambda (x) > ! ;; Filter directories . and .. > ! (not (string-match "^\\.\\.?$" x))) > ! (directory-files dir)))) > (with-temp-buffer > (call-process (or program "find") > nil > --- 145,152 ---- > "Check if PROGRAM handles arguments Posix-style. > If PROGRAM is non-nil, use that instead of \"find\"." > ;; Pick file to search from location we know > ! (let* ((dir data-directory) `find' fails if dir is a symbolic link. I'll change this to: (let* ((dir (or (file-symlink-p data-directory) data-directory)) > ! (file (car (directory-files dir nil "^[^.]")))) > (with-temp-buffer > (call-process (or program "find") > nil > ============================================================ Ehud. - -- Ehud Karni Tel: +972-3-7966-561 /"\ Mivtach - Simon Fax: +972-3-7966-667 \ / ASCII Ribbon Campaign Insurance agencies (USA) voice mail and X Against HTML Mail http://www.mvs.co.il FAX: 1-815-5509341 / \ GnuPG: 98EA398D Better Safe Than Sorry -----BEGIN PGP SIGNATURE----- Comment: use http://www.keyserver.net/ to get my key (and others) iD8DBQFAMN72LFvTvpjqOY0RAsKzAJ4qEekJL7uGQjt3HSbGLeZhDJkQeQCeJLDi Cx/+iIjSfZ6v8QfE3vQOs7U= =N/ig -----END PGP SIGNATURE-----