Emacs में एक समारोह ओवरराइड लिस्प

Question

मैं अस्थायी रूप से मारने नए समारोह को ओवरराइड करना चाहते हैं। मैं एक तरह से मैं मार-नई है कि केवल कुछ संदर्भों में में काम करता है reimplement करना चाहते हैं, लेकिन मैं उसके ऊपर मार-क्षेत्र का एक विशेष संस्करण reimplement नहीं करना चाहती। (मार-नई मार-क्षेत्र से कहा जाता है)

के बाद से Emacs लिस्प गतिशील scoping का उपयोग करता है, यह, संभव हो जाना चाहिए ना? (दूसरी तरफ, ऐसा लगता है कि यह समर्थन करने के लिए एक असुरक्षित बात होगी, और यह मुझे थोड़ा परेशान कर सकता है कि यह संभव है ...)

मैंने प्रयोग और 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)))) 

क्या चाहिए कुछ फार्म-कि-बांध एक समारोह हो सकता है? या मैं गलत पेड़ को भड़क रहा हूँ? advice पैकेज है, जो यह सब करने के पर बहुत अच्छा है पर

Answer 1

यहाँ एक समाधान है।

Answer 2

देखो।

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

आपका some-form-that-binds-a-functionflet कहा जाता है, तो आप करीब थे: