Mercurial > hg > xemacs-beta

comparison lisp/msw-select.el @ 286:57709be46d1b r21-0b41

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-0b41
author cvs
date Mon, 13 Aug 2007 10:35:03 +0200
parents 558f606b08ae
children e11d67e05968
comparison
equal deleted inserted replaced
285:9a3756523c1b 286:57709be46d1b
47 (push-mark) 47 (push-mark)
48 (if mouse-track-rectangle-p 48 (if mouse-track-rectangle-p
49 (insert-rectangle clip) 49 (insert-rectangle clip)
50 (insert clip)))) 50 (insert clip))))
51 51
52 (defun mswindows-clear-clipboard () 52 (defun mswindows-own-clipboard (string)
53 "Delete the selection without copying it to the clipboard or the kill ring." 53 "Paste the given string to the mswindows clipboard."
54 (interactive "*") 54 (mswindows-set-clipboard string))
55 (mswindows-cut-copy-clear-clipboard 'clear))
56
57 (defun mswindows-copy-clipboard ()
58 "Copy the selection to the mswindows clipboard and to the kill ring."
59 (interactive)
60 (mswindows-cut-copy-clear-clipboard 'copy))
61
62 (defun mswindows-cut-clipboard ()
63 "Copy the selection to the mswindows clipboard and to the kill ring,
64 then delete it."
65 (interactive "*")
66 (mswindows-cut-copy-clear-clipboard 'cut))
67 55
68 (defun mswindows-cut-copy-clear-clipboard (mode) 56 (defun mswindows-cut-copy-clear-clipboard (mode)
69 "Don't use this function. 57 "Don't use this function.
70 Use mswindows-cut-clipboard, mswindows-copy-clipboard or 58 Use mswindows-cut-clipboard, mswindows-copy-clipboard or
71 mswindows-clear-clipboard instead." 59 mswindows-clear-clipboard instead."
132 data) 120 data)
133 121
134 (defun mswindows-disown-selection (&optional secondary-p) 122 (defun mswindows-disown-selection (&optional secondary-p)
135 "Assuming we own the selection, disown it. With an argument, discard the 123 "Assuming we own the selection, disown it. With an argument, discard the
136 secondary selection instead of the primary selection." 124 secondary selection instead of the primary selection."
137 (setq mswindows-selection-owned-p nil)) 125 (setq mswindows-selection-owned-p nil)
126 (mswindows-delete-selection))
138 127
139 (defun mswindows-selection-owner-p (&optional selection) 128 (defun mswindows-selection-owner-p (&optional selection)
140 "Return t if current emacs process owns the given Selection. 129 "Return t if current emacs process owns the given Selection.
141 The arg is ignored." 130 The arg is ignored."
142 (not (eq mswindows-selection-owned-p nil))) 131 (not (eq mswindows-selection-owned-p nil)))