Working on copy & paste:
(define (cut-selection-ranges-to-copy-buffer-var buffer)<br></br>(copy-selection-ranges-to-copy-buffer-var buffer)<br></br>(clear-selection-ranges-var buffer))<br></br><br></br>(define (paste-copy-buffer-var buffer)<br></br>(buffer-insert-undoable buffer<br></br>#f<br></br>(buffer-to-string (ensure-copy-buffer-var buffer))))<br></br><br></br>;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;<br></br>;; Copy<br></br>;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;<br></br><br></br>(define (do-copy-key)<br></br>(copy-selection-ranges-to-copy-buffer-var (window-buffer (window-current))))<br></br><br></br>(keymap-add-fun %global-keymap<br></br>do-copy-key<br></br>"Cc")<br></br>
Now when I think “I wish there was a function to do x…”, more often than not I find I’ve already written it. :-)