diff options
| author | Alex Kost <alezost@gmail.com> | 2016-04-11 10:49:38 +0300 |
|---|---|---|
| committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2016-04-23 02:20:25 +0200 |
| commit | afbdc0d0ba30f7b2268a2ee2906cbb7938ec2230 (patch) | |
| tree | 2f6c27b63b9e2bcf810a3386542b820fa46b3b55 /elisp | |
| parent | 29ed32892b05ad7886c49e5f4a22f07779ddc196 (diff) | |
| download | geiser-guile-afbdc0d0ba30f7b2268a2ee2906cbb7938ec2230.tar.gz geiser-guile-afbdc0d0ba30f7b2268a2ee2906cbb7938ec2230.tar.bz2 | |
Define 'geiser-doc-mode' with 'define-derived-mode'
Diffstat (limited to 'elisp')
| -rw-r--r-- | elisp/geiser-doc.el | 7 |
1 files changed, 1 insertions, 6 deletions
diff --git a/elisp/geiser-doc.el b/elisp/geiser-doc.el index 343534c..1e4d218 100644 --- a/elisp/geiser-doc.el +++ b/elisp/geiser-doc.el @@ -314,17 +314,12 @@ help (e.g. browse an HTML page) implementing this method.") -- ("Quit" nil View-quit)) -(defun geiser-doc-mode () +(define-derived-mode geiser-doc-mode nil "Geiser Doc" "Major mode for browsing scheme documentation. \\{geiser-doc-mode-map}" - (interactive) - (kill-all-local-variables) (buffer-disable-undo) (setq truncate-lines t) - (use-local-map geiser-doc-mode-map) (set-syntax-table scheme-mode-syntax-table) - (setq mode-name "Geiser Doc") - (setq major-mode 'geiser-doc-mode) (setq geiser-eval--get-module-function 'geiser-doc--module) (setq buffer-read-only t)) |