Sovrascrittura di una funzione in Emacs Lisp

Question

Desidero sovrascrivere temporaneamente la funzione kill-new. Ho un modo in cui voglio reimplementare kill-new che funziona solo in determinati contesti, ma non voglio reimplementare una versione speciale di kill-region in aggiunta. (kill-new viene chiamato da kill-region)

Poiché Emacs Lisp utilizza lo scope dinamico, questo dovrebbe essere possibile, giusto? (D'altra parte, sembra che sarebbe una cosa non sicura da supportare, e potrebbe rendermi un po 'nervoso sapendo che è possibile ...)

Ho sperimentato usando let e fset, ma così lontano non hanno trovato modo di farlo funzionare come previsto. Così, si spera che qualcuno può riempire il vuoto nel seguente pseudocodice:

(defun my-kill-new (string &optional replace yank-handler) 
    (message "in my-kill-new!")) 

(defun foo() 
    (some-form-that-binds-a-function (kill-new my-kill-new) 
    (kill-region (point) (mark)))) 

Cosa dovrebbe qualche forma-che-lega-a-funzione di essere? O sto abbaiando sull'albero sbagliato?

Answer 1

Ecco una soluzione:

(defadvice kill-new (around my-kill-new (string &optional replace yank-handler)) 
    (message "my-kill-new!")) 


(defun foo() 
    (progn (ad-enable-advice 'kill-new 'around 'my-kill-new) 
    (ad-activate 'kill-new) 
    (kill-region (point) (mark)) 
    (ad-disable-advice 'kill-new 'around 'my-kill-new) 
    (ad-activate 'kill-new))) 

Answer 2

Guarda il pacchetto advice, che è molto bravo a fare tutto questo.

Answer 3

tuo some-form-that-binds-a-function si chiama flet, quindi vi erano vicini.