ld/multiple-cursors.el
1
0
Fork 0
mirror of https://github.com/magnars/multiple-cursors.el.git synced 2025-10-14 05:13:05 +00:00
Code Issues Packages Projects Releases Wiki Activity

Add more explanatory prose.

Browse Source
This commit is contained in:
Magnar Sveen 2012-07-18 09:15:50 +02:00
parent 37ddaf2cbe
commit 6f9911fa98
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
multiple-cursors-core.el
View File

@ -202,6 +202,8 @@ from being executed if in multiple-cursors-mode."
(when interprogram-paste (when interprogram-paste
;; Add interprogram-paste to normal kill ring, just ;; Add interprogram-paste to normal kill ring, just
;; like current-kill usually does for itself. ;; like current-kill usually does for itself.
;; We have to do the work for it tho, since the funcall only returns
;; something once. It is not a pure function.
(let ((interprogram-cut-function nil)) (let ((interprogram-cut-function nil))
(if (listp interprogram-paste) (if (listp interprogram-paste)
(mapc 'kill-new (nreverse interprogram-paste)) (mapc 'kill-new (nreverse interprogram-paste))