summaryrefslogtreecommitdiff
path: root/elisp
diff options
context:
space:
mode:
authorAlex Kost <alezost@gmail.com>2016-04-11 10:54:48 +0300
committerJose Antonio Ortega Ruiz <jao@gnu.org>2016-04-23 02:20:25 +0200
commitea1c6ece98a88ef66b4bdbf286cc3df603bfa7e7 (patch)
tree6b2fc8550515b2345171c284f77702eaf461eb16 /elisp
parent44aa856108d60da1129dbc390bb1703ed09d2ece (diff)
downloadgeiser-ea1c6ece98a88ef66b4bdbf286cc3df603bfa7e7.tar.gz
geiser-ea1c6ece98a88ef66b4bdbf286cc3df603bfa7e7.tar.bz2
Define 'geiser-xref-mode' with 'define-derived-mode'
Diffstat (limited to 'elisp')
-rw-r--r--elisp/geiser-xref.el10
1 files changed, 3 insertions, 7 deletions
diff --git a/elisp/geiser-xref.el b/elisp/geiser-xref.el
index a64795c..4bb22d8 100644
--- a/elisp/geiser-xref.el
+++ b/elisp/geiser-xref.el
@@ -46,18 +46,14 @@
(let ((map (make-sparse-keymap)))
(suppress-keymap map)
(set-keymap-parent map button-buffer-map)
- map))
+ map)
+ "Keymap for `geiser-xref-mode'.")
-(defun geiser-xref-mode ()
+(define-derived-mode geiser-xref-mode nil "Geiser Xref"
"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))