summaryrefslogtreecommitdiff
path: root/elisp/geiser-mode.el
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2009-08-23 22:35:24 +0200
committerJose Antonio Ortega Ruiz <jao@gnu.org>2009-08-23 22:35:24 +0200
commit2120142f34e99935354e3ec74c4eed400a63b5be (patch)
treea996eae0eec3e6d50d2b189367158b9156e2a47f /elisp/geiser-mode.el
parent533102a1bfe4891ab6adc82ac0492ef2db285b27 (diff)
downloadgeiser-2120142f34e99935354e3ec74c4eed400a63b5be.tar.gz
geiser-2120142f34e99935354e3ec74c4eed400a63b5be.tar.bz2
fixes for geiser-unload.
Diffstat (limited to 'elisp/geiser-mode.el')
-rw-r--r--elisp/geiser-mode.el4
1 files changed, 4 insertions, 0 deletions
diff --git a/elisp/geiser-mode.el b/elisp/geiser-mode.el
index e19cb68..cc5a00f 100644
--- a/elisp/geiser-mode.el
+++ b/elisp/geiser-mode.el
@@ -261,6 +261,10 @@ interacting with the Geiser REPL is at your disposal.
(geiser-mode 1)
(when (cdr b) (geiser-impl--set-buffer-implementation (cdr b))))))
+(defun geiser-mode-unload-function ()
+ (dolist (b (geiser-mode--buffers))
+ (with-current-buffer (car b) (geiser-mode nil))))
+
(provide 'geiser-mode)
;;; geiser-mode.el ends here