diff options
author | jao <jao@gnu.org> | 2022-10-13 02:59:07 +0100 |
---|---|---|
committer | jao <jao@gnu.org> | 2022-10-13 02:59:07 +0100 |
commit | 52ae251eb6ec868890a38564e462fdea69a70ee0 (patch) | |
tree | d70c0d8215b1d7c24dcc07e0d7283721ae982bc4 | |
parent | 727d2dfe988943c277804d87ac9cd40f2ddc65e0 (diff) | |
download | geiser-52ae251eb6ec868890a38564e462fdea69a70ee0.tar.gz geiser-52ae251eb6ec868890a38564e462fdea69a70ee0.tar.bz2 |
lexical scope for completion and connection
-rw-r--r-- | elisp/geiser-completion.el | 4 | ||||
-rw-r--r-- | elisp/geiser-connection.el | 7 |
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) |