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

use drag-stuff-up with negative arg

Browse source
This commit is contained in:
bth 2026-07-05 10:05:28 -07:00
commit 42fba5f12a
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
um.el
View file

@ -584,8 +584,8 @@ A negative prefix argument moves it backward.
(um--set-cursor-intangible-property))) (um--set-cursor-intangible-property)))
(defun um-drag-stuff-up () (interactive) (um--iro 'drag-stuff-up '(1))) (defun um-drag-stuff-up () (interactive) (um--iro 'drag-stuff-up '(1)))
;; TODO: drag-stuff-down is breaking um--set-cursor-intangible-property ;; HACK: drag-stuff-down breaks um--set-cursor-intangible-property for some reason. just use drag-stuff-up with negative arg:
(defun um-drag-stuff-down () (interactive) (um--iro 'drag-stuff-down '(1))) (defun um-drag-stuff-down () (interactive) (um--iro 'drag-stuff-up '(-1)))
(defun um-kill-line () (interactive) (um--iro 'kill-line)) (defun um-kill-line () (interactive) (um--iro 'kill-line))
(defun um-kill-region () (interactive) (um--iro 'kill-region '(nil nil t))) (defun um-kill-region () (interactive) (um--iro 'kill-region '(nil nil t)))
;; NOTE: parallel to dired-copy-filename-as-kill ;; NOTE: parallel to dired-copy-filename-as-kill