From 3ecc57384eb7fe305a7aba05b738bde1da7a5e21 Mon Sep 17 00:00:00 2001 From: Alex Kost Date: Mon, 11 Apr 2016 19:26:17 +0300 Subject: Do not use 'geiser-xref--with-buffer' before it is defined This is a fix similar to the one made in commit 8e75455dfbd46355d777c26366e7ccfcb59ace20. --- elisp/geiser-xref.el | 46 +++++++++++++++++++++++----------------------- 1 file 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 @@ -37,6 +37,29 @@ (geiser-custom--defface xref-header '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: @@ -121,29 +144,6 @@ name) 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: -- cgit v1.2.3