[Emacs-diffs] Changes to emacs/lisp/ffap.el

[Miles Bader]

Index: emacs/lisp/ffap.el
diff -c emacs/lisp/ffap.el:1.35 emacs/lisp/ffap.el:1.36
*** emacs/lisp/ffap.el:1.35     Sat Feb 15 14:26:25 2003
--- emacs/lisp/ffap.el  Thu Mar  6 15:30:05 2003
***************
*** 1,4 ****
! ;;; ffap.el --- find file (or url) at point
  ;;
  ;; Copyright (C) 1995, 96, 97, 2000  Free Software Foundation, Inc.
  ;;
--- 1,4 ----
! ;; ffap.el --- find file (or url) at point
  ;;
  ;; Copyright (C) 1995, 96, 97, 2000  Free Software Foundation, Inc.
  ;;
***************
*** 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)))))