From 82893dceeef53643e96b73d58d4800273b05da97 Mon Sep 17 00:00:00 2001 From: timor Date: Mon, 6 May 2019 17:19:32 +0200 Subject: [PATCH] FUEL: don't jump to USING: section after updating --- misc/fuel/fuel-debug.el | 29 +++++++++++++++-------------- 1 file changed, 15 insertions(+), 14 deletions(-) diff --git a/misc/fuel/fuel-debug.el b/misc/fuel/fuel-debug.el index 7f9dc3ea41..0ee277ede8 100644 --- a/misc/fuel/fuel-debug.el +++ b/misc/fuel/fuel-debug.el @@ -308,20 +308,21 @@ the debugger." (defun fuel-debug--replace-usings (file uses) (pop-to-buffer (find-file-noselect file)) - (goto-char (point-min)) - (if (re-search-forward "^USING: " nil t) - (let ((begin (point)) - (end (or (and (re-search-forward ";\\( \\|$\\)") (point)) - (point)))) - (kill-region begin end)) - (re-search-forward "^IN: " nil t) - (beginning-of-line) - (open-line 2) - (insert "USING: ")) - (let ((start (point)) - (tokens (append uses '(";")))) - (insert (mapconcat 'substring-no-properties tokens " ")) - (fill-region start (point) nil))) + (save-excursion + (goto-char (point-min)) + (if (re-search-forward "^USING: " nil t) + (let ((begin (point)) + (end (or (and (re-search-forward ";\\( \\|$\\)") (point)) + (point)))) + (kill-region begin end)) + (re-search-forward "^IN: " nil t) + (beginning-of-line) + (open-line 2) + (insert "USING: ")) + (let ((start (point)) + (tokens (append uses '(";")))) + (insert (mapconcat 'substring-no-properties tokens " ")) + (fill-region start (point) nil)))) (defun fuel-debug-update-usings () (interactive) -- 2.34.1