summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2010-03-07 21:28:28 +0100
committerJose Antonio Ortega Ruiz <jao@gnu.org>2010-03-07 21:28:28 +0100
commit9f5d185d17c1e7258b9dc3df5fce46de7945ff12 (patch)
tree847113f96814e8f5359f4ba607f475e88d1941b9
parent1e87980a965528177fef3cf97298f44ef02cbfc0 (diff)
downloadgeiser-guile-9f5d185d17c1e7258b9dc3df5fce46de7945ff12.tar.gz
geiser-guile-9f5d185d17c1e7258b9dc3df5fce46de7945ff12.tar.bz2
Whitespace.
-rw-r--r--elisp/geiser-company.el11
-rw-r--r--elisp/geiser-mode.el3
2 files changed, 9 insertions, 5 deletions
diff --git a/elisp/geiser-company.el b/elisp/geiser-company.el
index 55a3097..8bb3c16 100644
--- a/elisp/geiser-company.el
+++ b/elisp/geiser-company.el
@@ -1,6 +1,6 @@
;; geiser-company.el -- integration with company-mode
-;; Copyright (C) 2009 Jose Antonio Ortega Ruiz
+;; Copyright (C) 2009, 2010 Jose Antonio Ortega Ruiz
;; This program is free software; you can redistribute it and/or
;; modify it under the terms of the Modified BSD License. You should
@@ -96,9 +96,12 @@
(geiser-company--make-backend company-geiser-ids nil)
(geiser-company--make-backend company-geiser-modules t)
(add-to-list 'company-backends geiser-company--backend)
- (add-hook 'company-completion-finished-hook 'geiser-company--restore-autodoc)
- (add-hook 'company-completion-cancelled-hook 'geiser-company--restore-autodoc)
- (add-hook 'company-completion-started-hook 'geiser-company--inhibit-autodoc)))
+ (add-hook 'company-completion-finished-hook
+ 'geiser-company--restore-autodoc)
+ (add-hook 'company-completion-cancelled-hook
+ 'geiser-company--restore-autodoc)
+ (add-hook 'company-completion-started-hook
+ 'geiser-company--inhibit-autodoc)))
;;; Reload support:
diff --git a/elisp/geiser-mode.el b/elisp/geiser-mode.el
index 3e0f522..86baabc 100644
--- a/elisp/geiser-mode.el
+++ b/elisp/geiser-mode.el
@@ -205,7 +205,8 @@ interacting with the Geiser REPL is at your disposal.
(defun geiser-mode--triple-chord (p k c)
(define-key geiser-mode-map (vector '(control ?c) `(control ,p) k) c)
- (define-key geiser-mode-map (vector '(control ?c) `(control ,p) `(control ,k)) c))
+ (define-key geiser-mode-map (vector '(control ?c) `(control ,p)
+ `(control ,k)) c))
(define-key geiser-mode-map "\C-c\C-z" 'geiser-mode-switch-to-repl)
(define-key geiser-mode-map "\C-c\C-s" 'geiser-set-scheme)