FUEL: improves the fuel-update-usings feature

Now it works even when the USING: list should be empty.
char-rename
Björn Lindqvist 2016-08-25 11:52:35 +02:00
parent dc3fa20bf6
commit c0b06c29b9
2 changed files with 7 additions and 5 deletions

View File

@ -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)

View File

@ -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 ()