[Phemlock-cvs] CVS update: phemlock/src/core/hemlock-ext.lisp - phemlock-cvs@common-lisp.net - mailman3.common-lisp.net

9 Jul 2004

Update of /project/phemlock/cvsroot/phemlock/src/core
In directory common-lisp.net:/tmp/cvs-serv7389/src/core
Modified Files:
    hemlock-ext.lisp 
Log Message:
remove duplicate disable-clx-event-handling
Date: Fri Jul  9 08:41:19 2004
Author: dbarlow
Index: phemlock/src/core/hemlock-ext.lisp
diff -u phemlock/src/core/hemlock-ext.lisp:1.1 phemlock/src/core/hemlock-ext.lisp:1.2

--- phemlock/src/core/hemlock-ext.lisp:1.1	Fri Jul  9 08:00:36 2004
+++ phemlock/src/core/hemlock-ext.lisp	Fri Jul  9 08:41:19 2004
@@ -13,9 +13,15 @@
   (peek-char t stream))
+;;; These are just stubs for now:
+
+(defun enable-clx-event-handling (display handler)
+  (declare (ignore display handler))
+  nil)
+
 (defun disable-clx-event-handling (display)
   (declare (ignore display))
-  )
+  nil)
(defun quit ()
   )
@@ -234,15 +240,6 @@
     ,@body)
      (disable-clx-event-handling ,display) ))
-;;; These are just stubs for now:
-
-(defun enable-clx-event-handling (display handler)
-  (declare (ignore display handler))
-  nil)
-
-(defun disable-clx-event-handling (display)
-  (declare (ignore display))
-  nil)
#||
 ;;; ENABLE-CLX-EVENT-HANDLING associates the display with the handler in

    