comparison lisp/dired-aux.el @ 11158:b9376f3450bb

(dired-add-entry): If ange-ftp inserted the file's absolute name, fix that.

11157:620fd38579d8

  ;; Hidden subdirs are exposed if a file is added there.
  (setq filename (directory-file-name filename))
  ;; Entry is always for files, even if they happen to also be directories
  (let ((opoint (point))
	(cur-dir (dired-current-directory))
	(directory (file-name-directory filename))
	reason)
    (setq filename (file-name-nondirectory filename)
	  reason
	  (catch 'not-found

	      (dired-add-entry-do-indentation marker-char)
	      ;; don't expand `.'.  Show just the file name within directory.
	      (let ((default-directory directory))
		(insert-directory filename
				  (concat dired-actual-switches "d")))
	      (dired-insert-set-properties opoint (point))
	      (forward-line -1)
	      (if dired-after-readin-hook;; the subdir-alist is not affected...
		  (save-excursion;; ...so we can run it right now:
		    (save-restriction

11158:b9376f3450bb

  ;; Hidden subdirs are exposed if a file is added there.
  (setq filename (directory-file-name filename))
  ;; Entry is always for files, even if they happen to also be directories
  (let ((opoint (point))
	(cur-dir (dired-current-directory))
	(orig-file-name filename)
	(directory (file-name-directory filename))
	reason)
    (setq filename (file-name-nondirectory filename)
	  reason
	  (catch 'not-found

	      (dired-add-entry-do-indentation marker-char)
	      ;; don't expand `.'.  Show just the file name within directory.
	      (let ((default-directory directory))
		(insert-directory filename
				  (concat dired-actual-switches "d")))
	      ;; Compensate for a bug in ange-ftp.
	      ;; It inserts the file's absolute name, rather than
	      ;; the relative one.  That may be hard to fix since it
	      ;; is probably controlled by something in ftp.
	      (goto-char opoint)	
	      (let ((inserted-name (dired-get-filename 'no-dir)))
		(if (file-name-directory inserted-name)
		    (progn
		      (end-of-line)
		      (delete-char (- (length inserted-name)))
		      (insert filename)
		      (forward-char 1))
		  (forward-line 1)))
	      ;; Give each line a text property recording info about it.
	      (dired-insert-set-properties opoint (point))
	      (forward-line -1)
	      (if dired-after-readin-hook;; the subdir-alist is not affected...
		  (save-excursion;; ...so we can run it right now:
		    (save-restriction