Rename some Emacs commands

1 files changed, 6 insertions, 6 deletions

diff --git a/.emacs b/.emacs
index 1359c84..c07980a 100644
--- a/.emacs
+++ b/.emacs
@@ -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."