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 | 144025039fa3975df500dd035b36198e38660dbb (patch) | |
| tree | 9cecd1c414276c8aba105f397dcea2d2daf2daf5 /src/xselect.c | |
| parent | 39d8bb4dcf6aca6d728b48d5af83a7e242fba3c5 (diff) | |
| download | emacs-144025039fa3975df500dd035b36198e38660dbb.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))))))) { |