view lisp/msw-select.el @ 4805:980575c76541

Move the arabic-iso8859-6 character set back to C, otherwise X11 lookup fails. src/ChangeLog addition: 2010-01-07 Aidan Kehoe <kehoea@parhasard.net> * mule-charset.c: (syms_of_mule_charset, complex_vars_of_mule_charset): * lisp.h: Restore the creation of arabic-iso8859-6 in C, having it in Lisp isn't sufficient for X11 input to work. lisp/ChangeLog addition: 2010-01-07 Aidan Kehoe <kehoea@parhasard.net> * unicode.el (load-unicode-tables): * mule/mule-msw-init-late.el: * mule/mule-category.el (predefined-category-list): * mule/arabic.el: Move arabic-iso8859-6 back to C, it needs to be there, otherwise X11 character input lookup fails.
author Aidan Kehoe <kehoea@parhasard.net>
date Thu, 07 Jan 2010 15:52:10 +0000
parents abe6d1db359e
children 308d34e9f07d
line wrap: on
line source

;;; msw-select.el --- Lisp interface to mswindows selections.

;; Copyright (C) 1990, 1997 Free Software Foundation, Inc.
;; Copyright (C) 1995 Sun Microsystems.

;; Maintainer: XEmacs Development Team
;; Keywords: extensions, dumped

;; This file is part of XEmacs.

;; XEmacs is free software; you can redistribute it and/or modify it
;; under the terms of the GNU General Public License as published by
;; the Free Software Foundation; either version 2, or (at your option)
;; any later version.

;; XEmacs is distributed in the hope that it will be useful, but
;; WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
;; General Public License for more details.

;; You should have received a copy of the GNU General Public License
;; along with XEmacs; see the file COPYING.  If not, write to the 
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
;; Boston, MA 02111-1307, USA.

;;; Synched up with: Not in FSF

;;; Commentary:

;; This file is dumped with XEmacs (when mswindows support is compiled in).
;; #### Only copes with copying/pasting text

;;; Code:

(defun mswindows-paste-clipboard ()
  "Insert the current contents of the mswindows clipboard at point,
replacing the active selection if there is one."
  (interactive "*")
  (setq last-command nil)
  (setq this-command 'yank) ; so that yank-pop works.
  (let ((clip (get-clipboard)) (s (mark-marker)) (e (point-marker)))
    (or clip (error "there is no text on the clipboard"))
    (if s
	(if mouse-track-rectangle-p
	    (delete-rectangle s e)
	  (delete-region s e)))
    (push-mark)
    (if mouse-track-rectangle-p
	(insert-rectangle clip)
      (insert clip))))