diff --git a/ChangeLog.n b/ChangeLog.n index 96bde7c01ba49bc530207f444265f0236db2be6c..4fcbbdba9d3755c6422710e9fa38d4eebb4b9a62 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 c29521cd2db78ecf91d1bc70b618b929dc125640..dcd494fdb437643fc3922ef6962967b2d225422f 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