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* ((names-absolute (file-name-absolute-p (car all-files)))
         (new-prompt (if names-absolute
                         prompt
                       (concat prompt " in " default-directory)))
         ;; TODO: The names are intentionally not absolute in many cases.
         ;; Probably better to rename this function.
         (ct (project--file-completion-table all-files))
         (file
          (project--completing-read-strict new-prompt
                                           ct
                                           predicate
                                           hist mb-default
                                           (unless names-absolute
                                             default-directory))))
    (unless (file-name-absolute-p file)
      (setq file (expand-file-name file)))
    file))