(let ((entry (assoc name riece-ruby-exit-handler-alist)))
(if entry
(progn
- (funcall (cdr entry) (car entry))
(setq riece-ruby-exit-handler-alist
- (delq entry riece-ruby-exit-handler-alist))))))
+ (delq entry riece-ruby-exit-handler-alist))
+ (funcall (cdr entry) (car entry))
+ (riece-ruby-clear name)))))
(defun riece-ruby-sentinel (process status)
(kill-buffer (process-buffer process)))
(file-name-directory
(locate-library
(symbol-file 'riece-ruby-execute)))))))
+ (process-kill-without-query riece-ruby-process)
(set-process-filter riece-ruby-process #'riece-ruby-filter)
(set-process-sentinel riece-ruby-process #'riece-ruby-sentinel)))
(save-excursion
(save-excursion
(set-buffer (process-buffer riece-ruby-process))
(riece-ruby-reset-process-buffer)
- (riece-ruby-send-exit name))
+ (make-local-variable 'riece-ruby-lock)
+ (setq riece-ruby-lock t)
+ (riece-ruby-send-exit name)
+ (while riece-ruby-lock
+ (accept-process-output riece-ruby-process)))
(let ((entry (assoc name riece-ruby-property-alist)))
(if entry
(delq entry riece-ruby-property-alist))))
(defun riece-ruby-set-exit-handler (name handler)
(let ((entry (assoc name riece-ruby-exit-handler-alist)))
- (if entry
- (setcdr entry handler)
- (setq riece-ruby-exit-handler-alist
- (cons (cons name handler)
- riece-ruby-exit-handler-alist)))
- ;;check if the program already exited
- (riece-ruby-inspect name)))
+ (if handler
+ (progn
+ (if entry
+ (setcdr entry handler)
+ (setq riece-ruby-exit-handler-alist
+ (cons (cons name handler)
+ riece-ruby-exit-handler-alist)))
+ ;;check if the program already exited
+ (riece-ruby-inspect name))
+ (if entry
+ (setq riece-ruby-exit-handler-alist
+ (delq entry riece-ruby-exit-handler-alist))))))
(defun riece-ruby-set-output-handler (name handler)
(let ((entry (assoc name riece-ruby-output-handler-alist)))
- (if entry
- (setcdr entry handler)
- (setq riece-ruby-output-handler-alist
- (cons (cons name handler)
- riece-ruby-output-handler-alist)))))
+ (if handler
+ (progn
+ (if entry
+ (setcdr entry handler)
+ (setq riece-ruby-output-handler-alist
+ (cons (cons name handler)
+ riece-ruby-output-handler-alist))))
+ (if entry
+ (setq riece-ruby-output-handler-alist
+ (delq entry riece-ruby-output-handler-alist))))))
(defun riece-ruby-set-property (name property value)
(let ((entry (assoc name riece-ruby-property-alist))