FUEL: improves the fuel-update-usings feature
Now it works even when the USING: list should be empty.char-rename
parent
dc3fa20bf6
commit
c0b06c29b9
|
@ -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)
|
||||
|
|
|
@ -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 ()
|
||||
|
|
Loading…
Reference in New Issue