Completion for yank

* basic.el (global-map): Bind it.

* common.el (yank-complete-rotated-kill-ring): Rotating the kill ring
so that the last kill is at the top.

(yank-complete-history): History variable.

(yank-complete): Use `completing-read' for choosing some text that was
killed before.

1 files changed, 5 insertions, 0 deletions

diff --git a/basic.el b/basic.el
index 84c358c..0715aea 100644
--- a/basic.el
+++ b/basic.el
@@ -202,6 +202,11 @@ window, then also delete the selected window."
 
 (define-key global-map (vector (logior (ash 1 27) #x5a)) #'zap-up-to-char)
 
+;;; Completion enhanced yank
+
+(define-key global-map (vector ?\M-y) #'yank-pop)
+(define-key global-map (vector ?\C-\M-y) #'yank-complete)
+
 ;;; Repeating pops
 
 ;;;###autoload