Überschreiben einer Funktion in Emacs Lisp

Question

Ich möchte vorübergehend die kill-neue Funktion außer Kraft setzen. Ich habe einen Weg, den ich kill-new neu implementieren will, dass nur in bestimmten Kontexten funktioniert, aber ich möchte nicht eine spezielle Version von kill-region obendrauf implementieren. (kill-new heißt von kill-region)

Da Emacs Lisp dynamische Scoping verwendet, sollte dies möglich sein, oder? (Auf der anderen Seite scheint es, dass dies eine unsichere Sache zu unterstützen wäre, und es könnte mich ein bisschen nervös zu wissen, dass es möglich ist ...)

Ich habe mit der Verwendung von Let und Fset experimentiert, aber so Bisher haben wir noch keine Möglichkeit gefunden, es wie erwartet zum Laufen zu bringen. Also, hoffentlich jemand kann den freien Raum in dem folgenden Pseudocode füllen:

(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)))) 

Was sollte some-Form-that-Bindungen-a-Funktion sein? Oder belle ich den falschen Baum an?

Answer 1

ist eine Lösung:

(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

Schauen Sie sich das Paket advice an, was sehr gut ist. Hier

Answer 3

Ihre some-form-that-binds-a-functionflet genannt wird, so Sie in der Nähe waren.