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

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
misc/fuel/fuel-debug-uses.el
View File

@ -121,8 +121,9 @@
(defun fuel-debug--uses-cont (retort) (defun fuel-debug--uses-cont (retort)
(let ((uses (fuel-debug--uses retort)) (let ((uses (fuel-debug--uses retort))
(err (fuel-eval--retort-error retort))) (err (fuel-eval--retort-error retort)))
(if uses (fuel-debug--uses-display uses) (if err
(fuel-debug--uses-display-err retort)))) (fuel-debug--uses-display-err retort)
(fuel-debug--uses-display uses))))
(defun fuel-debug--uses-display (uses) (defun fuel-debug--uses-display (uses)
(let* ((inhibit-read-only t) (let* ((inhibit-read-only t)
@ -164,7 +165,7 @@
(let ((inhibit-read-only t) (let ((inhibit-read-only t)
(file fuel-debug--uses-file) (file fuel-debug--uses-file)
(uses fuel-debug--uses)) (uses fuel-debug--uses))
(when (and uses file) (when file
(insert "\nDone!") (insert "\nDone!")
(fuel-debug--uses-clean) (fuel-debug--uses-clean)
(fuel-popup--quit) (fuel-popup--quit)

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

@ -318,8 +318,9 @@ the debugger."
(beginning-of-line) (beginning-of-line)
(open-line 2) (open-line 2)
(insert "USING: ")) (insert "USING: "))
(let ((start (point))) (let ((start (point))
(insert (mapconcat 'substring-no-properties uses " ") " ;") (tokens (append uses '(";"))))
(insert (mapconcat 'substring-no-properties tokens " "))
(fill-region start (point) nil))) (fill-region start (point) nil)))
(defun fuel-debug-update-usings () (defun fuel-debug-update-usings ()