Function: project--read-file-absolute

project--read-file-absolute is a byte-compiled function defined in project.el.gz.

Signature

(project--read-file-absolute PROMPT ALL-FILES &optional PREDICATE HIST MB-DEFAULT)

Source Code

;; Defined in /usr/src/emacs/lisp/progmodes/project.el.gz
(defun project--read-file-absolute (prompt
                                    all-files &optional predicate
                                    hist mb-default)
  (let* ((new-prompt (if (file-name-absolute-p (car all-files))
                         prompt
                       (concat prompt " in " default-directory)))
         ;; FIXME: Map relative names to absolute?
         (ct (project--file-completion-table all-files))
         (file
          (project--completing-read-strict new-prompt
                                           ct
                                           predicate
                                           hist mb-default)))
    (unless (file-name-absolute-p file)
      (setq file (expand-file-name file)))
    file))