diff options
| author | Gerd Moellmann <gerd@gnu.org> | 2000-08-08 18:30:21 +0000 |
|---|---|---|
| committer | Gerd Moellmann <gerd@gnu.org> | 2000-08-08 18:30:21 +0000 |
| commit | d4021fd9f9d64d7dd9880178065678cee779e4ec (patch) | |
| tree | 6dea3fe1e6845752f3c87a5e51a7adafca8fbf73 /lisp/ffap.el | |
| parent | dd31e4e8c32c861d61b12c74488b39ef54a9f4c0 (diff) | |
(ffap-read-file-or-url-internal): Handle case the
DIR or STRING are nil.
Diffstat (limited to 'lisp/ffap.el')
| -rw-r--r-- | lisp/ffap.el | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/lisp/ffap.el b/lisp/ffap.el index 37ce6679457..22fef574a6e 100644 --- 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))) |