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))))) |