bth/um-mode
Watch
1
Fork
You've already forked um-mode
 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

um-kill-region

Browse source
This commit is contained in:
bth 2026-05-30 17:10:55 -07:00
commit f5681d2af4
1 changed files with 2 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

2
um.el
View file

@ -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-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-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-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-yank () (interactive) (um-inhibit-read-only 'yank))
(defun um-tag-dwim-inhibit-read-only (arg) (interactive "p") (defun um-tag-dwim-inhibit-read-only (arg) (interactive "p")
(um-inhibit-read-only 'um-tag-dwim (list arg))) (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-p" 'um-drag-stuff-up
"M-n" 'um-drag-stuff-down "M-n" 'um-drag-stuff-down
"C-k" 'um-kill-line "C-k" 'um-kill-line
"C-w" 'um-kill-region
"C-y" 'um-yank "C-y" 'um-yank
"t" 'um-tag-dwim-inhibit-read-only "t" 'um-tag-dwim-inhibit-read-only
) )