 
 ;;参考 http://www.aiuxian.com/article/p-823990.html
 ;; Linux下emacs如何和X-Window系统共享剪贴板
-(setq x-select-enable-clipboard t)
-
-;; use xsel to copy/paste in emacs-nox
-(unless window-system
-  (when (getenv "DISPLAY")
-    (defun xsel-cut-function (text &optional push)
-      (with-temp-buffer
-        (insert text)
-        (call-process-region (point-min) (point-max) "xsel" nil 0 nil "--clipboard" "--input")))
-    (defun xsel-paste-function()
-      (let ((xsel-output (shell-command-to-string "xsel --clipboard --output")))
-        (unless (string= (car kill-ring) xsel-output)
-          xsel-output )))
-    (setq interprogram-cut-function 'xsel-cut-function)
-    (setq interprogram-paste-function 'xsel-paste-function)
-    ))
+;;(setq x-select-enable-clipboard t)
+;;
+;;;; use xsel to copy/paste in emacs-nox
+;;(unless window-system
+;;  (when (getenv "DISPLAY")
+;;	(defun xsel-cut-function (text &optional push)
+;;    (with-temp-buffer
+;;		(insert text)
+;;		(call-process-region (point-min) (point-max) "xsel" nil 0 nil "--clipboard" "--input")))
+;;	(defun xsel-paste-function()
+;;    (let ((xsel-output (shell-command-to-string "xsel --clipboard --output")))
+;;		(unless (string= (car kill-ring) xsel-output)
+;;        xsel-output )))
+;;	(setq interprogram-cut-function 'xsel-cut-function)
+;;	(setq interprogram-paste-function 'xsel-paste-function)
+;;	))
 
 
 (global-superword-mode t)

(add-to-list 'auto-mode-alist '("\\.erl?$" . erlang-mode))
(add-to-list 'auto-mode-alist '("\\.hrl?$" . erlang-mode))


(setq backup-directory-alist (quote (("." . "~/.backups"))))
(setq version-control t)

(setq linum-format "%3d ")
(add-hook 'prog-mode-hook 'linum-mode)

(setq-default indent-tabs-mode t)
(ido-mode 1)
(setq column-number-mode t)

