diff options
| author | Tsuyoshi Kitamoto | 2012-11-13 13:09:20 -0500 |
|---|---|---|
| committer | Stefan Monnier | 2012-11-13 13:09:20 -0500 |
| commit | a77b8d5eb0ac3ea68f8a6e647677b1286ab47d30 (patch) | |
| tree | 512e31dd3b7fab9c594bb19b95a1e956be7138ce /lisp | |
| parent | fa470af020b518efb92a7213ac805a9d5d0b6061 (diff) | |
| download | emacs-a77b8d5eb0ac3ea68f8a6e647677b1286ab47d30.tar.gz emacs-a77b8d5eb0ac3ea68f8a6e647677b1286ab47d30.zip | |
* emacs-lisp/advice.el: Fix typos in comment.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/emacs-lisp/nadvice.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/emacs-lisp/nadvice.el b/lisp/emacs-lisp/nadvice.el index ca1ebf3cad2..ff30d9e7fa4 100644 --- a/lisp/emacs-lisp/nadvice.el +++ b/lisp/emacs-lisp/nadvice.el | |||
| @@ -30,7 +30,7 @@ | |||
| 30 | ;; holds a function. | 30 | ;; holds a function. |
| 31 | ;; This part provides mainly 2 macros: `add-function' and `remove-function'. | 31 | ;; This part provides mainly 2 macros: `add-function' and `remove-function'. |
| 32 | ;; | 32 | ;; |
| 33 | ;; - The second part provides `add-advice' and `remove-advice' which are | 33 | ;; - The second part provides `advice-add' and `advice-remove' which are |
| 34 | ;; refined version of the previous macros specially tailored for the case | 34 | ;; refined version of the previous macros specially tailored for the case |
| 35 | ;; where the place that we want to modify is a `symbol-function'. | 35 | ;; where the place that we want to modify is a `symbol-function'. |
| 36 | 36 | ||
| @@ -234,7 +234,7 @@ of the piece of advice." | |||
| 234 | (cond | 234 | (cond |
| 235 | ((special-form-p def) | 235 | ((special-form-p def) |
| 236 | ;; Not worth the trouble trying to handle this, I think. | 236 | ;; Not worth the trouble trying to handle this, I think. |
| 237 | (error "add-advice failure: %S is a special form" symbol)) | 237 | (error "advice-add failure: %S is a special form" symbol)) |
| 238 | ((and (symbolp def) | 238 | ((and (symbolp def) |
| 239 | (eq 'macro (car-safe (ignore-errors (indirect-function def))))) | 239 | (eq 'macro (car-safe (ignore-errors (indirect-function def))))) |
| 240 | (let ((newval (cons 'macro (cdr (indirect-function def))))) | 240 | (let ((newval (cons 'macro (cdr (indirect-function def))))) |