diff --git a/misc/fuel/fuel-debug-uses.el b/misc/fuel/fuel-debug-uses.el index 36076a2637..119d17ad0e 100644 --- a/misc/fuel/fuel-debug-uses.el +++ b/misc/fuel/fuel-debug-uses.el @@ -121,8 +121,9 @@ (defun fuel-debug--uses-cont (retort) (let ((uses (fuel-debug--uses retort)) (err (fuel-eval--retort-error retort))) - (if uses (fuel-debug--uses-display uses) - (fuel-debug--uses-display-err retort)))) + (if err + (fuel-debug--uses-display-err retort) + (fuel-debug--uses-display uses)))) (defun fuel-debug--uses-display (uses) (let* ((inhibit-read-only t) @@ -164,7 +165,7 @@ (let ((inhibit-read-only t) (file fuel-debug--uses-file) (uses fuel-debug--uses)) - (when (and uses file) + (when file (insert "\nDone!") (fuel-debug--uses-clean) (fuel-popup--quit) diff --git a/misc/fuel/fuel-debug.el b/misc/fuel/fuel-debug.el index 25e3cf6e4a..7f9dc3ea41 100644 --- a/misc/fuel/fuel-debug.el +++ b/misc/fuel/fuel-debug.el @@ -318,8 +318,9 @@ the debugger." (beginning-of-line) (open-line 2) (insert "USING: ")) - (let ((start (point))) - (insert (mapconcat 'substring-no-properties uses " ") " ;") + (let ((start (point)) + (tokens (append uses '(";")))) + (insert (mapconcat 'substring-no-properties tokens " ")) (fill-region start (point) nil))) (defun fuel-debug-update-usings ()