Переопределение функции в Emacs Lisp

Question

Я хотел бы временно переопределить функцию kill-new. У меня есть способ, которым я хочу переопределить kill-new, который работает только в определенных контекстах, но я не хочу переопределять специальную версию kill-region. (kill-new вызывается из области kill)

Поскольку Emacs Lisp использует динамическое масштабирование, это должно быть возможно, правильно? (С другой стороны, кажется, что это будет небезопасная вещь для поддержки, и это может вызвать у меня немного нервность, зная, что это возможно ...)

Я экспериментировал с использованием let и fset, но так далеко не нашли способа заставить его работать, как ожидалось. Так что, надеюсь кто-то может заполнить пробел в следующем псевдокоде:

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

Что должно некоторые форм-что-связывает-а-функция быть? Или я лаяю неправильное дерево?

Answer 1

Вот решение:

(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

Посмотрите на пакет advice, который очень хорош в этом.

Answer 3

Ваш some-form-that-binds-a-function называется flet, так что вы были близки.