Commits

Anonymous committed b2522f1

defmacro were on the wrong positions

  • Participants
  • Parent commits fd85291

Comments (0)

Files changed (1)

 
 (require 'cl)
 
-(defun connection-create-data (buffer process point)
-  "Create a new connection data based on `buffer', `process', and `point'."
-  (let ((connection (make-symbol "connection")))
-    (put connection 'connection t)
-    (connection-set-read-point connection point)
-    (connection-set-process connection process)
-    (connection-set-buffer connection buffer)
-    connection))
-
 (defmacro connection-p (connection)
   "Returns non-nil if `connection' is a connection object"
   (list 'get connection ''connection))
   "Set the buffer for `connection' to `buffer'."
   (list 'put connection ''connection-buffer buffer))
 
+(defun connection-create-data (buffer process point)
+  "Create a new connection data based on `buffer', `process', and `point'."
+  (let ((connection (make-symbol "connection")))
+    (put connection 'connection t)
+    (connection-set-read-point connection point)
+    (connection-set-process connection process)
+    (connection-set-buffer connection buffer)
+    connection))
 
 (defun connection-open (server port)
   "Open a connection to `server' and `port'.