FUEL: Small nits.

diff --git a/misc/fuel/fuel-completion.el b/misc/fuel/fuel-completion.el
index 165a9d9b66bbe295704c1d4fb3a4009877efd9a3..c21d25901f9e742a69adb5d98c973e7bf4d43213 100644 (file)
--- a/misc/fuel/fuel-completion.el
+++ b/misc/fuel/fuel-completion.el
@@ -188,13 +188,15 @@ terminates a current completion."
                      history
                      (or default (fuel-syntax-symbol-at-point)))))
 
+(defvar fuel-completion--vocab-history nil)
+
 (defun fuel-completion--read-vocab (refresh)
-  (let* ((minibuffer-local-completion-map fuel-completion--minibuffer-map)
-         (vocabs (fuel-completion--vocabs refresh))
-         (prompt "Vocabulary name: "))
+  (let ((minibuffer-local-completion-map fuel-completion--minibuffer-map)
+        (vocabs (fuel-completion--vocabs refresh))
+        (prompt "Vocabulary name: "))
     (if vocabs
-        (completing-read prompt vocabs nil nil nil fuel-edit--vocab-history)
-      (read-string prompt nil fuel-edit--vocab-history))))
+        (completing-read prompt vocabs nil nil nil fuel-completion--vocab-history)
+      (read-string prompt nil fuel-completion--vocab-history))))
 
 (defun fuel-completion--complete-symbol ()
   "Complete the symbol at point.

diff --git a/misc/fuel/fuel-edit.el b/misc/fuel/fuel-edit.el
index 5860fb998a10e9697cf217d4d608357c2d1d2bec..941f57140ec44af46350defd2c31196fa24d3e02 100644 (file)
--- a/misc/fuel/fuel-edit.el
+++ b/misc/fuel/fuel-edit.el
@@ -65,7 +65,6 @@
 ;;; Editing commands:
 
 (defvar fuel-edit--word-history nil)
-(defvar fuel-edit--vocab-history nil)
 (defvar fuel-edit--previous-location nil)
 
 (defun fuel-edit-vocabulary (&optional refresh vocab)