Mercurial > hg > xemacs-beta
diff lisp/msw-select.el @ 249:83b3d10dcba9 r20-5b23
Import from CVS: tag r20-5b23
author | cvs |
---|---|
date | Mon, 13 Aug 2007 10:19:09 +0200 |
parents | 6c0ae1f9357f |
children | 7df0dd720c89 |
line wrap: on
line diff
--- a/lisp/msw-select.el Mon Aug 13 10:18:22 2007 +0200 +++ b/lisp/msw-select.el Mon Aug 13 10:19:09 2007 +0200 @@ -32,16 +32,6 @@ ;;; Code: -;(defun mswindows-paste-clipboard () -; "Insert the current contents of the Clipboard at point." -; (interactive "*") -; (setq last-command nil) -; (setq this-command 'yank) ; so that yank-pop works. -; (let ((clip (mswindows-get-clipboard))) -; (or clip (error "there is no clipboard selection")) -; (push-mark) -; (insert clip))) - (defun mswindows-paste-clipboard () "Insert the current contents of the mswindows clipboard at point, replacing the active selection if there is one."