From e1640aa343f3b7c050ad525b508cea2ee9a48ce4 Mon Sep 17 00:00:00 2001 From: Yuchen Pei Date: Mon, 3 Jul 2023 20:11:53 +1000 Subject: minor changes --- emacs/.emacs.d/lisp/my/my-editing.el | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) (limited to 'emacs/.emacs.d/lisp') diff --git a/emacs/.emacs.d/lisp/my/my-editing.el b/emacs/.emacs.d/lisp/my/my-editing.el index 975b9ae..1a3747e 100644 --- a/emacs/.emacs.d/lisp/my/my-editing.el +++ b/emacs/.emacs.d/lisp/my/my-editing.el @@ -330,11 +330,11 @@ Basically move the line up (forward-char col))) (defun my-kill-line (&optional arg) - "Calls `my-kill-forward' or `kill-line' in case of prefix arg." + "Calls `kill-line', or `my-kill-forward' in case of prefix arg." (interactive "P") (if arg - (kill-line) - (my-kill-forward))) + (my-kill-forward) + (kill-line))) (defun my-kill-forward () "Kill towards end of line, but not out of sexp." @@ -355,11 +355,11 @@ Basically move the line up (kill-region (point) end)))) (defun my-kill-line-backward (&optional arg) - "Calls `my-kill-backward' or `kill-line' with 0 in case of prefix arg." + "Calls `kill-line' with 0, or `my-kill-backward' in case of prefix arg." (interactive "P") (if arg - (kill-line 0) - (my-kill-backward))) + (my-kill-backward) + (kill-line 0))) (defun my-kill-backward () "Kill towards beginning of line, but not out of sexp." -- cgit v1.2.3