Как получить совет не выполнять функцию при соблюдении условий?

Question

Как вы препятствуете запуску рекомендованной функции, когда совет возвращает ноль?

(defadvice beginning-of-line (before test activate)
 nil)

-> Не работает beginning-of-line совсем.

РЕДАКТИРОВАТЬ: Просто чтобы убрать ваши заботы, я не намерен использовать его на beginning-of-line,

Answer 1

Вы можете использовать around совет, как есть:

(defadvice foo (around test activate)
  (if my-test
      ad-do-it))

Конструкция ad-do-it соответствует выполнению исходной функции.