diff --git a/misc/fuel/factor-mode.el b/misc/fuel/factor-mode.el index ecee2dc14b..0e089294b5 100644 --- a/misc/fuel/factor-mode.el +++ b/misc/fuel/factor-mode.el @@ -679,9 +679,10 @@ source/docs/tests file. When set to false, you'll be asked only once." (string= (match-string-no-properties 0) "\\_>" nil t)))) (defun factor-find-usings (&optional no-private) + "Lists all vocabs used by the vocab." (save-excursion (let ((usings)) (goto-char (point-max)) (while (re-search-backward factor-using-lines-regex nil t) - (dolist (u (split-string (match-string-no-properties 1) nil t)) + (dolist (u (split-string (match-string-no-properties 2) nil t)) (push u usings))) (when (and (not no-private) (factor-file-has-private)) (goto-char (point-max)) diff --git a/misc/fuel/fuel-help.el b/misc/fuel/fuel-help.el index daf429b703..5374a43526 100644 --- a/misc/fuel/fuel-help.el +++ b/misc/fuel/fuel-help.el @@ -129,8 +129,10 @@ (defun fuel-help--word-help (&optional see word display-only print-message) (let ((def (or word (fuel-help--read-word see)))) (when def - (let ((cmd `(:fuel* (,def ,(if see 'fuel-word-see 'fuel-word-help)) - ,(factor-current-vocab) t))) + (let ((cmd `(:fuel* (,def + ,(if see 'fuel-word-see 'fuel-word-help)) + ,(factor-current-vocab) + ,(factor-usings)))) (when print-message (message "Looking up '%s' ..." def)) (let* ((ret (fuel-eval--send/wait cmd))