[nongnu] elpa/geiser-guile ef210593a4 1/2: Check whether Tramp is loaded.

[ELPA Syncer]

branch: elpa/geiser-guile
commit ef210593a469a0e18e834bc8947eb8120fc2f7f1
Author: Vijay Marupudi <vijay@vijaymarupudi.com>
Commit: Vijay Marupudi <vijay@vijaymarupudi.com>

    Check whether Tramp is loaded.
    
    It appears that the master branch of emacs does not load tramp by
    default in some instances. That makes the `run-geiser` function fail,
    as `tramp-tramp-file-p` is not defined. This patch makes it check
    whether the tramp function was loaded before using it.
---
 geiser-guile.el | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/geiser-guile.el b/geiser-guile.el
index a47898f02f..be7eac2ed1 100644
--- a/geiser-guile.el
+++ b/geiser-guile.el
@@ -174,7 +174,8 @@ this location for further cleanup.")
 If using a remote Tramp buffer, this function will copy the modules to a
 temporary location in the remote server and the return it.
 Else, will just return `geiser-guile-scheme-dir'."
-  (cond ((not (tramp-tramp-file-p default-directory)) geiser-guile-scheme-dir)
+  (cond ((not (and (fboundp 'tramp-tramp-file-p)
+                   (tramp-tramp-file-p default-directory))) 
geiser-guile-scheme-dir)
         (geiser-guile-scheme-local-dir) ;; remote files are already there
         (t
          (let* ((temporary-file-directory (temporary-file-directory))