From c0b06c29b98ee7f048548133055a4f3ec52b4f5d Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Bj=C3=B6rn=20Lindqvist?= Date: Thu, 25 Aug 2016 11:52:35 +0200 Subject: [PATCH] FUEL: improves the fuel-update-usings feature Now it works even when the USING: list should be empty. --- misc/fuel/fuel-debug-uses.el | 7 ++++--- misc/fuel/fuel-debug.el | 5 +++-- 2 files changed, 7 insertions(+), 5 deletions(-) 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 ()