Skip to content

Instantly share code, notes, and snippets.

@sluchin
Created April 18, 2013 05:26
Show Gist options
  • Save sluchin/5410344 to your computer and use it in GitHub Desktop.
Save sluchin/5410344 to your computer and use it in GitHub Desktop.
(defadvice boundp (around boundp-message (symbol) activate compile)
(if (eval ad-do-it) t
(message "boundp nil: %s" (ad-get-arg 0)) nil))
(defadvice fboundp (around fboundp-message (symbol) activate compile)
(if (eval ad-do-it) t
(message "fboundp nil: %s" (ad-get-arg 0)) nil))
(ad-disable-advice 'boundp 'around 'boundp-message)
(ad-activate 'boundp)
(ad-disable-advice 'fboundp 'around 'fboundp-message)
(ad-activate 'fboundp)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment