# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 756617697 0
# Node ID edd5fb2614b12ecbc0556adf5c8774a2775dca33
# Parent  6a260dd9ee05eb2c86692df39f4776e375261672
Autoload dired-.*-file.

(dired-insert-subdir-validate): Call expand-file-name.

diff -r 6a260dd9ee05 -r edd5fb2614b1 lisp/dired-aux.el
--- a/lisp/dired-aux.el	Thu Dec 23 03:33:34 1993 +0000
+++ b/lisp/dired-aux.el	Thu Dec 23 03:34:57 1993 +0000
@@ -492,6 +492,7 @@
       (dired-log (concat "Failed to compress" from-file))
       from-file)))
 
+;;;###autoload
 (defun dired-compress-file (file)
   ;; Compress or uncompress FILE.
   ;; Return the name of the compressed or uncompressed file.
@@ -723,6 +724,7 @@
 	(set-buffer obuf)))
     success-list))
 
+;;;###autoload
 (defun dired-add-file (filename &optional marker-char)
   (dired-fun-in-all-buffers
    (file-name-directory filename)
@@ -816,6 +818,7 @@
 	(forward-line 1))
     (point)))
 
+;;;###autoload
 (defun dired-remove-file (file)
   (dired-fun-in-all-buffers
    (file-name-directory file) (function dired-remove-entry) file))
@@ -827,6 +830,7 @@
 	   (delete-region (progn (beginning-of-line) (point))
 			  (save-excursion (forward-line 1) (point)))))))
 
+;;;###autoload
 (defun dired-relist-file (file)
   (dired-fun-in-all-buffers (file-name-directory file)
 			    (function dired-relist-entry) file))
@@ -868,10 +872,12 @@
 	(rename-file to backup 0)	; confirm overwrite of old backup
 	(dired-relist-entry backup))))
 
+;;;###autoload
 (defun dired-copy-file (from to ok-flag)
   (dired-handle-overwrite to)
   (copy-file from to ok-flag dired-copy-preserve-time))
 
+;;;###autoload
 (defun dired-rename-file (from to ok-flag)
   (dired-handle-overwrite to)
   (rename-file from to ok-flag)		; error is caught in -create-files
@@ -1500,7 +1506,7 @@
 (defun dired-insert-subdir-validate (dirname &optional switches)
   ;; Check that it is valid to insert DIRNAME with SWITCHES.
   ;; Signal an error if invalid (e.g. user typed `i' on `..').
-  (or (dired-in-this-tree dirname default-directory)
+  (or (dired-in-this-tree dirname (expand-file-name default-directory))
       (error  "%s: not in this directory tree" dirname))
   (if switches
       (let (case-fold-search)