Created
August 15, 2018 06:48
-
-
Save c02y/670b5fccf8f298a581343b6d4e5c1b46 to your computer and use it in GitHub Desktop.
C-w/C-x w in emacs, edited: (delete-char 1) in the end
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(defun delete-line-or-region-or-buffer () | |
"Delete current line, or text selection. | |
When `universal-argument' is called first, delete whole buffer (respects `narrow-to-region')." | |
(interactive) | |
(if current-prefix-arg | |
(delete-region (point-min) (point-max)) | |
(progn (if (use-region-p) | |
(delete-region (region-beginning) (region-end)) | |
(progn | |
(if (current-line-empty-p) | |
(delete-blank-lines) | |
(delete-region (line-beginning-position) (line-end-position))) | |
(delete-char 1)))))) | |
(defun cut-line-or-region-or-buffer () | |
"Cut current line, or text selection. | |
When `universal-argument' is called first, cut whole buffer (respects `narrow-to-region'). | |
URL `http://ergoemacs.org/emacs/emacs_copy_cut_current_line.html' | |
Version 2015-06-10" | |
(interactive) | |
(if current-prefix-arg | |
(progn ; not using kill-region because we don't want to include previous kill | |
(kill-new (buffer-string)) | |
(delete-region (point-min) (point-max))) | |
(progn (if (use-region-p) | |
(kill-region (region-beginning) (region-end) t) | |
(progn | |
(if (current-line-empty-p) | |
(delete-blank-lines) | |
(kill-region (line-beginning-position) (line-end-position))) | |
(delete-char 1)))))) |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment