init-x.el

;;; init-x.el --- Tweaks for X sessions.

(when (eq (window-system) 'x)
  ;; Prevent kills from writing to clipboard (slow over remote X sessions).
  (setq select-enable-clipboard nil)
  (setq select-enable-primary nil)

  ;; Define new cut/copy/paste functions for when clipboard interaction is
  ;; actually desired.
  (defun x-cut ()
    (interactive)
    (let ((select-enable-clipboard t))
      (gui-set-selection 'CLIPBOARD
                         (buffer-substring (region-beginning) (region-end)))
      (kill-region (region-beginning)
                   (region-end))))
  (defun x-copy ()
    (interactive)
    (let ((select-enable-clipboard t))
      (gui-set-selection 'CLIPBOARD
                         (buffer-substring (region-beginning) (region-end)))
      (kill-ring-save (region-beginning)
                      (region-end))))
  (defun x-paste ()
    (interactive)
    (let ((clipboard-content (gui-get-selection 'CLIPBOARD)))
      (when clipboard-content
        (insert clipboard-content))))

  ;; Bind cut/copy/paste to some useful keyboard shortcuts.
  (global-set-key [S-delete] 'x-cut)
  (global-set-key [S-backspace] 'x-cut)
  (global-set-key [S-kp-delete] 'x-cut)
  (global-set-key [C-insert] 'x-copy)
  (global-set-key [s-backspace] 'x-copy)
  (global-set-key [C-H-help] 'x-copy)
  (global-set-key [S-insert] 'x-paste)
  (global-set-key [H-S-help] 'x-paste)
  (global-set-key [s-mouse-2] 'x-paste)

  ;; Fix old issue with bitmap font rendering.
  (setq x-use-underline-position-properties nil))