[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] /srv/bzr/emacs/trunk r105151: Fix execution of x selection
From: |
Johan Bockgård |
Subject: |
[Emacs-diffs] /srv/bzr/emacs/trunk r105151: Fix execution of x selection hooks. |
Date: |
Wed, 13 Jul 2011 03:48:43 +0200 |
User-agent: |
Bazaar (2.3.1) |
------------------------------------------------------------
revno: 105151
committer: Johan Bockgård <address@hidden>
branch nick: trunk
timestamp: Wed 2011-07-13 03:48:43 +0200
message:
Fix execution of x selection hooks.
* xselect.c (Qx_lost_selection_functions)
(Qx_sent_selection_functions): New vars.
(syms_of_xselect): DEFSYM them.
(x_handle_selection_request): Pass Qx_sent_selection_functions
rather than Vx_sent_selection_functions to Frun_hook_with_args.
(x_handle_selection_clear,x_clear_frame_selections):
Pass Qx_lost_selection_functions rather than
Vx_lost_selection_functions to Frun_hook_with_args.
modified:
src/ChangeLog
src/xselect.c
=== modified file 'src/ChangeLog'
--- a/src/ChangeLog 2011-07-13 01:15:33 +0000
+++ b/src/ChangeLog 2011-07-13 01:48:43 +0000
@@ -1,3 +1,15 @@
+2011-07-13 Johan Bockgård <address@hidden>
+
+ Fix execution of x selection hooks.
+ * xselect.c (Qx_lost_selection_functions)
+ (Qx_sent_selection_functions): New vars.
+ (syms_of_xselect): DEFSYM them.
+ (x_handle_selection_request): Pass Qx_sent_selection_functions
+ rather than Vx_sent_selection_functions to Frun_hook_with_args.
+ (x_handle_selection_clear,x_clear_frame_selections):
+ Pass Qx_lost_selection_functions rather than
+ Vx_lost_selection_functions to Frun_hook_with_args.
+
2011-07-13 Paul Eggert <address@hidden>
* buffer.c (Fget_buffer_create): Initialized inhibit_shrinking.
=== modified file 'src/xselect.c'
--- a/src/xselect.c 2011-06-21 02:16:54 +0000
+++ b/src/xselect.c 2011-07-13 01:48:43 +0000
@@ -112,6 +112,7 @@
static Lisp_Object Qcompound_text_with_extensions;
static Lisp_Object Qforeign_selection;
+static Lisp_Object Qx_lost_selection_functions, Qx_sent_selection_functions;
/* If this is a smaller number than the max-request-size of the display,
emacs will use INCR selection transfer when the selection is larger
@@ -855,7 +856,7 @@
&& !EQ (Vx_sent_selection_functions, Qunbound))
{
Lisp_Object args[4];
- args[0] = Vx_sent_selection_functions;
+ args[0] = Qx_sent_selection_functions;
args[1] = selection_symbol;
args[2] = target_symbol;
args[3] = success ? Qt : Qnil;
@@ -979,7 +980,7 @@
/* Run the `x-lost-selection-functions' abnormal hook. */
{
Lisp_Object args[2];
- args[0] = Vx_lost_selection_functions;
+ args[0] = Qx_lost_selection_functions;
args[1] = selection_symbol;
Frun_hook_with_args (2, args);
}
@@ -1020,7 +1021,7 @@
{
/* Run the `x-lost-selection-functions' abnormal hook. */
Lisp_Object args[2];
- args[0] = Vx_lost_selection_functions;
+ args[0] = Qx_lost_selection_functions;
args[1] = Fcar (Fcar (t->Vselection_alist));
Frun_hook_with_args (2, args);
@@ -1033,7 +1034,7 @@
&& EQ (frame, XCAR (XCDR (XCDR (XCDR (XCAR (XCDR (rest))))))))
{
Lisp_Object args[2];
- args[0] = Vx_lost_selection_functions;
+ args[0] = Qx_lost_selection_functions;
args[1] = XCAR (XCAR (XCDR (rest)));
Frun_hook_with_args (2, args);
XSETCDR (rest, XCDR (XCDR (rest)));
@@ -2679,4 +2680,6 @@
DEFSYM (QNULL, "NULL");
DEFSYM (Qcompound_text_with_extensions, "compound-text-with-extensions");
DEFSYM (Qforeign_selection, "foreign-selection");
+ DEFSYM (Qx_lost_selection_functions, "x-lost-selection-functions");
+ DEFSYM (Qx_sent_selection_functions, "x-sent-selection-functions");
}
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] /srv/bzr/emacs/trunk r105151: Fix execution of x selection hooks.,
Johan Bockgård <=