diff options
| author | Vijay Marupudi <vijay@vijaymarupudi.com> | 2022-01-13 10:26:04 -0500 |
|---|---|---|
| committer | Vijay Marupudi <vijay@vijaymarupudi.com> | 2022-01-13 10:26:04 -0500 |
| commit | ef210593a469a0e18e834bc8947eb8120fc2f7f1 (patch) | |
| tree | bb2ee9c6479fb516b3eb1e0a067bfab8853d7e02 | |
| parent | 60e1b0e40cdf87586f9be2bef195cd24d36a2a77 (diff) | |
| download | geiser-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.
| -rw-r--r-- | geiser-guile.el | 3 |
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)) |