From fb89f9f63dab7af3c6a8f7043a3ddbf2c1b93e88 Mon Sep 17 00:00:00 2001 From: layer <layer> Date: Wed, 18 Jul 2007 18:00:13 +0000 Subject: [PATCH] 2007-07-18 Kevin Layer <layer@gemini.franz.com> --- ChangeLog.n | 7 ++++++- tk-silica/xt-silica.lisp | 6 +++--- 2 files changed, 9 insertions(+), 4 deletions(-) diff --git a/ChangeLog.n b/ChangeLog.n index 96bde7c0..4fcbbdba 100644 --- a/ChangeLog.n +++ b/ChangeLog.n @@ -1,3 +1,8 @@ +2007-07-18 Kevin Layer <layer@gemini.franz.com> + + * tk-silica/xt-silica.lisp (restart-port): bug16740: fix badly + placed paren (from patch) + 2007-05-16 Andreas Fuchs <afuchs@franz.com> * xlib/xlib-funs.lisp: new function xkeycodetokeysym @@ -6185,4 +6190,4 @@ IGNORE JDI SPECIFIC CHANGES TO Makefile Lots of other stuff ******************************************************************************* -$Revision: 2.35 $ +$Revision: 2.36 $ diff --git a/tk-silica/xt-silica.lisp b/tk-silica/xt-silica.lisp index c29521cd..dcd494fd 100644 --- a/tk-silica/xt-silica.lisp +++ b/tk-silica/xt-silica.lisp @@ -16,7 +16,7 @@ ;; Commercial Software developed at private expense as specified in ;; DOD FAR Supplement 52.227-7013 (c) (1) (ii), as applicable. ;; -;; $Id: xt-silica.lisp,v 2.10 2007/06/06 17:15:06 layer Exp $ +;; $Id: xt-silica.lisp,v 2.11 2007/07/18 18:00:13 layer Exp $ (in-package :xm-silica) @@ -98,9 +98,9 @@ :priority 1000) #'port-event-loop port)) (setf (getf (mp:process-property-list process) :no-interrupts) t) - (setf (port-process port) process)) + (setf (port-process port) process) ;; Find out the modifier->modbit mapping on the display. - (setup-modifier-key-mapping port)) + (setup-modifier-key-mapping port))) (defparameter *use-color* t) ; For debugging monochrome -- GitLab