From 833d2df2593dd391f3f88f722d90f6c64ac83ea5 Mon Sep 17 00:00:00 2001 From: Jose Antonio Ortega Ruiz Date: Sun, 23 Aug 2009 22:35:24 +0200 Subject: fixes for geiser-unload. --- elisp/geiser-mode.el | 4 ++++ 1 file changed, 4 insertions(+) (limited to 'elisp/geiser-mode.el') 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 -- cgit v1.2.3