/[slime]/slime/swank.lisp
ViewVC logotype

Diff of /slime/swank.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.773 by heller, Wed Dec 7 18:02:31 2011 UTC revision 1.774 by heller, Wed Dec 7 18:27:17 2011 UTC
# Line 1016  The processing is done in the extent of Line 1016  The processing is done in the extent of
1016  (defun send-to-emacs (event)  (defun send-to-emacs (event)
1017    "Send EVENT to Emacs."    "Send EVENT to Emacs."
1018    ;;(log-event "send-to-emacs: ~a" event)    ;;(log-event "send-to-emacs: ~a" event)
1019    (let ((c *emacs-connection*))    (without-slime-interrupts
1020      (etypecase c      (let ((c *emacs-connection*))
1021        (multithreaded-connection        (etypecase c
1022         (send (mconn.control-thread c) event))          (multithreaded-connection
1023        (singlethreaded-connection           (send (mconn.control-thread c) event))
1024         (dispatch-event c event)))          (singlethreaded-connection
1025      (maybe-slow-down)))           (dispatch-event c event)))
1026          (maybe-slow-down))))
1027    
1028    
1029  ;;;;;; Flow control  ;;;;;; Flow control
1030    
# Line 2084  FORM and VALUE are both strings from Ema Line 2085  FORM and VALUE are both strings from Ema
2085  Use this function for informative messages only.  The message may even  Use this function for informative messages only.  The message may even
2086  be dropped if we are too busy with other things."  be dropped if we are too busy with other things."
2087    (when *emacs-connection*    (when *emacs-connection*
2088      (send-to-emacs `(:background-message      (send-to-emacs `(:background-message
2089                       ,(apply #'format nil format-string args)))))                       ,(apply #'format nil format-string args)))))
2090    
2091  ;; This is only used by the test suite.  ;; This is only used by the test suite.
# Line 3692  Collisions are caused because package in Line 3693  Collisions are caused because package in
3693                     (lambda (string)                     (lambda (string)
3694                       (declare (ignore string))                       (declare (ignore string))
3695                       (with-connection (conn)                       (with-connection (conn)
3696                         (progn ;without-slime-interrupts                         (send-to-emacs `(:test-delay ,delay))))))))
                          (send-to-emacs `(:test-delay ,delay)))))))))  
3697      (dotimes (i n)      (dotimes (i n)
3698        (print i stream)        (print i stream)
3699        (force-output stream)        (force-output stream)

Legend:
Removed from v.1.773  
changed lines
  Added in v.1.774

  ViewVC Help
Powered by ViewVC 1.1.5