Mercurial > hg > xemacs-beta

comparison lisp/msw-select.el @ 249:83b3d10dcba9 r20-5b23

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-5b23
author cvs
date Mon, 13 Aug 2007 10:19:09 +0200
parents 6c0ae1f9357f
children 7df0dd720c89
comparison
equal deleted inserted replaced
248:ad40ac2754d8 249:83b3d10dcba9
29 29
30 ;; This file is dumped with XEmacs (when mswindows support is compiled in). 30 ;; This file is dumped with XEmacs (when mswindows support is compiled in).
31 ;; #### Only copes with copying/pasting text 31 ;; #### Only copes with copying/pasting text
32 32
33 ;;; Code: 33 ;;; Code:
34
35 ;(defun mswindows-paste-clipboard ()
36 ; "Insert the current contents of the Clipboard at point."
37 ; (interactive "*")
38 ; (setq last-command nil)
39 ; (setq this-command 'yank) ; so that yank-pop works.
40 ; (let ((clip (mswindows-get-clipboard)))
41 ; (or clip (error "there is no clipboard selection"))
42 ; (push-mark)
43 ; (insert clip)))
44 34
45 (defun mswindows-paste-clipboard () 35 (defun mswindows-paste-clipboard ()
46 "Insert the current contents of the mswindows clipboard at point, 36 "Insert the current contents of the mswindows clipboard at point,
47 replacing the active selection if there is one." 37 replacing the active selection if there is one."
48 (interactive "*") 38 (interactive "*")