Значение функции переопределения с асинхронным вызовом

Question

Как использовать cl-letf или аналогично переопределять значение функции символа во время асинхронного вызова? Я хочу остановить отображение буфера после вызовов на start-process или start-process-shell-command, а вместо этого вместо этого вернет строку.

Вот упрощенный пример, где привязка display-buffer работает для синхронной версии, но не для асинхронной версии. Кроме того, я установил лексическое привязку к true.

(defun tst-fun-sync (url) 
    (call-process "wget" nil "*wget*" nil url "-O" "-") 
    (with-current-buffer "*wget*" 
    (display-buffer (current-buffer)))) 

(defun tst-fun-async (url) 
    (set-process-sentinel 
    (start-process "wget" "*wget*" "wget" url "-O" "-") 
    #'(lambda (p _m) 
     (when (zerop (process-exit-status p)) 
     (with-current-buffer (process-buffer p) 
      (display-buffer (current-buffer))))))) 

(defun tst-fun-no-display (fun &rest args) 
    (cl-letf (((symbol-function 'display-buffer) 
      #'(lambda (&rest _ignored) 
       (message "%s" (buffer-string))))) 
    (apply fun args))) 

;; The first has desired result, but not the second 
;; (tst-fun-no-display 'tst-fun-sync "http://www.stackoverflow.com") 
;; (tst-fun-no-display 'tst-fun-async "http://www.stackoverflow.com") 

Answer 1

Давайте определим макрос, который временно set-process-sentinel связывания все так, что функция сторожевой может быть украшена с функцией обертки.

(defmacro with-sentinel-wrapper (wrapper-fn &rest body) 
    (let ((sps (gensym)) 
     (proc (gensym)) 
     (fn (gensym))) 
    `(let ((,sps (symbol-function 'set-process-sentinel))) 
     (cl-letf (((symbol-function 'set-process-sentinel) 
        (lambda (,proc ,fn) 
        (funcall ,sps ,proc (funcall ,wrapper-fn ,fn))))) 
       ,@body)))) 

Обертка может изменить динамический контекст, в котором сторожевого называется, путем создания каких-либо полезных динамических привязок. Здесь я повторно ваш cl-letf, чтобы изменить то, что дисплей делает:

(with-sentinel-wrapper (lambda (fn) 
         (lexical-let ((fun fn)) 
          (lambda (p m) 
          (cl-letf (((symbol-function 'display-buffer) 
             #'(lambda (&rest _ignored) 
              (message "%s" (buffer-string))))) 
           (funcall fun p m))))) 
    (tst-fun-async "http://www.stackoverflow.com")) 

Теперь, если вы не уверены в том, что асинхронный процесс фактически вызывает set-process-sentinel, вы, возможно, придется взломать другие функции.