You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
 
 
 
spacefrogg-overlay/factor-lang/fuel-dont-jump-to-using.patch

40 lines
1.4 KiB

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)