summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorAlex Kost <alezost@gmail.com>2016-04-11 19:26:17 +0300
committerJose Antonio Ortega Ruiz <jao@gnu.org>2016-04-20 19:39:07 +0200
commit3ecc57384eb7fe305a7aba05b738bde1da7a5e21 (patch)
treec1b2d8bede37ef47b5b2ca85f95d21d15a42e47b
parentf6e86d9526288dd05b6ffedca29a8d373a44eae5 (diff)
downloadgeiser-guile-3ecc57384eb7fe305a7aba05b738bde1da7a5e21.tar.gz
geiser-guile-3ecc57384eb7fe305a7aba05b738bde1da7a5e21.tar.bz2
Do not use 'geiser-xref--with-buffer' before it is defined
This is a fix similar to the one made in commit 8e75455dfbd46355d777c26366e7ccfcb59ace20.
-rw-r--r--elisp/geiser-xref.el46
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)