Skip to content

Instantly share code, notes, and snippets.

What would you like to do?
Kill and paste disjoint buffers
(setq ay/disjoint-buffer '())
(defun ay/disjoint-kill ()
(add-to-list 'ay/disjoint-buffer
(delete-region (region-beginning)
(defun ay/disjoint-yank ()
(mapcar (lambda (arg)
(insert arg "\n"))
(setq ay/disjoint-buffer '()))
(global-set-key "\C-c\C-w" 'ay/disjoint-kill)
(global-set-key "\C-c\C-y" 'ay/disjoint-yank)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
You can’t perform that action at this time.