Commit 5abadebc authored by Stefan Monnier's avatar Stefan Monnier
Browse files

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

* lisp/emacs-lisp/nadvice.el (advice--called-interactively-skip):
Fix inf-loop (bug#21083).
parent 492ea241
......@@ -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))))
......
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