1 |
;;; ffap.el --- find file (or url) at point |
;; ffap.el --- find file (or url) at point |
2 |
;; |
;; |
3 |
;; Copyright (C) 1995, 96, 97, 2000 Free Software Foundation, Inc. |
;; Copyright (C) 1995, 96, 97, 2000 Free Software Foundation, Inc. |
4 |
;; |
;; |
1658 |
(if (file-directory-p filename) |
(if (file-directory-p filename) |
1659 |
(dired (expand-file-name filename)) |
(dired (expand-file-name filename)) |
1660 |
(dired (concat (expand-file-name filename) "*")))) |
(dired (concat (expand-file-name filename) "*")))) |
1661 |
((y-or-n-p "Directory does not exist, create it? ") |
((and (file-writable-p (file-name-directory filename)) |
1662 |
|
(y-or-n-p "Directory does not exist, create it? ")) |
1663 |
(make-directory filename) |
(make-directory filename) |
1664 |
(dired filename)) |
(dired filename)) |
1665 |
((error "No such file or directory `%s'" filename))))) |
((error "No such file or directory `%s'" filename))))) |