# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 965759421 0
# Node ID 34027013888a3e153a7ec6b5e5efcd73057c3e37
# Parent  23c301a64c8fd675bb8e5790e1c5249de6e65aeb
(ffap-read-file-or-url-internal): Handle case the
DIR or STRING are nil.

diff -r 23c301a64c8f -r 34027013888a lisp/ffap.el
--- a/lisp/ffap.el	Tue Aug 08 18:29:49 2000 +0000
+++ b/lisp/ffap.el	Tue Aug 08 18:30:21 2000 +0000
@@ -1216,6 +1216,10 @@
      (t t))))
 
 (defun ffap-read-file-or-url-internal (string dir action)
+  (unless dir
+    (setq dir default-directory))
+  (unless string
+    (setq string default-directory))
   (if (ffap-url-p string)
       (ffap-read-url-internal string dir action)
     (read-file-name-internal string dir action)))