mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-14 09:39:42 +00:00
Code Issues Releases 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
Show Stats 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))))