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