kill region or current line

[timmydo]

kill region or current line

[timmydo]

Is it just me or do things stop working after a couple of kill-regions? After I killed a region with a mark, I don't see a mark anymore but when I wipe it kills an unexpected region of text. I was also using undo so it's possible it got confused there.

[Sasanidas]

I think this may work:

(define-command kill-region-or-line () ()
  "Kill the text of region or the current line if no region."
  (if (buffer-mark (current-buffer))
        (kill-region (region-beginning)
                     (region-end))
        (and (line-start (current-point))
             (kill-whole-line))))

Keep in mind that this doesn't work with the vi-mode visual line, mostly because it doesn't uses the emacs-mode mark

[cxxxr]

I also wrote.

(defmethod execute :around (mode (command kill-region) argument)
  (if (buffer-mark-p (current-buffer))
      (call-next-method)
      (with-point ((start (current-point))
                   (end (current-point)))
        (line-start start)
        (line-offset end 1)
        (kill-region start end))))

[timmydo]

Thanks

@Sasanidas your implementation causes the cursor to move up after kiling the line. Also the killed line doesn't include the newline character.

@cxxxr I think your implementation has the same issue as mine where it wouldn't kill the last line in the buffer. I didn't know about execute :around. That's pretty neat.

I wrote another implementation but need to fine tune it because it doesn't work with the first line in the buffer.