steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

FUEL: don't jump to USING: section after updating

clean-macosx-x86-32
timor 2019-05-06 17:19:32 +02:00 committed by John Benediktsson
parent c14e571429
commit 82893dceee
1 changed files with 15 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
misc/fuel/fuel-debug.el
View File

@ -308,20 +308,21 @@ the debugger."
(defun fuel-debug--replace-usings (file uses) (defun fuel-debug--replace-usings (file uses)
(pop-to-buffer (find-file-noselect file)) (pop-to-buffer (find-file-noselect file))
(goto-char (point-min)) (save-excursion
(if (re-search-forward "^USING: " nil t) (goto-char (point-min))
(let ((begin (point)) (if (re-search-forward "^USING: " nil t)
(end (or (and (re-search-forward ";\\( \\|$\\)") (point)) (let ((begin (point))
(point)))) (end (or (and (re-search-forward ";\\( \\|$\\)") (point))
(kill-region begin end)) (point))))
(re-search-forward "^IN: " nil t) (kill-region begin end))
(beginning-of-line) (re-search-forward "^IN: " nil t)
(open-line 2) (beginning-of-line)
(insert "USING: ")) (open-line 2)
(let ((start (point)) (insert "USING: "))
(tokens (append uses '(";")))) (let ((start (point))
(insert (mapconcat 'substring-no-properties tokens " ")) (tokens (append uses '(";"))))
(fill-region start (point) nil))) (insert (mapconcat 'substring-no-properties tokens " "))
(fill-region start (point) nil))))
(defun fuel-debug-update-usings () (defun fuel-debug-update-usings ()
(interactive) (interactive)