Mercurial > emacs
comparison lisp/mouse.el @ 111409:b5cc0d963641
* mouse.el (mouse-yank-primary): Update comment (Bug#6802).
| author | Jan D. <jan.h.d@swipnet.se> |
|---|---|
| date | Fri, 05 Nov 2010 13:11:12 +0100 |
| parents | 515d80e174ba |
| children | c00190a8c8ef |
comparison
equal
deleted
inserted
replaced
| 111408:9a159fc42f11 | 111409:b5cc0d963641 |
|---|---|
| 1278 (let (select-active-regions) | 1278 (let (select-active-regions) |
| 1279 (deactivate-mark))) | 1279 (deactivate-mark))) |
| 1280 (or mouse-yank-at-point (mouse-set-point click)) | 1280 (or mouse-yank-at-point (mouse-set-point click)) |
| 1281 (let ((primary | 1281 (let ((primary |
| 1282 (cond | 1282 (cond |
| 1283 ((fboundp 'x-get-selection-value) ; MS-DOS and MS-Windows | 1283 ((fboundp 'x-get-selection-value) ; MS-DOS, MS-Windows and X. |
| 1284 (or (x-get-selection-value) | 1284 (or (x-get-selection-value) |
| 1285 (x-get-selection 'PRIMARY))) | 1285 (x-get-selection 'PRIMARY))) |
| 1286 ;; FIXME: What about xterm-mouse-mode etc.? | 1286 ;; FIXME: What about xterm-mouse-mode etc.? |
| 1287 (t | 1287 (t |
| 1288 (x-get-selection 'PRIMARY))))) | 1288 (x-get-selection 'PRIMARY))))) |