Mercurial > hg > xemacs-beta
view lisp/msw-select.el @ 5083:88f955fa5a7f
Back out revision c673987f5f3d, undump mule/make-coding-system.el.
lisp/ChangeLog addition:
2010-02-26 Aidan Kehoe <kehoea@parhasard.net>
Back out Ben's revision c673987f5f3d.
* coding.el:
Add a compiler macro for #'make-coding-system on non-Mule builds
too, to fix the problem he addressed with that changeset.
* mule/make-coding-system.el (fixed-width-private-use-start):
Don't call (decode-char ... 'ucs) here, it can make bootstrapping
harder.
src/ChangeLog addition:
2010-02-26 Aidan Kehoe <kehoea@parhasard.net>
* file-coding.c (Fmake_coding_system_internal):
Be somewhat clearer in this docstring, especially for the sake of
people running non-Mule builds who will see this docstring when
they do F1 f make-coding-system RET.
author | Aidan Kehoe <kehoea@parhasard.net> |
---|---|
date | Fri, 26 Feb 2010 15:52:24 +0000 (2010-02-26) |
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))))