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

(advice--called-interactively-skip): Fix inf-loop (bug#21083)

Browse source 
* lisp/emacs-lisp/nadvice.el (advice--called-interactively-skip):
Fix inf-loop (bug#21083).
This commit is contained in:
Stefan Monnier 2015-07-21 19:09:12 -04:00
parent 492ea2410c
commit 5abadebc35
1 changed files with 3 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -522,8 +522,9 @@ of the piece of advice."
(while
(progn
(funcall get-next-frame)
(not (and (eq (nth 1 frame2) 'apply)
(eq (nth 3 frame2) inneradvice)))))
(and frame2
(not (and (eq (nth 1 frame2) 'apply)
(eq (nth 3 frame2) inneradvice))))))
(funcall get-next-frame)
(funcall get-next-frame))))
(- i origi 1))))