summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--elisp/geiser-connection.el2
-rw-r--r--elisp/geiser-mode.el4
2 files changed, 3 insertions, 3 deletions
diff --git a/elisp/geiser-connection.el b/elisp/geiser-connection.el
index 5305cd8..f146563 100644
--- a/elisp/geiser-connection.el
+++ b/elisp/geiser-connection.el
@@ -112,7 +112,7 @@ By default, Geiser uses the prompt regexp.")
(cdr (assoc :reply c)))
(defsubst geiser-con--connection-completed (c r)
- (geiser-con--request-deactivate req)
+ (geiser-con--request-deactivate r)
(puthash (geiser-con--request-id r) r (cdr (assoc :completed c))))
(defun geiser-con--connection-clean-current-request (c)
diff --git a/elisp/geiser-mode.el b/elisp/geiser-mode.el
index 1645ba2..719176d 100644
--- a/elisp/geiser-mode.el
+++ b/elisp/geiser-mode.el
@@ -184,7 +184,7 @@ positive values and backward for negative."
(let ((pared (and (boundp 'paredit-mode) paredit-mode))
(fwd (> n 0))
(steps (abs n)))
- (when pared (paredit-mode -1))
+ (when (and pared (fboundp 'paredit-mode)) (paredit-mode -1))
(unwind-protect
(save-excursion
(unless (looking-at-p "\\s(") (backward-up-list))
@@ -203,7 +203,7 @@ positive values and backward for negative."
(progn (when fwd (forward-sexp 2))
(backward-sexp))
(error (setq steps 0))))))
- (when pared (paredit-mode 1)))))
+ (when (and pared (fboundp 'paredit-mode)) (paredit-mode 1)))))
;;; Geiser mode: