From: Richard M. Stallman Date: Sat, 22 Jul 1995 16:11:48 +0000 (+0000) Subject: (Fget_char_property): If OBJECT is non-current buffer, X-Git-Tag: emacs-19.34~3218 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=cbc55f55696b257a75007fefbfc57bec7dc67ab8;p=emacs.git (Fget_char_property): If OBJECT is non-current buffer, use it properly for overlays_at. --- diff --git a/src/textprop.c b/src/textprop.c index 5b8dada6042..c41757388c7 100644 --- a/src/textprop.c +++ b/src/textprop.c @@ -556,6 +556,9 @@ overlays are considered only if they are associated with OBJECT.") Lisp_Object *overlay_vec, tem; int next_overlay; int len; + struct buffer *obuf = current_buffer; + + set_buffer_temp (XBUFFER (object)); /* First try with room for 40 overlays. */ len = 40; @@ -575,6 +578,8 @@ overlays are considered only if they are associated with OBJECT.") } noverlays = sort_overlays (overlay_vec, noverlays, w); + set_buffer_temp (obuf); + /* Now check the overlays in order of decreasing priority. */ while (--noverlays >= 0) {