Commit c67c0839 authored by Stefan Monnier's avatar Stefan Monnier
Browse files

* lisp/emacs-lisp/nadvice.el (advice--member-p): Return the advice if found.

(advice--add-function): Refresh the advice if already present.

Fixes: debbugs:14317
parent 7a6018ad
2013-05-06 Stefan Monnier <monnier@iro.umontreal.ca>
* emacs-lisp/nadvice.el (advice--member-p): Return the advice if found.
(advice--add-function): Refresh the advice if already present
(bug#14317).
2013-05-06 Ivan Andrus <darthandrus@gmail.com>
 
* find-file.el (cc-other-file-alist): Add ".m" for ObjC. (Bug#14339)
......
......@@ -167,7 +167,7 @@ WHERE is a symbol to select an entry in `advice--where-alist'."
(if (or (equal function (advice--car definition))
(when name
(equal name (cdr (assq 'name (advice--props definition))))))
(setq found t)
(setq found definition)
(setq definition (advice--cdr definition))))
found))
......@@ -260,8 +260,12 @@ is also interactive. There are 3 cases:
;;;###autoload
(defun advice--add-function (where ref function props)
(unless (advice--member-p function (cdr (assq 'name props))
(gv-deref ref))
(let ((a (advice--member-p function (cdr (assq 'name props))
(gv-deref ref))))
(when a
;; The advice is already present. Remove the old one, first.
(setf (gv-deref ref)
(advice--remove-function (gv-deref ref) (advice--car a))))
(setf (gv-deref ref)
(advice--make where function (gv-deref ref) props))))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment