diff options
| author | Alex Kost <alezost@gmail.com> | 2016-04-11 10:52:41 +0300 |
|---|---|---|
| committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2016-04-23 02:20:25 +0200 |
| commit | 0053f1b53ffeb94298ceb99b7127c86d4fd43dbe (patch) | |
| tree | be22cecb0eb2d0ca10ebccf7b925134152ede26b /elisp/geiser-debug.el | |
| parent | afbdc0d0ba30f7b2268a2ee2906cbb7938ec2230 (diff) | |
| download | geiser-guile-0053f1b53ffeb94298ceb99b7127c86d4fd43dbe.tar.gz geiser-guile-0053f1b53ffeb94298ceb99b7127c86d4fd43dbe.tar.bz2 | |
Define 'geiser-debug-mode' with 'define-derived-mode'
Diffstat (limited to 'elisp/geiser-debug.el')
| -rw-r--r-- | elisp/geiser-debug.el | 10 |
1 files changed, 3 insertions, 7 deletions
diff --git a/elisp/geiser-debug.el b/elisp/geiser-debug.el index dbeefba..00fd4d9 100644 --- a/elisp/geiser-debug.el +++ b/elisp/geiser-debug.el @@ -75,18 +75,14 @@ See also `geiser-repl-auto-display-images-p'." (let ((map (make-sparse-keymap))) (suppress-keymap map) (set-keymap-parent map button-buffer-map) - map)) + map) + "Keymap for `geiser-debug-mode'.") -(defun geiser-debug-mode () +(define-derived-mode geiser-debug-mode nil "Geiser DBG" "A major mode for displaying Scheme compilation and evaluation results. \\{geiser-debug-mode-map}" - (interactive) - (kill-all-local-variables) (buffer-disable-undo) - (use-local-map geiser-debug-mode-map) (set-syntax-table scheme-mode-syntax-table) - (setq mode-name "Geiser DBG") - (setq major-mode 'geiser-debug-mode) (setq next-error-function 'geiser-edit--open-next) (setq buffer-read-only t)) |