Function: pfuture-result--inliner

pfuture-result--inliner is a function defined in pfuture.el.

Signature

(pfuture-result--inliner INLINE--FORM PROCESS)

Source Code

;; Defined in ~/.emacs.d/elpa/pfuture-20220913.1401/pfuture.el
;; Could not find source code, showing raw function object.
#[(inline--form process)
  ((ignore inline--form)
   (catch 'inline--just-use
     (let*
	 ((exp process)
	  (process
	   (if (macroexp-copyable-p exp) exp (make-symbol "process")))
	  (body
	   (list 'let*
		 (list
		  (list 'result
			(list 'process-get process
			      (list 'quote 'result))))
		 (list 'cond (list 'result 'result)
		       (list (list 'process-live-p process)
			     (list 'let
				   (list
				    (list 'buffer
					  (list 'process-get process
						(list 'quote 'buffer))))
				   (list 'with-current-buffer 'buffer
					 (list 'buffer-string))))
		       (list t
			     (list 'let*
				   (list
				    (list 'buffer
					  (list 'process-get process
						(list 'quote 'buffer)))
				    (list 'output
					  (list 'with-current-buffer
						'buffer
						(list 'buffer-string))))
				   (list 'process-put process
					 (list 'quote 'result) 'output)
				   (list 'kill-buffer 'buffer) 'output))))))
       (if (eq process exp) body
	 (macroexp-let* (list (list process exp)) body)))))
  (t)]