mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-24 14:30:43 -08:00
Code Issues Projects Releases Wiki Activity

* lisp/emacs-lisp/advice.el (ad-make-advised-definition): Fix undefined case.

Browse source 
* lisp/emacs-lisp/nadvice.el (advice--make-interactive-form):
Fix string-spec case.
This commit is contained in:
Katsumi Yamaoka 2012-11-14 22:30:25 -05:00 • committed by Stefan Monnier
parent a61428c42d
commit 47f01a8af9
3 changed files with 9 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

2
lisp/emacs-lisp/nadvice.el
View file

@ -129,7 +129,7 @@ Each element has the form (WHERE BYTECODE STACK) where:
;; FIXME: The calls to interactive-form below load autoloaded functions
;; too eagerly.
(let ((fspec (cadr (interactive-form function))))
(when (eq 'function (car fspec)) ;; Macroexpanded lambda?
(when (eq 'function (car-safe fspec)) ;; Macroexpanded lambda?
(setq fspec (nth 1 fspec)))
(if (functionp fspec)
`(funcall ',fspec