diff options
| author | Karl Heuer <kwzh@gnu.org> | 1995-07-17 22:14:00 +0000 |
|---|---|---|
| committer | Karl Heuer <kwzh@gnu.org> | 1995-07-17 22:14:00 +0000 |
| commit | 078ee8e6810508a4ff1edc593b057bb7b3ae9162 (patch) | |
| tree | d573bba36ede60a547cc77f33d65d29c70e50eea /src/xselect.c | |
| parent | 9ec367486ebd7384f2d9fa373c63cf8c2c6a8994 (diff) | |
| download | emacs-078ee8e6810508a4ff1edc593b057bb7b3ae9162.tar.gz | |
(x_clear_frame_selections): Delete duplicate code.
Diffstat (limited to 'src/xselect.c')
| -rw-r--r-- | src/xselect.c | 19 |
1 files changed, 0 insertions, 19 deletions
diff --git a/src/xselect.c b/src/xselect.c index 2b86e0d862e..ad0cc265861 100644 --- a/src/xselect.c +++ b/src/xselect.c @@ -818,25 +818,6 @@ x_clear_frame_selections (f) /* Otherwise, we're really honest and truly being told to drop it. Don't use Fdelq as that may QUIT;. */ - while (!NILP (Vselection_alist) - && EQ (frame, Fcar (Fcdr (Fcdr (Fcdr (Fcar (Vselection_alist))))))) - { - /* Let random Lisp code notice that the selection has been stolen. */ - Lisp_Object hooks, selection_symbol; - - hooks = Vx_lost_selection_hooks; - selection_symbol = Fcar (Vselection_alist); - - if (!EQ (hooks, Qunbound)) - { - for (; CONSP (hooks); hooks = Fcdr (hooks)) - call1 (Fcar (hooks), selection_symbol); - redisplay_preserve_echo_area (); - } - - Vselection_alist = Fcdr (Vselection_alist); - } - for (rest = Vselection_alist; !NILP (rest); rest = Fcdr (rest)) if (EQ (frame, Fcar (Fcdr (Fcdr (Fcdr (Fcar (XCONS (rest)->cdr))))))) { |