equal
deleted
inserted
replaced
537 |
537 |
538 ;; 1/-1, when the mark is active, the region is highlighted. |
538 ;; 1/-1, when the mark is active, the region is highlighted. |
539 (transient-mark-mode 1) |
539 (transient-mark-mode 1) |
540 (delete-selection-mode 1) ; 1/-1 |
540 (delete-selection-mode 1) ; 1/-1 |
541 |
541 |
542 ;; Order of next items is important, (assignment must done before pc-selection-mode enabled). |
542 (when (<= emacs-major-version 23) |
543 (require 'pc-select) |
543 ;; Order of next items is important, (assignment must done before pc-selection-mode enabled). |
544 (setq pc-select-selection-keys-only t) ; To avoid some key bindings as F6, etc. |
544 (require 'pc-select) |
545 (setq pc-select-meta-moves-sexps t) |
545 (setq pc-select-selection-keys-only t) ; To avoid some key bindings as F6, etc. |
546 (cond |
546 (setq pc-select-meta-moves-sexps t) |
547 ((= emacs-major-version 21) (pc-selection-mode)) |
547 (cond |
548 ((>= emacs-major-version 22) (pc-selection-mode 1)) |
548 ((= emacs-major-version 21) (pc-selection-mode)) |
549 ) |
549 ((>= emacs-major-version 22) (pc-selection-mode 1)) |
|
550 ) |
|
551 ) |
550 |
552 |
551 (when (eq window-system 'x) |
553 (when (eq window-system 'x) |
552 (setq x-select-enable-clipboard t) ; for Emacs 21.2.1 and newer |
554 (setq x-select-enable-clipboard t) ; for Emacs 21.2.1 and newer |
553 ) |
555 ) |
554 |
556 |