.emacs-my
changeset 1277 ae5c2b9ab4bd
parent 1276 04e9ed4d22a1
child 1278 8e47e801be9d
equal deleted inserted replaced
1276:04e9ed4d22a1 1277:ae5c2b9ab4bd
   758   (global-set-key (kbd "C-=") 'er/expand-region))
   758   (global-set-key (kbd "C-=") 'er/expand-region))
   759 
   759 
   760 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
   760 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
   761 (message "highlighting current line")
   761 (message "highlighting current line")
   762 
   762 
       
   763 (defun my-hl-line-range-function ()
       
   764   (cons (line-end-position) (line-beginning-position 2)))
       
   765 (setq hl-line-range-function #'my-hl-line-range-function)
       
   766 
   763 (when window-system
   767 (when window-system
   764   (custom-set-faces '(hl-line ((t (:inherit highlight :background "light yellow")))))
   768   (require 'hl-line)
   765   (global-hl-line-mode 1)
   769   (set-face-attribute 'hl-line nil :inherit nil :background "light yellow")
   766   )
   770   (setq global-hl-line-sticky-flag t)
       
   771   (global-hl-line-mode 1))
   767 
   772 
   768 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
   773 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
   769 (message "paren, braces")
   774 (message "paren, braces")
   770 
   775 
   771 (show-paren-mode 1) ; Parenthesis matching via highlighting.
   776 (show-paren-mode 1) ; Parenthesis matching via highlighting.