summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorAlex Kost <alezost@gmail.com>2016-04-11 10:49:38 +0300
committerJose Antonio Ortega Ruiz <jao@gnu.org>2016-04-23 02:20:25 +0200
commitafbdc0d0ba30f7b2268a2ee2906cbb7938ec2230 (patch)
tree2f6c27b63b9e2bcf810a3386542b820fa46b3b55
parent29ed32892b05ad7886c49e5f4a22f07779ddc196 (diff)
downloadgeiser-guile-afbdc0d0ba30f7b2268a2ee2906cbb7938ec2230.tar.gz
geiser-guile-afbdc0d0ba30f7b2268a2ee2906cbb7938ec2230.tar.bz2
Define 'geiser-doc-mode' with 'define-derived-mode'
-rw-r--r--elisp/geiser-doc.el7
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))