 (defun fuel-debug--highlight-names (names ref face)
   (dolist (n names)
     (when (not (member n ref))
-      (put-text-property 0 (length n) 'face face n))))
+      (put-text-property 0 (length n) 'font-lock-face face n))))
 
 (defun fuel-debug--uses-new-uses (file uses)
   (pop-to-buffer (find-file-noselect file))

      (fuel-debug--uses-new-uses fuel-debug--uses-file fuel-debug--uses)
      (message "USING: updated!")
      (with-current-buffer (fuel-debug--uses-buffer)
        (insert "\n Done!")
        (fuel-debug--uses-clean)
        (fuel-popup--quit)))))

(defun fuel-debug--uses-restart (n)
  (when (and (> n 0) (<= n (length fuel-debug--uses-restarts)))

  (buffer-disable-undo)
  (setq major-mode 'fuel-debug-uses-mode)
  (setq mode-name "Fuel Uses:")
  (set (make-local-variable 'font-lock-defaults)
       '(fuel-debug--uses-font-lock-keywords t nil nil nil))
  (use-local-map fuel-debug-uses-mode-map))

