Mercurial > hg > xemacs-beta

comparison lisp/select.el @ 388:aabb7f5b1c81 r21-2-9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-9
author cvs
date Mon, 13 Aug 2007 11:09:42 +0200
parents 8626e4521993
children 74fd4e045ea6
comparison
equal deleted inserted replaced
387:f892a9d0bb8d 388:aabb7f5b1c81
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)