diff options
| author | Luke Hoersten <[email protected]> | 2015-02-04 11:05:42 -0600 |
|---|---|---|
| committer | Luke Hoersten <[email protected]> | 2015-02-04 11:05:42 -0600 |
| commit | 781360f5507d5e2cfc29e391116ab9943c657d70 (patch) | |
| tree | 27d30097f9c88ed80b4fe2378656517db4f4695e /lisp/move-line.el | |
| parent | 08c5c139bd0e6bbca01870bce66dd4eaddca747e (diff) | |
Big updates to haskell-mode stuff.
Diffstat (limited to 'lisp/move-line.el')
| -rw-r--r-- | lisp/move-line.el | 27 |
1 files changed, 0 insertions, 27 deletions
diff --git a/lisp/move-line.el b/lisp/move-line.el deleted file mode 100644 index 7986715..0000000 --- a/lisp/move-line.el +++ /dev/null @@ -1,27 +0,0 @@ -;; http://www.emacswiki.org/emacs/MoveLine - -(defun move-line (n) - "Move the current line up or down by N lines." - (interactive "p") - (setq col (current-column)) - (beginning-of-line) (setq start (point)) - (end-of-line) (forward-char) (setq end (point)) - (let ((line-text (delete-and-extract-region start end))) - (forward-line n) - (insert line-text) - ;; restore point to original column in moved line - (forward-line -1) - (forward-char col))) - -(defun move-line-up (n) - "Move the current line up by N lines." - (interactive "p") - (move-line (if (null n) -1 (- n)))) - -(defun move-line-down (n) - "Move the current line down by N lines." - (interactive "p") - (move-line (if (null n) 1 n))) - -(message "Loading move-line...done") -(provide 'move-line) |
