.emacs-my
changeset 1756 2495ee9cf84c
parent 1755 e99278df97cb
child 1757 bda24877724a
equal deleted inserted replaced
1755:e99278df97cb 1756:2495ee9cf84c
   978   (pc-selection-mode 1) )
   978   (pc-selection-mode 1) )
   979 
   979 
   980 (when window-system
   980 (when window-system
   981   (set-face-attribute 'region nil :background "light blue"))
   981   (set-face-attribute 'region nil :background "light blue"))
   982 
   982 
   983 (when (eq window-system 'x)
   983 (setq select-enable-clipboard t)
   984   (setq x-select-enable-clipboard t))
   984 (setq select-enable-primary t)
       
   985 (setq save-interprogram-paste-before-kill nil)
   985 
   986 
   986 (when (fboundp 'er/expand-region)
   987 (when (fboundp 'er/expand-region)
   987   (global-set-key (kbd "s-w") 'er/expand-region))
   988   (global-set-key (kbd "s-w") 'er/expand-region))
   988 
   989 
   989 (defun my-mark-line ()
   990 (defun my-mark-line ()