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

Diff of /slime/swank.lisp

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

revision 1.649 by heller, Sun Jun 21 07:22:56 2009 UTC revision 1.650 by nsiivola, Wed Jun 24 15:33:20 2009 UTC
# Line 2384  Returns true if it actually called emacs Line 2384  Returns true if it actually called emacs
2384             (send-oob-to-emacs `(:ed ,target))))             (send-oob-to-emacs `(:ed ,target))))
2385          (t nil)))))          (t nil)))))
2386    
2387  (defslimefun inspect-in-emacs (what)  (defslimefun inspect-in-emacs (what &key wait)
2388    "Inspect WHAT in Emacs."    "Inspect WHAT in Emacs. If WAIT is true (default NIL) blocks until the
2389    inspector has been closed in Emacs."
2390    (flet ((send-it ()    (flet ((send-it ()
2391             (with-buffer-syntax ()             (let ((tag (when wait (make-tag)))
2392               (reset-inspector)                   (thread (when wait (current-thread-id))))
2393               (send-oob-to-emacs `(:inspect ,(inspect-object what))))))               (with-buffer-syntax ()
2394      (cond                 (reset-inspector)
2395                   (send-oob-to-emacs `(:inspect ,(inspect-object what)
2396                                                 ,thread
2397                                                 ,tag)))
2398                 (when wait
2399                   (wait-for-event `(:emacs-return ,tag result))))))
2400        (cond
2401        (*emacs-connection*        (*emacs-connection*
2402         (send-it))         (send-it))
2403        ((default-connection)        ((default-connection)

Legend:
Removed from v.1.649  
changed lines
  Added in v.1.650

  ViewVC Help
Powered by ViewVC 1.1.5