From f5681d2af4dae4aa9730b6f0f98b1111985e5764 Mon Sep 17 00:00:00 2001 From: bth Date: Sat, 30 May 2026 17:10:55 -0700 Subject: [PATCH] um-kill-region --- um.el | 2 ++ 1 file changed, 2 insertions(+) diff --git a/um.el b/um.el index 7a821f7..8c82820 100644 --- a/um.el +++ b/um.el @@ -390,6 +390,7 @@ Optional TAGS string may contain more than one tag separated by a comma. (defun um-drag-stuff-up () (interactive) (um-inhibit-read-only 'drag-stuff-up '(1))) (defun um-drag-stuff-down () (interactive) (um-inhibit-read-only 'drag-stuff-down '(1))) (defun um-kill-line () (interactive) (um-inhibit-read-only 'kill-line)) +(defun um-kill-region () (interactive) (um-inhibit-read-only 'kill-region '(nil nil t))) (defun um-yank () (interactive) (um-inhibit-read-only 'yank)) (defun um-tag-dwim-inhibit-read-only (arg) (interactive "p") (um-inhibit-read-only 'um-tag-dwim (list arg))) @@ -403,6 +404,7 @@ Optional TAGS string may contain more than one tag separated by a comma. "M-p" 'um-drag-stuff-up "M-n" 'um-drag-stuff-down "C-k" 'um-kill-line + "C-w" 'um-kill-region "C-y" 'um-yank "t" 'um-tag-dwim-inhibit-read-only )