aboutsummaryrefslogtreecommitdiffstats
path: root/lisp
diff options
context:
space:
mode:
authorTsuyoshi Kitamoto2012-11-13 13:09:20 -0500
committerStefan Monnier2012-11-13 13:09:20 -0500
commita77b8d5eb0ac3ea68f8a6e647677b1286ab47d30 (patch)
tree512e31dd3b7fab9c594bb19b95a1e956be7138ce /lisp
parentfa470af020b518efb92a7213ac805a9d5d0b6061 (diff)
downloademacs-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.el4
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)))))