Mercurial > emacs
comparison lisp/emacs-lisp/advice.el @ 26627:173f907a5812
Fix last change.
author | Dave Love <fx@gnu.org> |
---|---|
date | Fri, 26 Nov 1999 21:24:39 +0000 |
parents | 019c7ea59fd9 |
children | 05016ef95d0f |
comparison
equal
deleted
inserted
replaced
26626:ecc4acdd96a9 | 26627:173f907a5812 |
---|---|
3663 (ad-pop-advised-function function)))) | 3663 (ad-pop-advised-function function)))) |
3664 | 3664 |
3665 (defun ad-recover (function) | 3665 (defun ad-recover (function) |
3666 "Try to recover FUNCTION's original definition, and unadvise it. | 3666 "Try to recover FUNCTION's original definition, and unadvise it. |
3667 This is more low-level than `ad-unadvise' in that it does not do | 3667 This is more low-level than `ad-unadvise' in that it does not do |
3668 deactivation, which might run hooks and get into other trouble." | 3668 deactivation, which might run hooks and get into other trouble. |
3669 Use in emergencies." | 3669 Use in emergencies." |
3670 ;; Use more primitive interactive behavior here: Accept any symbol that's | 3670 ;; Use more primitive interactive behavior here: Accept any symbol that's |
3671 ;; currently defined in obarray, not necessarily with a function definition: | 3671 ;; currently defined in obarray, not necessarily with a function definition: |
3672 (interactive | 3672 (interactive |
3673 (list (intern | 3673 (list (intern |