emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Emacs-diffs] /srv/bzr/emacs/trunk r110886: * emacs-lisp/advice.el: Fix


From: Stefan Monnier
Subject: [Emacs-diffs] /srv/bzr/emacs/trunk r110886: * emacs-lisp/advice.el: Fix typos in comment.
Date: Tue, 13 Nov 2012 13:09:20 -0500
User-agent: Bazaar (2.5.0)

------------------------------------------------------------
revno: 110886
author: Tsuyoshi Kitamoto <address@hidden>
committer: Stefan Monnier <address@hidden>
branch nick: trunk
timestamp: Tue 2012-11-13 13:09:20 -0500
message:
  * emacs-lisp/advice.el: Fix typos in comment.
modified:
  lisp/emacs-lisp/nadvice.el
=== modified file 'lisp/emacs-lisp/nadvice.el'
--- a/lisp/emacs-lisp/nadvice.el        2012-11-13 03:00:09 +0000
+++ b/lisp/emacs-lisp/nadvice.el        2012-11-13 18:09:20 +0000
@@ -30,7 +30,7 @@
 ;;   holds a function.
 ;;   This part provides mainly 2 macros: `add-function' and `remove-function'.
 ;;
-;; - The second part provides `add-advice' and `remove-advice' which are
+;; - The second part provides `advice-add' and `advice-remove' which are
 ;;   refined version of the previous macros specially tailored for the case
 ;;   where the place that we want to modify is a `symbol-function'.
 
@@ -234,7 +234,7 @@
   (cond
    ((special-form-p def)
     ;; Not worth the trouble trying to handle this, I think.
-    (error "add-advice failure: %S is a special form" symbol))
+    (error "advice-add failure: %S is a special form" symbol))
    ((and (symbolp def)
         (eq 'macro (car-safe (ignore-errors (indirect-function def)))))
     (let ((newval (cons 'macro (cdr (indirect-function def)))))


reply via email to

[Prev in Thread] Current Thread [Next in Thread]