diff options
Diffstat (limited to 'doc/lispref/functions.texi')
| -rw-r--r-- | doc/lispref/functions.texi | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/doc/lispref/functions.texi b/doc/lispref/functions.texi index a853d2fbab5..20eaf5dee1e 100644 --- a/doc/lispref/functions.texi +++ b/doc/lispref/functions.texi | |||
| @@ -1561,7 +1561,7 @@ Around advice such as: | |||
| 1561 | 1561 | ||
| 1562 | @example | 1562 | @example |
| 1563 | (defadvice foo (around foo-around) | 1563 | (defadvice foo (around foo-around) |
| 1564 | "Ignore case in `foo'." | 1564 | "Ignore case in ‘foo’." |
| 1565 | (let ((case-fold-search t)) | 1565 | (let ((case-fold-search t)) |
| 1566 | ad-do-it)) | 1566 | ad-do-it)) |
| 1567 | (ad-activate 'foo) | 1567 | (ad-activate 'foo) |
| @@ -1571,7 +1571,7 @@ could translate into: | |||
| 1571 | 1571 | ||
| 1572 | @example | 1572 | @example |
| 1573 | (defun foo--foo-around (orig-fun &rest args) | 1573 | (defun foo--foo-around (orig-fun &rest args) |
| 1574 | "Ignore case in `foo'." | 1574 | "Ignore case in ‘foo’." |
| 1575 | (let ((case-fold-search t)) | 1575 | (let ((case-fold-search t)) |
| 1576 | (apply orig-fun args))) | 1576 | (apply orig-fun args))) |
| 1577 | (advice-add 'foo :around #'foo--foo-around) | 1577 | (advice-add 'foo :around #'foo--foo-around) |