emacs-pretest-bug
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: Emacs 21.3.50 grep.el/executable.el problems


From: Ehud Karni
Subject: Re: Emacs 21.3.50 grep.el/executable.el problems
Date: Mon, 16 Feb 2004 17:17:11 +0200

-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1

On Mon, 16 Feb 2004 15:35:22 +0100, Markus Rost <address@hidden> 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 <http://www.keyserver.net/>    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-----




reply via email to

[Prev in Thread] Current Thread [Next in Thread]