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

about creating it.

1 files changed, 3 insertions, 2 deletions

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