2 files changed, 63 insertions(+), 0 deletions(-)

A README.md
A view-kill.el

@@ 1,13 @@
+# view-kill
+
+Very simple but extemely useful emacs script for viewing your kill ring.
+
+<b>view-kill</b> \
+Displays the entire kill ring as a single menu of numbered items. \
+Select a number to insert that item into your current buffer. \
+Use &lt;SPACE&gt; to scroll. \
+Note: the length of your kill ring is controlled by the variable 'kill-ring-max'.
+
+Just copy to your .emacs file.
+
+https://www.emacswiki.org/emacs/view-kill.el

@@ 1,50 @@
+;; VIEW-KILL
+
+;; Displays the entire kill ring as a single page of numbered items.
+;; Select a number to insert that item into your current buffer.
+;; Use <SPACE> to scroll.
+;; The length of the kill ring is controlled by the variable `kill-ring-max';
+
+
+(defun view-kill ()
+  (interactive)
+  (save-excursion
+    (save-window-excursion
+      (let ((working-buffer (current-buffer))
+            (new-buffer (get-buffer-create "kill-ring-view"))
+            (count 0)
+            (custom-map (copy-keymap minibuffer-local-map))
+            (selection nil)
+            )      
+        (unwind-protect
+            (progn
+              (define-key custom-map " " 'scroll-other-window)
+              
+              (switch-to-buffer new-buffer t)
+              (delete-other-windows)
+              
+              (dolist (x kill-ring)
+                (insert (concat "----- " 
+                                (number-to-string count) 
+                                " -----"))
+                (newline)
+                (insert x)
+                (newline)
+                (newline)
+                (setq count (+ count 1))
+                )
+              (goto-char (point-min))
+              
+              (let ((choice (read-from-minibuffer "choose: " nil custom-map t nil "x")))
+                (and (numberp choice)
+                     (< choice count)
+                     (progn
+                       (set-buffer working-buffer)
+                       (insert (nth choice kill-ring))
+                       (setq selection choice)
+                       ))
+                ))
+          (kill-buffer new-buffer) ; unwind-protect clean-up form
+          )
+        selection
+        ))))