diff options
| author | Alex Kost <alezost@gmail.com> | 2016-04-11 10:54:48 +0300 |
|---|---|---|
| committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2016-04-23 02:20:25 +0200 |
| commit | ea1c6ece98a88ef66b4bdbf286cc3df603bfa7e7 (patch) | |
| tree | 6b2fc8550515b2345171c284f77702eaf461eb16 | |
| parent | 44aa856108d60da1129dbc390bb1703ed09d2ece (diff) | |
| download | geiser-ea1c6ece98a88ef66b4bdbf286cc3df603bfa7e7.tar.gz geiser-ea1c6ece98a88ef66b4bdbf286cc3df603bfa7e7.tar.bz2 | |
Define 'geiser-xref-mode' with 'define-derived-mode'
| -rw-r--r-- | elisp/geiser-xref.el | 10 |
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)) |