SHARE
TWEET

Untitled

a guest Sep 18th, 2019 83 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. (defvar buffer->project) ;; associative list of buffer to project
  2. (defvar project->network-process) ;; associative list of project to network-process
  3. (defvar buffer->network-process) ;; associative list of buffer to network-process
  4. (defun connect (buffer & specific-process)
  5.   (if specific-process
  6.     (assoc buffer->network-process buffer specific-process)
  7.     (let ((p (get-project buffer)))
  8.       (when-not (project->network-process)
  9.         (connect-project project))
  10.       (assoc buffer->project p))))
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!
 
Top