summaryrefslogtreecommitdiff
path: root/elisp
diff options
context:
space:
mode:
Diffstat (limited to 'elisp')
-rw-r--r--elisp/geiser-guile.el26
1 files changed, 13 insertions, 13 deletions
diff --git a/elisp/geiser-guile.el b/elisp/geiser-guile.el
index 9fec9a8..1710052 100644
--- a/elisp/geiser-guile.el
+++ b/elisp/geiser-guile.el
@@ -35,9 +35,9 @@
:group 'geiser)
(geiser-custom--defcustom geiser-guile-binary
- (cond ((eq system-type 'windows-nt) "guile.exe")
- ((eq system-type 'darwin) "guile")
- (t "guile"))
+ (cond ((eq system-type 'windows-nt) "guile.exe")
+ ((eq system-type 'darwin) "guile")
+ (t "guile"))
"Name to use to call the Guile executable when starting a REPL."
:type '(choice string (repeat string))
:group 'geiser-guile)
@@ -121,7 +121,7 @@ effect on new REPLs. For existing ones, use the command
:group 'geiser-guile)
(geiser-custom--defcustom geiser-guile-manual-lookup-nodes
- '("Guile" "guile-2.0")
+ '("Guile" "guile-2.0")
"List of info nodes that, when present, are used for manual lookups"
:type '(repeat string)
:group 'geiser-guile)
@@ -140,11 +140,11 @@ This function uses `geiser-guile-init-file' if it exists."
(let ((init-file (and (stringp geiser-guile-init-file)
(expand-file-name geiser-guile-init-file)))
(q-flags (and (not geiser-guile-load-init-file-p) '("-q"))))
- `(,@(and (listp geiser-guile-binary) (cdr geiser-guile-binary))
- ,@q-flags "-L" ,(expand-file-name "guile/" geiser-scheme-dir)
- ,@(apply 'append (mapcar (lambda (p) (list "-L" p))
- geiser-guile-load-path))
- ,@(and init-file (file-readable-p init-file) (list "-l" init-file)))))
+ `(,@(and (listp geiser-guile-binary) (cdr geiser-guile-binary))
+ ,@q-flags "-L" ,(expand-file-name "guile/" geiser-scheme-dir)
+ ,@(apply 'append (mapcar (lambda (p) (list "-L" p))
+ geiser-guile-load-path))
+ ,@(and init-file (file-readable-p init-file) (list "-l" init-file)))))
;;(defconst geiser-guile--prompt-regexp "^[^() \n]+@([^)]*?)> ")
(defconst geiser-guile--prompt-regexp "[^@()]+@([^)]*?)> ")
@@ -280,8 +280,8 @@ This function uses `geiser-guile-init-file' if it exists."
(geiser-syntax--simple-keywords geiser-guile-extra-keywords)
(geiser-syntax--simple-keywords geiser-guile--builtin-keywords)
`((,(rx "(" (group "define-once") eow (* space) (? (group (+ word))))
- (1 font-lock-keyword-face)
- (2 font-lock-variable-name-face nil t))
+ (1 font-lock-keyword-face)
+ (2 font-lock-variable-name-face nil t))
("(\\(define-module\\) +(\\([^)]+\\))"
(1 font-lock-keyword-face)
(2 font-lock-type-face nil t)))))
@@ -386,7 +386,7 @@ it spawn a server thread."
;;; Manual lookup
(defun geiser-guile--info-spec (&optional nodes)
- (let* ((nrx "^[ ]+-+ [^:]+:[ ]*")
+ (let* ((nrx "^[ ]+-+ [^:]+:[ ]*")
(drx "\\b")
(res (when (Info-find-file "r5rs" t)
`(("(r5rs)Index" nil ,nrx ,drx)))))
@@ -400,7 +400,7 @@ it spawn a server thread."
(info-lookup-add-help :topic 'symbol :mode 'geiser-guile-mode
:ignore-case nil
- :regexp "[^()`',\" \n]+"
+ :regexp "[^()`',\" \n]+"
:doc-spec (geiser-guile--info-spec))
(defun guile--manual-look-up (id mod)