@example
(defadvice foo (around foo-around)
- "Ignore case in `foo'."
+ "Ignore case in ‘foo’."
(let ((case-fold-search t))
ad-do-it))
(ad-activate 'foo)
@example
(defun foo--foo-around (orig-fun &rest args)
- "Ignore case in `foo'."
+ "Ignore case in ‘foo’."
(let ((case-fold-search t))
(apply orig-fun args)))
(advice-add 'foo :around #'foo--foo-around)