emacs; clipboard; insert; put;

gistfile1.el

;r;(url='https://groups.google.com/d/msg/gnu.emacs.help/I2_E_eJxrcc/iwpwMYTleY0J')
(defun clipboard-get () 
  "Visit clipboard-temp-file, delete all text in it, yank the X 
clipboard, delete trailing whitespace, go to beginning of 
buffer." 
  (interactive) 
  (delete-region (point-min) (point-max)) 
  (clipboard-yank) 
  (delete-trailing-whitespace) 
  (goto-char (point-min))) 

(defun clipboard-put () 
  "Copy the whole buffer to the X clipboard, kill it." 
  (interactive) 
  (clipboard-kill-ring-save (point-min) (point-max)) 
  (save-buffer) 
  ) 

(global-set-key "\C-xg" 'clipboard-get) 
(global-set-key "\C-xp" 'clipboard-put)