/[emacs]/emacs/lisp/ffap.el
ViewVC logotype

Diff of /emacs/lisp/ffap.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.35 by rms, Sat Feb 15 19:26:25 2003 UTC revision 1.36 by lektu, Thu Mar 6 20:30:05 2003 UTC
# Line 1  Line 1 
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  ;;  ;;
# Line 1658  ffap most of the time." Line 1658  ffap most of the time."
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)))))

Legend:
Removed from v.1.35  
changed lines
  Added in v.1.36

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26