Function: tar-read-file-name

tar-read-file-name is a byte-compiled function defined in tar-mode.el.gz.

Signature

(tar-read-file-name &optional PROMPT)

Documentation

Read a file name with this line's entry as the default.

Source Code

;; Defined in /usr/src/emacs/lisp/tar-mode.el.gz
(defun tar-read-file-name (&optional prompt)
  "Read a file name with this line's entry as the default."
  (or prompt (setq prompt "Copy to: "))
  (let* ((default-file (expand-file-name
			(tar-header-name (tar-current-descriptor))))
	 (target (expand-file-name
		  (read-file-name prompt
				  (file-name-directory default-file)
				  default-file nil))))
    (if (or (string= "" (file-name-nondirectory target))
	    (file-directory-p target))
	(setq target (concat (if (string-match "/$" target)
				 (substring target 0 (1- (match-end 0)))
				 target)
			     "/"
			     (file-name-nondirectory default-file))))
    target))