elisp - 对 "kill-ring-save"的建议

Question

我想在允许用户复制文本之前评估某些条件。据我所知，我需要给 "kill-ring-save" 的建议.如果条件不满足，我需要忽略用户复制该文本的请求，如果满足则允许它。我该怎么做？

(更新)
-- 更多关于约束:仅在 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) )

添加了额外的主模式约束以响应以下评论。如果你想在每种模式下都这样，只需取出模式检查。