[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] emacs-25 e395caf: * lisp/emacs-lisp/nadvice.el (add-functi
From: |
Johan Bockgard |
Subject: |
[Emacs-diffs] emacs-25 e395caf: * lisp/emacs-lisp/nadvice.el (add-function): Fix debug spec. |
Date: |
Mon, 23 Nov 2015 20:03:18 +0000 |
branch: emacs-25
commit e395cafbc1b3833d5738f7556e1ac33e8363aece
Author: Johan Bockgård <address@hidden>
Commit: Johan Bockgård <address@hidden>
* lisp/emacs-lisp/nadvice.el (add-function): Fix debug spec.
(remove-function): Ditto. (Bug#20376)
---
lisp/emacs-lisp/nadvice.el | 8 ++++++--
1 files changed, 6 insertions(+), 2 deletions(-)
diff --git a/lisp/emacs-lisp/nadvice.el b/lisp/emacs-lisp/nadvice.el
index 1882eb1..a1bc38c 100644
--- a/lisp/emacs-lisp/nadvice.el
+++ b/lisp/emacs-lisp/nadvice.el
@@ -289,7 +289,10 @@ is also interactive. There are 3 cases:
argument (the interactive spec of OLDFUN, which it can pass to
`advice-eval-interactive-spec') and return the list of arguments to use.
- Else, use the interactive spec of FUNCTION and ignore the one of OLDFUN."
- (declare (debug t)) ;;(indent 2)
+ (declare
+ ;;(indent 2)
+ (debug (form [&or symbolp ("local" form) ("var" sexp) gv-place]
+ form &optional form)))
`(advice--add-function ,where (gv-ref ,(advice--normalize-place place))
,function ,props))
@@ -311,7 +314,8 @@ is also interactive. There are 3 cases:
If FUNCTION was not added to PLACE, do nothing.
Instead of FUNCTION being the actual function, it can also be the `name'
of the piece of advice."
- (declare (debug t))
+ (declare (debug ([&or symbolp ("local" form) ("var" sexp) gv-place]
+ form)))
(gv-letplace (getter setter) (advice--normalize-place place)
(macroexp-let2 nil new `(advice--remove-function ,getter ,function)
`(unless (eq ,new ,getter) ,(funcall setter new)))))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] emacs-25 e395caf: * lisp/emacs-lisp/nadvice.el (add-function): Fix debug spec.,
Johan Bockgard <=