.emacs-my
changeset 1382 be41e9ce7713
parent 1381 8e2779f23920
child 1383 f2b6754654a4
equal deleted inserted replaced
1381:8e2779f23920 1382:be41e9ce7713
   799   (global-set-key (kbd "C-=") 'er/expand-region))
   799   (global-set-key (kbd "C-=") 'er/expand-region))
   800 
   800 
   801 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
   801 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
   802 (message "highlighting current line")
   802 (message "highlighting current line")
   803 
   803 
       
   804 (require 'hl-line)
       
   805 
   804 (defun my-hl-line-range-function ()
   806 (defun my-hl-line-range-function ()
   805   (cons (line-end-position) (line-beginning-position 2)))
   807   (cons (line-end-position) (line-beginning-position 2)))
   806 (setq hl-line-range-function #'my-hl-line-range-function)
   808 (setq hl-line-range-function #'my-hl-line-range-function)
   807 
   809 
   808 (when window-system
   810 (set-face-attribute 'hl-line nil :inherit nil :background "light yellow")
   809   (require 'hl-line)
   811 (setq global-hl-line-sticky-flag t)
   810   (set-face-attribute 'hl-line nil :inherit nil :background "light yellow")
   812 (global-hl-line-mode 1)
   811   (setq global-hl-line-sticky-flag t)
       
   812   (global-hl-line-mode 1))
       
   813 
   813 
   814 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
   814 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
   815 (message "paren, braces")
   815 (message "paren, braces")
   816 
   816 
   817 (show-paren-mode 1) ; Parenthesis matching via highlighting.
   817 (show-paren-mode 1) ; Parenthesis matching via highlighting.