summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--elisp/geiser-compile.el13
-rw-r--r--elisp/geiser-repl.el9
2 files changed, 10 insertions, 12 deletions
diff --git a/elisp/geiser-compile.el b/elisp/geiser-compile.el
index b1a07ff..9ea9fca 100644
--- a/elisp/geiser-compile.el
+++ b/elisp/geiser-compile.el
@@ -1,6 +1,6 @@
;;; geiser-compile.el -- compile/load scheme files -*- lexical-binding: t; -*-
-;; Copyright (C) 2009, 2010, 2011, 2012, 2013, 2016, 2018, 2021 Jose Antonio Ortega Ruiz
+;; Copyright (C) 2009-2013, 2016, 2018, 2021-2022 Jose Antonio Ortega Ruiz
;; This program is free software; you can redistribute it and/or
;; modify it under the terms of the Modified BSD License. You should
@@ -81,15 +81,4 @@ With prefix, restart REPL before loading the file."
(geiser-compile--ensure-repl restart)
(geiser-load-file (buffer-file-name (current-buffer))))
-;;;###autoload
-(defun geiser-add-to-load-path (path)
- "Add a new directory to running Scheme's load path.
-When called interactively, this function will ask for the path to
-add, defaulting to the current buffer's directory."
- (interactive "DDirectory to add: ")
- (let* ((c `(:eval (:ge add-to-load-path ,(expand-file-name path))))
- (r (geiser-eval--send/result c)))
- (message "%s%s added to load path" path (if r "" " couldn't be"))))
-
-
(provide 'geiser-compile)
diff --git a/elisp/geiser-repl.el b/elisp/geiser-repl.el
index 26f4168..28a1584 100644
--- a/elisp/geiser-repl.el
+++ b/elisp/geiser-repl.el
@@ -1137,6 +1137,15 @@ With a prefix argument, force exit by killing the scheme process."
(when (re-search-backward comint-prompt-regexp nil 'go n)
(goto-char (match-end 0)))))
+(defun geiser-add-to-load-path (path)
+ "Add a new directory to running Scheme's load path.
+When called interactively, this function will ask for the path to
+add, defaulting to the current buffer's directory."
+ (interactive "DDirectory to add: ")
+ (let* ((c `(:eval (:ge add-to-load-path ,(expand-file-name path))))
+ (r (geiser-eval--send/result c)))
+ (message "%s%s added to load path" path (if r "" " couldn't be"))))
+
;;; Unload: