Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- (defvar buffer->project) ;; associative list of buffer to project
- (defvar project->network-process) ;; associative list of project to network-process
- (defvar buffer->network-process) ;; associative list of buffer to network-process
- (defun connect (buffer & specific-process)
- (if specific-process
- (assoc buffer->network-process buffer specific-process)
- (let ((p (get-project buffer)))
- (when-not (project->network-process)
- (connect-project project))
- (assoc buffer->project p))))
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement