Mercurial > hg > xemacs-beta

comparison lisp/select.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 cc15677e0335
children aabb7f5b1c81
comparison
equal deleted inserted replaced
379:76b7d63099ad 380:8626e4521993
271 (if rect-p 271 (if rect-p
272 (progn 272 (progn
273 ;; why is killed-rectangle free? Is it used somewhere? 273 ;; why is killed-rectangle free? Is it used somewhere?
274 ;; should it be defvarred? 274 ;; should it be defvarred?
275 (setq killed-rectangle (extract-rectangle s e)) 275 (setq killed-rectangle (extract-rectangle s e))
276 (kill-new (mapconcat 'identity killed-rectangle "\n"))) 276 (kill-new (mapconcat #'identity killed-rectangle "\n")))
277 (copy-region-as-kill s e)) 277 (copy-region-as-kill s e))
278 ;; Maybe killing doesn't own clipboard. Make sure it happens. 278 ;; Maybe killing doesn't own clipboard. Make sure it happens.
279 ;; This memq is kind of grody, because they might have done it 279 ;; This memq is kind of grody, because they might have done it
280 ;; some other way, but owning the clipboard twice in that case 280 ;; some other way, but owning the clipboard twice in that case
281 ;; wouldn't actually hurt anything. 281 ;; wouldn't actually hurt anything.