Re: ffap: Directory does not exist, create it? Yeah sure, without permission

[Kevin Rodgers]

Dan Jacobson wrote:

> Using ffap, many a mistype causes the often seen
>   Directory does not exist, create it? (y or n)
> Well, as 99% of the time, the answer is n, at least it could check
> if the user could indeed create a dir there before asking, as the
> answer would be
>   Creating directory: permission denied, /etc/nurdly/
> anyway.


*** emacs-20.7/lisp/ffap.el.orig        Sat Feb 13 07:42:35 1999
--- emacs-20.7/lisp/ffap.el     Tue Mar  4 11:54:20 2003
***************
*** 1658,1664 ****
        (if (file-directory-p filename)
          (dired (expand-file-name filename))
        (dired (concat (expand-file-name filename) "*"))))
!      ((y-or-n-p "Directory does not exist, create it? ")
        (make-directory filename)
        (dired filename))
       ((error "No such file or directory `%s'" filename)))))
--- 1658,1665 ----
        (if (file-directory-p filename)
          (dired (expand-file-name filename))
        (dired (concat (expand-file-name filename) "*"))))
!      ((and (file-writable-p (file-name-directory filename))
!          (y-or-n-p "Directory does not exist, create it? "))
        (make-directory filename)
        (dired filename))
       ((error "No such file or directory `%s'" filename)))))

> Better would be just to assist the user in typing the names of
> existing files, i.e. don't wipe out what he has typed so far...

???

--
<a href="mailto:&lt;kevin.rodgers&#64;ihs.com&gt;";>Kevin Rodgers</a>