FUEL: corrected name of *fuel xref* buffer

diff --git a/misc/fuel/fuel-tests.el b/misc/fuel/fuel-tests.el
index 80fe17be370466df39113325b7d22ef81133223e..50af163d311960c5b1ef48d4f66dec0be03527f3 100644 (file)
--- a/misc/fuel/fuel-tests.el
+++ b/misc/fuel/fuel-tests.el
@@ -22,6 +22,7 @@
 (require 'ert)
 (require 'fuel-help)
 (require 'fuel-markup)
+(require 'fuel-xref)
 
 ;; fuel-markup
 (ert-deftest print-str ()
@@ -50,3 +51,6 @@
              (insert "Help page contents")
              (fuel-help--find-in))
            "foob")))
+
+(ert-deftest fuel-xref-name ()
+  (should (equal (buffer-name (fuel-xref--buffer)) "*fuel xref*")))

diff --git a/misc/fuel/fuel-xref.el b/misc/fuel/fuel-xref.el
index 53e2902f6aa067b9ddb6f6474ca496c1b71099ad..a4b5ac7108633155be473885d6b86760cf5b5d8a 100644 (file)
--- a/misc/fuel/fuel-xref.el
+++ b/misc/fuel/fuel-xref.el
@@ -90,7 +90,7 @@ cursor at the first ocurrence of the used word."
 
 (defun fuel-xref--buffer ()
   (or (get-buffer "*fuel xref*")
-      (with-current-buffer (get-buffer-create "*fuel xref")
+      (with-current-buffer (get-buffer-create "*fuel xref*")
         (fuel-xref-mode)
         (fuel-popup-mode)
         (current-buffer))))