From 52ae251eb6ec868890a38564e462fdea69a70ee0 Mon Sep 17 00:00:00 2001 From: jao Date: Thu, 13 Oct 2022 02:59:07 +0100 Subject: lexical scope for completion and connection --- elisp/geiser-completion.el | 4 ++-- 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) -- cgit v1.2.3