Parent Directory | Revision Log | Patch
revision 1.176 by lektu, Mon May 16 11:27:56 2005 UTC | revision 1.177 by handa, Fri Jun 10 01:50:51 2005 UTC | |
---|---|---|
# | Line 2467 order until succeed.") | Line 2467 order until succeed.") |
2467 | (interactive) | (interactive) |
2468 | (let ((clipboard-text | (let ((clipboard-text |
2469 | (condition-case nil | (condition-case nil |
2470 | (x-get-selection 'CLIPBOARD) | (x-selection-value 'CLIPBOARD) |
2471 | (error nil))) | (error nil))) |
2472 | (x-select-enable-clipboard t)) | (x-select-enable-clipboard t)) |
2473 | (if (and clipboard-text (> (length clipboard-text) 0)) | (if (and clipboard-text (> (length clipboard-text) 0)) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |