summaryrefslogtreecommitdiff
path: root/geiser-guile.el
diff options
context:
space:
mode:
authorVijay Marupudi <vijay@vijaymarupudi.com>2022-01-13 10:26:04 -0500
committerVijay Marupudi <vijay@vijaymarupudi.com>2022-01-13 10:26:04 -0500
commitef210593a469a0e18e834bc8947eb8120fc2f7f1 (patch)
treebb2ee9c6479fb516b3eb1e0a067bfab8853d7e02 /geiser-guile.el
parent60e1b0e40cdf87586f9be2bef195cd24d36a2a77 (diff)
downloadgeiser-guile-ef210593a469a0e18e834bc8947eb8120fc2f7f1.tar.gz
geiser-guile-ef210593a469a0e18e834bc8947eb8120fc2f7f1.tar.bz2
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.
Diffstat (limited to 'geiser-guile.el')
-rw-r--r--geiser-guile.el3
1 files changed, 2 insertions, 1 deletions
diff --git a/geiser-guile.el b/geiser-guile.el
index a47898f..be7eac2 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))