Mercurial > hg > xemacs-beta

comparison lisp/x-mouse.el @ 380:8626e4521993 r21-2-5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-5
author cvs
date Mon, 13 Aug 2007 11:07:10 +0200
parents 4b85ae5eabfb
children 74fd4e045ea6
comparison
equal deleted inserted replaced
379:76b7d63099ad 380:8626e4521993
117 ((consp primary-selection-extent) 117 ((consp primary-selection-extent)
118 (save-excursion 118 (save-excursion
119 (set-buffer (extent-object (car primary-selection-extent))) 119 (set-buffer (extent-object (car primary-selection-extent)))
120 (x-store-cutbuffer 120 (x-store-cutbuffer
121 (mapconcat 121 (mapconcat
122 'identity 122 #'identity
123 (extract-rectangle 123 (extract-rectangle
124 (extent-start-position (car primary-selection-extent)) 124 (extent-start-position (car primary-selection-extent))
125 (extent-end-position (car (reverse primary-selection-extent)))) 125 (extent-end-position (car (reverse primary-selection-extent))))
126 "\n")))) 126 "\n"))))
127 (t 127 (t