1029 |
(echo-keystrokes 0) |
(echo-keystrokes 0) |
1030 |
event events key ignore |
event events key ignore |
1031 |
(x-lost-selection-functions |
(x-lost-selection-functions |
1032 |
(if (boundp 'x-lost-selection-functions) |
(when (boundp 'x-lost-selection-functions) |
1033 |
(copy-sequence x-lost-selection-functions)))) |
(copy-sequence x-lost-selection-functions)))) |
1034 |
(add-hook 'x-lost-selection-hook |
(add-hook 'x-lost-selection-functions |
1035 |
(lambda (seltype) |
(lambda (seltype) |
1036 |
(if (eq seltype 'PRIMARY) |
(when (eq seltype 'PRIMARY) |
1037 |
(progn (setq ignore t) |
(setq ignore t) |
1038 |
(throw 'mouse-show-mark t))))) |
(throw 'mouse-show-mark t)))) |
1039 |
(if transient-mark-mode |
(if transient-mark-mode |
1040 |
(delete-overlay mouse-drag-overlay) |
(delete-overlay mouse-drag-overlay) |
1041 |
(move-overlay mouse-drag-overlay (point) (mark t))) |
(move-overlay mouse-drag-overlay (point) (mark t))) |
1065 |
nil keys) |
nil keys) |
1066 |
(setq events nil))))))) |
(setq events nil))))))) |
1067 |
;; If we lost the selection, just turn off the highlighting. |
;; If we lost the selection, just turn off the highlighting. |
1068 |
(if ignore |
(unless ignore |
|
nil |
|
1069 |
;; For certain special keys, delete the region. |
;; For certain special keys, delete the region. |
1070 |
(if (member key mouse-region-delete-keys) |
(if (member key mouse-region-delete-keys) |
1071 |
(delete-region (overlay-start mouse-drag-overlay) |
(delete-region (overlay-start mouse-drag-overlay) |