;;; 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