kill-line

[Emanuel Berg]

What do you think of this?

;;; -*- lexical-binding: t -*-
;;;
;;; this file:
;;;   http://user.it.uu.se/~embe8573/emacs-init/kill.el
;;;   https://dataswamp.org/~incal/emacs-init/kill.el

(setq kill-do-not-save-duplicates t)
(setq kill-whole-line             t)
(setq yank-excluded-properties    t)

(defun kill-line-remove-blanks ()
  (interactive)
  (let ((blanks "[[:space:]]*$"))
    (if (looking-at blanks)
        (progn
          (delete-blank-lines)
          (when (looking-at blanks)
            (if (bobp)
                (kill-line)
              (delete-region (point) (min (1+ (point-at-eol)) (point-max))) )))
      (kill-line) )))

(provide 'kill)

-- 
underground experts united
https://dataswamp.org/~incal