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

[Kevin Rodgers <kevin.rodgers@ihs.com>]

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>