Skip to content

Instantly share code, notes, and snippets.

@ramen

ramen/gist:606906

Created October 1, 2010 21:38
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save ramen/606906 to your computer and use it in GitHub Desktop.
Save ramen/606906 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
gistfile1.cl
(defun move-region-up (arg)
(interactive "p")
(unless mark-active (mark-line 1))
(kill-region (region-beginning) (region-end))
(unwind-protect
(forward-line (- arg))
(yank))
(setq deactivate-mark nil))
(defun move-region-down (arg)
(interactive "p")
(unless mark-active (mark-line 1))
(kill-region (region-beginning) (region-end))
(unwind-protect
(forward-line arg)
(yank))
(setq deactivate-mark nil))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment