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