Mercurial > hg > xemacs-beta

comparison lisp/msw-select.el @ 442:abe6d1db359e r21-2-36

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-36
author cvs
date Mon, 13 Aug 2007 11:35:02 +0200
parents 3ecd8885ac67
children 308d34e9f07d
comparison
equal deleted inserted replaced
441:72a7cfa4a488 442:abe6d1db359e
36 "Insert the current contents of the mswindows clipboard at point, 36 "Insert the current contents of the mswindows clipboard at point,
37 replacing the active selection if there is one." 37 replacing the active selection if there is one."
38 (interactive "*") 38 (interactive "*")
39 (setq last-command nil) 39 (setq last-command nil)
40 (setq this-command 'yank) ; so that yank-pop works. 40 (setq this-command 'yank) ; so that yank-pop works.
41 (let ((clip (mswindows-get-clipboard)) (s (mark-marker)) (e (point-marker))) 41 (let ((clip (get-clipboard)) (s (mark-marker)) (e (point-marker)))
42 (or clip (error "there is no text on the clipboard")) 42 (or clip (error "there is no text on the clipboard"))
43 (if s 43 (if s
44 (if mouse-track-rectangle-p 44 (if mouse-track-rectangle-p
45 (delete-rectangle s e) 45 (delete-rectangle s e)
46 (delete-region s e))) 46 (delete-region s e)))