Re: [jidanni@jidanni.org: ffap: if file at point doesn't exist, but its directory does]

[Juri Linkov <juri@jurta.org>]

Richard Stallman <rms@gnu.org> writes:
> Would someone like to work on this?  (rv has not responded in a month.)
>
> From: Dan Jacobson <jidanni@jidanni.org>
> Subject: ffap: if file at point doesn't exist, but its directory does
> To: bug-gnu-emacs@gnu.org
> Date: Sun, 16 Nov 2003 02:30:33 +0800
>
> Ffap gentlemen, assume your cursor is on
> "/usr/X11R6/lib/X11/xdm/Xreset" but the file doesn't exist, but the
> directory does.  Well, ffap should (optionally ask, and) take you to a
> dired of that directory... better than the current nothing.

Since nobody has implemented this useful feature yet, here is the patch:

2004-02-16  Juri Linkov  <juri@jurta.org>

	* ffap.el (ffap-file-at-point): Try parent directories.

Index: emacs/lisp/ffap.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/ffap.el,v
retrieving revision 1.42
diff -c -r1.42 ffap.el
*** emacs/lisp/ffap.el	25 Dec 2003 17:44:48 -0000	1.42
--- emacs/lisp/ffap.el	16 Feb 2004 21:44:46 -0000
***************
*** 1185,1190 ****
--- 1187,1200 ----
  			 remote-dir (substring name (match-end 1)))))
  		  (ffap-file-exists-string
  		   (ffap-replace-file-component remote-dir name))))))
+          ;; Try all parent directories by deleting the trailing directory
+          ;; name until existing directory is found or name stops changing
+          ((let ((dir name))
+             (while (and dir
+                         (not (ffap-file-exists-string dir))
+                         (not (equal dir (setq dir (file-name-directory
+                                                    (directory-file-name dir)))))))
+             (ffap-file-exists-string dir)))
  	 )
        (set-match-data data))))
  \f

-- 
http://www.jurta.org/emacs/