Re: read-directory-name

[Luc Teirlinck]

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))
  
  
--- 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))
  
  
============================================================