Mercurial > hg > xemacs-beta
comparison lisp/select.el @ 3072:4c038e89d563
[xemacs-hg @ 2005-11-16 07:22:37 by stephent]
Assorted minor fixes.
TODO comment in configure.ac:
<87irutytzq.fsf@tleepslib.sk.tsukuba.ac.jp>
Avoid warning, don't redefine integer types on Mac OS X:
<87ek5hytvq.fsf@tleepslib.sk.tsukuba.ac.jp>
Fix uninitialized variable:
<87acg5yttp.fsf@tleepslib.sk.tsukuba.ac.jp>
Eliminate warnings for unused parameters and functions:
<8764qtytrp.fsf@tleepslib.sk.tsukuba.ac.jp>
Quiet byte-compiler in select.el:
<871x1hytow.fsf@tleepslib.sk.tsukuba.ac.jp>
Quiet compiler about unused parameters in sound.el:
<87wtj9xf16.fsf@tleepslib.sk.tsukuba.ac.jp>
| author | stephent |
|---|---|
| date | Wed, 16 Nov 2005 07:22:46 +0000 |
| parents | 0ba09d009197 |
| children | cef5f57bb9e2 |
comparison
equal
deleted
inserted
replaced
| 3071:a80f978d8342 | 3072:4c038e89d563 |
|---|---|
| 129 (let ((targets (append (get-selection-internal type 'TARGETS) nil)) | 129 (let ((targets (append (get-selection-internal type 'TARGETS) nil)) |
| 130 res) | 130 res) |
| 131 (catch 'converted | 131 (catch 'converted |
| 132 (if targets | 132 (if targets |
| 133 (dolist (current-preference data-type) | 133 (dolist (current-preference data-type) |
| 134 (condition-case err | 134 (condition-case nil |
| 135 (if (and (memq current-preference targets) | 135 (if (and (memq current-preference targets) |
| 136 (setq res (get-selection-internal | 136 (setq res (get-selection-internal |
| 137 type current-preference))) | 137 type current-preference))) |
| 138 (throw 'converted res)) | 138 (throw 'converted res)) |
| 139 (selection-conversion-error | 139 (selection-conversion-error |