equal
deleted
inserted
replaced
890 |
890 |
891 (when (eq window-system 'x) |
891 (when (eq window-system 'x) |
892 (setq x-select-enable-clipboard t)) |
892 (setq x-select-enable-clipboard t)) |
893 |
893 |
894 (when (fboundp 'er/expand-region) |
894 (when (fboundp 'er/expand-region) |
895 (global-set-key (kbd "C-=") 'er/expand-region)) |
895 (global-set-key (kbd "s-=") 'er/expand-region)) |
896 |
896 |
897 (setq-default er/try-expand-list '(er/mark-word er/mark-symbol er/mark-inside-quotes er/mark-outside-quotes er/mark-inside-pairs er/mark-outside-pairs)) |
897 (defun my-mark-line () |
|
898 "Mark current line." |
|
899 (forward-line 0) |
|
900 (set-mark (point)) |
|
901 (forward-line 1) |
|
902 (exchange-point-and-mark)) |
|
903 |
|
904 (setq-default er/try-expand-list '(er/mark-word er/mark-symbol er/mark-inside-quotes er/mark-outside-quotes er/mark-inside-pairs er/mark-outside-pairs my-mark-line)) |
|
905 |
|
906 (my--eval-after-load text-mode-expansions |
|
907 (add-to-list 'expand-region-exclude-text-mode-expansions 'org-mode) |
|
908 (add-to-list 'expand-region-exclude-text-mode-expansions 'rst-mode)) |
898 |
909 |
899 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
910 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
900 (message "highlighting current line") |
911 (message "highlighting current line") |
901 |
912 |
902 (require 'hl-line) |
913 (require 'hl-line) |