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

um-yank

Browse source
This commit is contained in:
bth 2026-05-30 17:00:13 -07:00
commit 3af014ea42
1 changed files with 3 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

4
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-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)))
@ -401,7 +402,8 @@ Optional TAGS string may contain more than one tag separated by a comma.
"p" 'previous-line "p" 'previous-line
"M-p" 'um-drag-stuff-up "M-p" 'um-drag-stuff-up
"M-n" 'um-drag-stuff-down "M-n" 'um-drag-stuff-down
"M-k" 'um-kill-line "C-k" 'um-kill-line
"C-y" 'um-yank
"t" 'um-tag-dwim-inhibit-read-only "t" 'um-tag-dwim-inhibit-read-only
) )