Function: PC-read-file-name-internal

PC-read-file-name-internal is a byte-compiled function defined in complete.el.gz.

Signature

(PC-read-file-name-internal STRING PRED ACTION)

Documentation

Extend read-file-name-internal to handle include files.

This is only used by

Source Code

;; Defined in /usr/src/emacs/lisp/obsolete/complete.el.gz
(defun PC-read-file-name-internal (string pred action)
  "Extend `read-file-name-internal' to handle include files.
This is only used by "
  (if (string-match "<\\([^\"<>]*\\)>?\\'" string)
      (let* ((name (match-string 1 string))
	     (str2 (substring string (match-beginning 0)))
	     (completion-table
	      (mapcar (lambda (x)
                        (format (if (string-match "/\\'" x) "<%s" "<%s>") x))
		      (PC-include-file-all-completions
		       name (PC-include-file-path)))))
        (cond
         ((not completion-table) nil)
         ((eq action 'lambda) (test-completion str2 completion-table nil))
         ((eq action nil) (PC-try-completion str2 completion-table nil))
         ((eq action t) (all-completions str2 completion-table nil))))
    (read-file-name-internal string pred action)))