Mercurial > hg > xemacs-beta

comparison lisp/select.el @ 331:c9ae480b1fff r21-0-63

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-0-63
author cvs
date Mon, 13 Aug 2007 10:49:07 +0200
parents 3cc9f0ebfbd1
children cc15677e0335
comparison
equal deleted inserted replaced
330:a33651c9de0e 331:c9ae480b1fff
66 (x (x-yank-clipboard-selection)) 66 (x (x-yank-clipboard-selection))
67 (mswindows (mswindows-paste-clipboard)) 67 (mswindows (mswindows-paste-clipboard))
68 (otherwise nil))) 68 (otherwise nil)))
69 69
70 (defun selection-owner-p (&optional selection) 70 (defun selection-owner-p (&optional selection)
71 "Return t if current emacs process owns the given Selection. 71 "Return t if current XEmacs process owns the given Selection.
72 The arg should be the name of the selection in question, typically one 72 The arg should be the name of the selection in question, typically one
73 of the symbols PRIMARY, SECONDARY, or CLIPBOARD. (For convenience, 73 of the symbols PRIMARY, SECONDARY, or CLIPBOARD. (For convenience,
74 the symbol nil is the same as PRIMARY, and t is the same as 74 the symbol nil is the same as PRIMARY, and t is the same as
75 SECONDARY.)" 75 SECONDARY.)"
76 (interactive) 76 (interactive)
247 'valid-simple-selection-p) 247 'valid-simple-selection-p)
248 248
249 (defun cut-copy-clear-internal (mode) 249 (defun cut-copy-clear-internal (mode)
250 (or (memq mode '(cut copy clear)) (error "unkown mode %S" mode)) 250 (or (memq mode '(cut copy clear)) (error "unkown mode %S" mode))
251 (or (selection-owner-p) 251 (or (selection-owner-p)
252 (error "emacs does not own the primary selection")) 252 (error "XEmacs does not own the primary selection"))
253 (setq last-command nil) 253 (setq last-command nil)
254 (or primary-selection-extent 254 (or primary-selection-extent
255 (error "the primary selection is not an extent?")) 255 (error "the primary selection is not an extent?"))
256 (save-excursion 256 (save-excursion
257 (let (rect-p b s e) 257 (let (rect-p b s e)