(ybuffer-list): $alist must be ptr-unmasked at the end of the loop,

because $ptr is modified by ygetptr and we use $ptr immediately at the
beginning.
This commit is contained in:
Noah Friedman 2017-05-08 16:24:56 -07:00
parent 784602b105
commit c0d42853cd

View file

@ -105,8 +105,6 @@ define ybuffer-list
while $alist != $qnil
set $this = ((struct Lisp_Cons *) $ptr)->car
set $alist = ((struct Lisp_Cons *) $ptr)->u.cdr
ygetptr $alist
set $alist = $ptr
# Vbuffer_alist elts are pairs of the form (name . buffer)
ygetptr $this
@ -136,6 +134,8 @@ define ybuffer-list
end
set $i++
ygetptr $alist
set $alist = $ptr
end
end
document ybuffer-list