Do not use 'geiser-xref--with-buffer' before it is defined

This is a fix similar to the one made in commit
8e75455dfbd46355d777c26366e7ccfcb59ace20.

1 files changed, 23 insertions, 23 deletions

diff --git a/elisp/geiser-xref.el b/elisp/geiser-xref.el
index 0224560..a64795c 100644
--- a/elisp/geiser-xref.el
+++ b/elisp/geiser-xref.el
@@ -38,6 +38,29 @@
   'bold geiser-xref "headers in cross-reference buffers")
 
 
+;;; Buffer and mode:
+
+(geiser-popup--define xref "*Geiser xref*" geiser-xref-mode)
+
+(defvar geiser-xref-mode-map
+  (let ((map (make-sparse-keymap)))
+    (suppress-keymap map)
+    (set-keymap-parent map button-buffer-map)
+    map))
+
+(defun geiser-xref-mode ()
+  "Major mode for displaying cross-references.
+\\{geiser-xref-mode-map}"
+  (interactive)
+  (kill-all-local-variables)
+  (buffer-disable-undo)
+  (use-local-map geiser-xref-mode-map)
+  (set-syntax-table scheme-mode-syntax-table)
+  (setq mode-name "Geiser Xref")
+  (setq major-mode 'geiser-xref-mode)
+  (setq buffer-read-only t))
+
+
 ;;; Ref button:
 
 (define-button-type 'geiser-xref--button
@@ -122,29 +145,6 @@
                                   res))))
 
 
-;;; Buffer and mode:
-
-(geiser-popup--define xref "*Geiser xref*" geiser-xref-mode)
-
-(defvar geiser-xref-mode-map
-  (let ((map (make-sparse-keymap)))
-    (suppress-keymap map)
-    (set-keymap-parent map button-buffer-map)
-    map))
-
-(defun geiser-xref-mode ()
-  "Major mode for displaying cross-references.
-\\{geiser-xref-mode-map}"
-  (interactive)
-  (kill-all-local-variables)
-  (buffer-disable-undo)
-  (use-local-map geiser-xref-mode-map)
-  (set-syntax-table scheme-mode-syntax-table)
-  (setq mode-name "Geiser Xref")
-  (setq major-mode 'geiser-xref-mode)
-  (setq buffer-read-only t))
-
-
 ;;; Commands:
 
 (defun geiser-xref-generic-methods (&optional arg)