(ffap-read-file-or-url-internal): Handle case the

DIR or STRING are nil.

diff --git a/lisp/ffap.el b/lisp/ffap.el
index 37ce66794575c492bc44321d7b169e26cbe286d9..22fef574a6eeb1e42ef680a443f1c7e080d869d0 100644 (file)
--- a/lisp/ffap.el
+++ b/lisp/ffap.el
@@ -1216,6 +1216,10 @@ which may actually result in an url rather than a filename."
      (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)))