diff options
| -rw-r--r-- | .emacs | 12 |
1 files changed, 6 insertions, 6 deletions
@@ -172,11 +172,11 @@ (kill-new stuff) (message stuff)) -(defun my/kill-ring-filename () +(defun my/kill-filename () (interactive) (my/kill (or (buffer-file-name) default-directory))) -(defun my/kill-ring-pipe-region (command) +(defun my/kill-pipe-region (command) (interactive (list (read-shell-command "Shell command on region: "))) (let ((input (funcall region-extract-function nil))) (with-temp-buffer @@ -185,7 +185,7 @@ t t nil shell-command-switch command) (my/kill (buffer-string))))) -(defun my/kill-ring-shell (command) +(defun my/kill-shell (command) (interactive (list (read-shell-command "Shell command: "))) (with-temp-buffer (call-process-shell-command command nil t) @@ -244,9 +244,9 @@ (my/define-prefix-command my/kill-map "Keymap for adding things to the kill ring." - '(("f" my/kill-ring-filename) - ("|" my/kill-ring-pipe-region) - ("!" my/kill-ring-shell))) + '(("f" my/kill-filename) + ("|" my/kill-pipe-region) + ("!" my/kill-shell))) (my/define-prefix-command my/manual-map "Keymap for reading manuals." |