diff options
| author | Karoly Lorentey | 2007-04-22 12:42:47 +0000 |
|---|---|---|
| committer | Karoly Lorentey | 2007-04-22 12:42:47 +0000 |
| commit | 9d0799072a0d09bc14a99eaf372b262d1ba61399 (patch) | |
| tree | 76acd4ae0559776a5ec27fbd5c25598285ec71d1 /src/macselect.c | |
| parent | e18c709364b095ea0be8ecabe458ac9a642a252f (diff) | |
| parent | a20becf321f023c6dc1831595712576d64e2ef4b (diff) | |
| download | emacs-9d0799072a0d09bc14a99eaf372b262d1ba61399.tar.gz emacs-9d0799072a0d09bc14a99eaf372b262d1ba61399.zip | |
Merged from emacs@sv.gnu.org
Patches applied:
* emacs@sv.gnu.org/emacs--devo--0--patch-674
Merge from gnus--rel--5.10
* emacs@sv.gnu.org/emacs--devo--0--patch-675
Update from CVS
* emacs@sv.gnu.org/emacs--devo--0--patch-676
Update from CVS
* emacs@sv.gnu.org/emacs--devo--0--patch-677
Update from CVS
* emacs@sv.gnu.org/emacs--devo--0--patch-678
Update from CVS
* emacs@sv.gnu.org/emacs--devo--0--patch-679
Update from CVS
* emacs@sv.gnu.org/emacs--devo--0--patch-680
Update from CVS
* emacs@sv.gnu.org/emacs--devo--0--patch-681
Update from CVS
* emacs@sv.gnu.org/emacs--devo--0--patch-682
Update from CVS
* emacs@sv.gnu.org/emacs--devo--0--patch-683
Update from CVS
* emacs@sv.gnu.org/emacs--devo--0--patch-684
Update from CVS
* emacs@sv.gnu.org/emacs--devo--0--patch-685
Merge from gnus--rel--5.10
* emacs@sv.gnu.org/emacs--devo--0--patch-686
Update from CVS
* emacs@sv.gnu.org/emacs--devo--0--patch-687
Release ERC 5.2.
* emacs@sv.gnu.org/emacs--devo--0--patch-688
Update from CVS
* emacs@sv.gnu.org/emacs--devo--0--patch-689
Update from CVS
* emacs@sv.gnu.org/emacs--devo--0--patch-690
Update from CVS
* emacs@sv.gnu.org/emacs--devo--0--patch-691
Update from CVS
* emacs@sv.gnu.org/emacs--devo--0--patch-692
Update from CVS
* emacs@sv.gnu.org/emacs--devo--0--patch-693
Update from CVS
* emacs@sv.gnu.org/emacs--devo--0--patch-694
Update from CVS
* emacs@sv.gnu.org/emacs--devo--0--patch-695
Merge from gnus--rel--5.10
* emacs@sv.gnu.org/emacs--devo--0--patch-696
Update from CVS
* emacs@sv.gnu.org/emacs--devo--0--patch-697
Merge from gnus--rel--5.10
* emacs@sv.gnu.org/emacs--devo--0--patch-698
Update from CVS
* emacs@sv.gnu.org/emacs--devo--0--patch-699
Update from CVS
* emacs@sv.gnu.org/emacs--devo--0--patch-700
Update from CVS
* emacs@sv.gnu.org/emacs--devo--0--patch-701
Update from CVS
* emacs@sv.gnu.org/gnus--rel--5.10--patch-209
Merge from emacs--devo--0
* emacs@sv.gnu.org/gnus--rel--5.10--patch-210
Update from CVS
* emacs@sv.gnu.org/gnus--rel--5.10--patch-211
Update from CVS
* emacs@sv.gnu.org/gnus--rel--5.10--patch-212
Merge from emacs--devo--0
* emacs@sv.gnu.org/gnus--rel--5.10--patch-213
Update from CVS
* emacs@sv.gnu.org/gnus--rel--5.10--patch-214
Merge from emacs--devo--0
* emacs@sv.gnu.org/gnus--rel--5.10--patch-215
Update from CVS
git-archimport-id: lorentey@elte.hu--2004/emacs--multi-tty--0--patch-601
Diffstat (limited to 'src/macselect.c')
| -rw-r--r-- | src/macselect.c | 15 |
1 files changed, 8 insertions, 7 deletions
diff --git a/src/macselect.c b/src/macselect.c index 8e86c7651e2..c6aa97d5be9 100644 --- a/src/macselect.c +++ b/src/macselect.c | |||
| @@ -386,7 +386,9 @@ get_scrap_target_type_list (scrap) | |||
| 386 | { | 386 | { |
| 387 | ScrapFlavorType flavor_type = 0; | 387 | ScrapFlavorType flavor_type = 0; |
| 388 | 388 | ||
| 389 | if (CONSP (XCAR (rest)) && SYMBOLP (target_type = XCAR (XCAR (rest))) | 389 | if (CONSP (XCAR (rest)) |
| 390 | && (target_type = XCAR (XCAR (rest)), | ||
| 391 | SYMBOLP (target_type)) | ||
| 390 | && (flavor_type = scrap_has_target_type (scrap, target_type))) | 392 | && (flavor_type = scrap_has_target_type (scrap, target_type))) |
| 391 | { | 393 | { |
| 392 | result = Fcons (target_type, result); | 394 | result = Fcons (target_type, result); |
| @@ -449,9 +451,11 @@ x_own_selection (selection_name, selection_value) | |||
| 449 | for (rest = Vselection_converter_alist; CONSP (rest); rest = XCDR (rest)) | 451 | for (rest = Vselection_converter_alist; CONSP (rest); rest = XCDR (rest)) |
| 450 | { | 452 | { |
| 451 | if (!(CONSP (XCAR (rest)) | 453 | if (!(CONSP (XCAR (rest)) |
| 452 | && SYMBOLP (type = XCAR (XCAR (rest))) | 454 | && (type = XCAR (XCAR (rest)), |
| 455 | SYMBOLP (type)) | ||
| 453 | && valid_scrap_target_type_p (type) | 456 | && valid_scrap_target_type_p (type) |
| 454 | && SYMBOLP (handler_fn = XCDR (XCAR (rest))))) | 457 | && (handler_fn = XCDR (XCAR (rest)), |
| 458 | SYMBOLP (handler_fn)))) | ||
| 455 | continue; | 459 | continue; |
| 456 | 460 | ||
| 457 | if (!NILP (handler_fn)) | 461 | if (!NILP (handler_fn)) |
| @@ -1852,10 +1856,7 @@ and the local selection value (whatever was given to `x-own-selection'). | |||
| 1852 | 1856 | ||
| 1853 | The function should return the value to send to the Scrap Manager | 1857 | The function should return the value to send to the Scrap Manager |
| 1854 | \(must be a string). A return value of nil | 1858 | \(must be a string). A return value of nil |
| 1855 | means that the conversion could not be done. | 1859 | means that the conversion could not be done. */); |
| 1856 | A return value which is the symbol `NULL' | ||
| 1857 | means that a side-effect was executed, | ||
| 1858 | and there is no meaningful selection value. */); | ||
| 1859 | Vselection_converter_alist = Qnil; | 1860 | Vselection_converter_alist = Qnil; |
| 1860 | 1861 | ||
| 1861 | DEFVAR_LISP ("x-lost-selection-functions", &Vx_lost_selection_functions, | 1862 | DEFVAR_LISP ("x-lost-selection-functions", &Vx_lost_selection_functions, |