diff options
Diffstat (limited to 'modules')
| -rw-r--r-- | modules/show-kill-ring.el | 11 |
1 files changed, 4 insertions, 7 deletions
diff --git a/modules/show-kill-ring.el b/modules/show-kill-ring.el index c50e5dbb..d5217719 100644 --- a/modules/show-kill-ring.el +++ b/modules/show-kill-ring.el @@ -16,7 +16,6 @@ (defvar show-kill-max-item-size 1000 "This represents the size of a \='kill ring\=' entry. - A positive number means to limit the display of \='kill-ring\=' items to that number of characters.") @@ -27,7 +26,6 @@ that number of characters.") (defun show-kill-ring () "Show the current contents of the kill ring in a separate buffer. - This makes it easy to figure out which prefix to pass to yank." (interactive) ;; kill existing one, since erasing it doesn't work @@ -66,7 +64,7 @@ This makes it easy to figure out which prefix to pass to yank." ;; use define-key instead of local-set-key (use-local-map (make-sparse-keymap)) - (define-key (current-local-map) "q" 'show-kill-ring-exit) + (define-key (current-local-map) "q" #'show-kill-ring-exit) ;; show it (goto-char (point-min)) @@ -79,7 +77,6 @@ This makes it easy to figure out which prefix to pass to yank." (defun show-kill-insert-item (item) "Insert an ITEM from the kill ring into the current buffer. - If it's too long, truncate it first." (let ((max show-kill-max-item-size)) (cond @@ -91,7 +88,7 @@ If it's too long, truncate it first." ;; put ellipsis on its own line if item is longer than 1 line (let ((preview (substring item 0 max))) (if (< (length item) (- (frame-width) 5)) - (insert (concat preview "..." )) + (insert (concat preview "...")) (insert (concat preview "\n...")))))))) (defun show-kill-insert-header () @@ -104,7 +101,7 @@ If it's too long, truncate it first." "Insert final divider and the yank-pointer (YPTR YNUM) info." (when kill-ring (save-excursion - (re-search-backward "^\\(=+ Item [0-9]+\\ +=+\\)$")) + (re-search-backward "^\\(=+ Item [0-9]+ =+\\)$")) (insert "\n") (insert (make-string (length (match-string 1)) ?=)) ;; Use number-to-string instead of int-to-string @@ -119,7 +116,7 @@ If it's too long, truncate it first." (setq kill-ring nil) (garbage-collect)) -(global-set-key (kbd "M-K") 'show-kill-ring) +(keymap-global-set "M-K" #'show-kill-ring) (provide 'show-kill-ring) ;;; show-kill-ring.el ends here |