對「kill-ring-save」的建議

Question

我想在允許用戶複製文本之前評估某些條件。據我所知，我需要一個建議"kill-ring-save"。如果條件不滿足，我需要忽略用戶請求複製該文本，如果滿足則允許。我怎樣才能做到這一點？

（UPDATE） - 關於CONSTRAINTS的更多信息：只有在特定的Emacs模式下（例如NXML模式），此建議才應用，並且只能滿足一個或多個特定條件。

Answer 1

快速驗證概念;你不知道你的約束是什麼，所以這是必然的模糊/無用的。

(defvar moo nil) 

(defadvice kill-ring-save (around kill-ring-check-constraints activate compile) 
    "If in `nxml-mode', don't save to kill ring if `moo' is `nil'." 
    (if (and (eq major-mode 'nxml-mode) (null moo)) 
    (message "Not copied.") 
    ad-do-it)) 

對下面的評論添加了額外的主要模式約束。如果你想在每種模式下使用，只需取出模式檢查。