From: Richard M. Stallman <rms@gnu.org>
Date: Mon, 5 May 1997 19:14:27 +0000 (+0000)
Subject: (x_reply_selection_request): Delete the inner
X-Git-Tag: emacs-20.1~2277
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f5c7718e0e096bd2e2fbe30ea4f5f2afeac252c4;p=emacs.git

(x_reply_selection_request): Delete the inner
unbind_to call, since x_uncatch_errors does the job.
---

diff --git a/src/xselect.c b/src/xselect.c
index 81cce31abad..8a8bf362dc8 100644
--- a/src/xselect.c
+++ b/src/xselect.c
@@ -551,7 +551,6 @@ x_reply_selection_request (event, format, data, size, type)
       /* Send an INCR selection.  */
       struct prop_location *wait_object;
       int had_errors;
-      int count = specpdl_ptr - specpdl;
       Lisp_Object frame;
 
       frame = some_frame_on_display (dpyinfo);
@@ -633,8 +632,6 @@ x_reply_selection_request (event, format, data, size, type)
 
       XChangeProperty (display, window, reply.property, type, format,
 		       PropModeReplace, data, 0);
-
-      unbind_to (count, Qnil);
     }
 
   XFlush (display);