From: Juanma Barranquero <lekktu@gmail.com>
Date: Thu, 6 Mar 2003 20:30:05 +0000 (+0000)
Subject: (dired-at-point): Check whether the user can create a directory before asking
X-Git-Tag: ttn-vms-21-2-B4~10980
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=3fa86f26fe49998c027aeabedcbab2d778358938;p=emacs.git

(dired-at-point): Check whether the user can create a directory before asking
about creating it.
---

diff --git a/lisp/ffap.el b/lisp/ffap.el
index 2ebb21e6bcf..5bea298f4df 100644
--- a/lisp/ffap.el
+++ b/lisp/ffap.el
@@ -1,4 +1,4 @@
-;;; ffap.el --- find file (or url) at point
+;; ffap.el --- find file (or url) at point
 ;;
 ;; Copyright (C) 1995, 96, 97, 2000  Free Software Foundation, Inc.
 ;;
@@ -1658,7 +1658,8 @@ ffap most of the time."
       (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? ")
+     ((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)))))