.emacs-my
changeset 1547 a4e4e54c257a
parent 1546 4939c41ef080
child 1548 f7b46111fd5a
equal deleted inserted replaced
1546:4939c41ef080 1547:a4e4e54c257a
   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)