[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
kill-line
From: |
Emanuel Berg |
Subject: |
kill-line |
Date: |
Thu, 11 Nov 2021 11:54:24 +0100 |
User-agent: |
Gnus/5.13 (Gnus v5.13) Emacs/29.0.50 (gnu/linux) |
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
- kill-line,
Emanuel Berg <=