From 0be9384a6812343b82a01c1af3a45b677a0a12be Mon Sep 17 00:00:00 2001 From: Jose Antonio Ortega Ruiz Date: Wed, 22 Nov 2017 04:01:45 +0100 Subject: Theoretically unnecessary save-excursion For some reason, one of our users is experiencing point jumps when calling `geiser-set-scheme'. A save-excursion is all that's needed, even though it *shouldn't* be needed in the first place. --- elisp/geiser-mode.el | 13 +++++++------ 1 file changed, 7 insertions(+), 6 deletions(-) (limited to 'elisp') diff --git a/elisp/geiser-mode.el b/elisp/geiser-mode.el index 229c3ea..9a28b02 100644 --- a/elisp/geiser-mode.el +++ b/elisp/geiser-mode.el @@ -238,12 +238,13 @@ With prefix, recursively macro-expand the resulting expression." (defun geiser-set-scheme () "Associates current buffer with a given Scheme implementation." (interactive) - (geiser-syntax--remove-kws) - (let ((impl (geiser-impl--read-impl))) - (geiser-impl--set-buffer-implementation impl) - (geiser-repl--set-up-repl impl) - (geiser-syntax--add-kws) - (geiser-syntax--fontify))) + (save-excursion + (geiser-syntax--remove-kws) + (let ((impl (geiser-impl--read-impl))) + (geiser-impl--set-buffer-implementation impl) + (geiser-repl--set-up-repl impl) + (geiser-syntax--add-kws) + (geiser-syntax--fontify)))) (defun geiser-mode-switch-to-repl (arg) "Switches to Geiser REPL. -- cgit v1.2.3