Re: read-directory-name

[Luc Teirlinck <teirllm@dms.auburn.edu>]

Is the behavior implemented by the following patch what was really
intended by the April 23 change?  One could, in addition to the patch
below, also change the `(concat dir initial)' into
`(expand-file-name initial dir)' which is probably more portable.

Note however that the _old_ (in fact _still present_, even though
maybe accidentally so) behavior, as documented in the Elisp manual
looks like it was implemented very intentionally.

===File ~/files.el-diff=====================================
*** files.el	06 May 2005 11:08:41 -0500	1.764
--- files.el	06 May 2005 20:47:00 -0500	
***************
*** 543,553 ****
      (setq dir default-directory))
    (unless default-dirname
      (setq default-dirname
! 	  (if initial (concat dir initial) default-directory)))
!   (read-file-name prompt dir (or default-dirname 
! 				 (if initial (expand-file-name initial dir)
! 				   dir))
! 		  mustmatch initial
  		  'file-directory-p))
  
  \f
--- 543,550 ----
      (setq dir default-directory))
    (unless default-dirname
      (setq default-dirname
! 	  (if initial (concat dir initial) dir)))
!   (read-file-name prompt dir default-dirname mustmatch initial
  		  'file-directory-p))
  
  \f
============================================================