Mercurial > hg > xemacs-beta

comparison lisp/msw-select.el @ 410:de805c49cfc1 r21-2-35

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-35
author cvs
date Mon, 13 Aug 2007 11:19:21 +0200
parents 74fd4e045ea6
children 697ef44129c6
comparison
equal deleted inserted replaced
409:301b9ebbdf3b 410:de805c49cfc1
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)))