summaryrefslogtreecommitdiff
path: root/elisp
diff options
context:
space:
mode:
authorjao <jao@gnu.org>2022-10-13 02:59:07 +0100
committerjao <jao@gnu.org>2022-10-13 02:59:07 +0100
commit52ae251eb6ec868890a38564e462fdea69a70ee0 (patch)
treed70c0d8215b1d7c24dcc07e0d7283721ae982bc4 /elisp
parent727d2dfe988943c277804d87ac9cd40f2ddc65e0 (diff)
downloadgeiser-52ae251eb6ec868890a38564e462fdea69a70ee0.tar.gz
geiser-52ae251eb6ec868890a38564e462fdea69a70ee0.tar.bz2
lexical scope for completion and connection
Diffstat (limited to 'elisp')
-rw-r--r--elisp/geiser-completion.el4
-rw-r--r--elisp/geiser-connection.el7
2 files changed, 5 insertions, 6 deletions
diff --git a/elisp/geiser-completion.el b/elisp/geiser-completion.el
index 599e72f..4064af7 100644
--- a/elisp/geiser-completion.el
+++ b/elisp/geiser-completion.el
@@ -1,6 +1,6 @@
-;;; geiser-completion.el -- tab completion
+;;; geiser-completion.el -- tab completion -*- lexical-binding: t; -*-
-;; Copyright (C) 2009, 2010, 2011, 2012, 2018, 2020, 2021, 2022 Jose Antonio Ortega Ruiz
+;; Copyright (C) 2009-2012, 2018, 2020-2022 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
diff --git a/elisp/geiser-connection.el b/elisp/geiser-connection.el
index c1d5712..268e123 100644
--- a/elisp/geiser-connection.el
+++ b/elisp/geiser-connection.el
@@ -1,6 +1,6 @@
-;;; geiser-connection.el -- talking to a scheme process
+;;; geiser-connection.el -- talking to a scheme process -*- lexical-binding: t; -*-
-;; Copyright (C) 2009, 2010, 2011, 2013, 2021 Jose Antonio Ortega Ruiz
+;; Copyright (C) 2009-2011, 2013, 2021-2022 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
@@ -70,8 +70,7 @@
(defun geiser-con--tq-create (process)
(let ((tq (tq-create process)))
- (set-process-filter process
- `(lambda (p s) (geiser-con--tq-filter ',tq s)))
+ (set-process-filter process (lambda (_p s) (geiser-con--tq-filter tq s)))
tq))
(defun geiser-con--tq-filter (tq in)