comparison lisp/progmodes/executable.el @ 54065:18ada18b62be

(executable-command-find-posix-p): Fix choice of the directory.

54064:c9135adb6143

;;;###autoload
(defun executable-command-find-posix-p (&optional program)
  "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
                    (current-buffer)
                    nil

54065:18ada18b62be

;;;###autoload
(defun executable-command-find-posix-p (&optional program)
  "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 (file-truename data-directory))
         (file (car (directory-files dir nil "^[^.]"))))
    (with-temp-buffer
      (call-process (or program "find")
                    nil
                    (current-buffer)
                    nil