28 lines
989 B
EmacsLisp
28 lines
989 B
EmacsLisp
;;; zd-stop-delete-copy.el --- STOP COPYING TO MY CLIPBOARD -*- lexical-binding: t -*-
|
|
;;; Commentary:
|
|
;; The code in this file prevents text from being copied to the clipboard when
|
|
;; deleted using binds like C-backspace or C-k.
|
|
;;; Code:
|
|
(defun backward-delete-word (arg) ; C-backspace
|
|
"Delete characters backward until encountering the beginning of a word.
|
|
With argument ARG, do this that many times."
|
|
(interactive "p")
|
|
(delete-region (point) (progn (backward-word arg) (point))))
|
|
(global-set-key [C-backspace] 'backward-delete-word)
|
|
|
|
(defun delete-active-region (&optional killp)
|
|
(delete-region (point) (mark)) t)
|
|
|
|
(defun delete-line-no-kill ()
|
|
"Delete line starting from position, without copying."
|
|
(interactive)
|
|
(delete-region
|
|
(point)
|
|
(save-excursion (move-end-of-line 1) (point)))
|
|
(delete-char 1))
|
|
(global-set-key (kbd "C-k") 'delete-line-no-kill)
|
|
|
|
(setq mouse-drag-copy-region nil) ; STOP
|
|
|
|
(provide 'zd-stop-delete-copy)
|
|
;;; zd-stop-delete-copy.el ends here
|