diff options
| -rw-r--r-- | elisp/geiser-xref.el | 46 |
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) |