.emacs-my
changeset 327 547a46ad8b19
parent 326 ded53e19d23a
parent 325 9b2144595e57
child 328 c770f75a351f
child 332 fe7a197bebe4
equal deleted inserted replaced
326:ded53e19d23a 327:547a46ad8b19
   521 ;(autoload 'LaTeX-preview-setup "preview")
   521 ;(autoload 'LaTeX-preview-setup "preview")
   522 
   522 
   523 ;; ======================================================================
   523 ;; ======================================================================
   524 ;; Info.
   524 ;; Info.
   525 
   525 
       
   526 ;; Because of Debian policy documentation covered by FDL license with invariant sections not allowed in packet
       
   527 ;; repository tree. So it must be installed manually. My usual configuration is install user local software
       
   528 ;; into ~/usr DISTDIR.
       
   529 (unless (getenv "INFOPATH")
       
   530   (setenv "INFOPATH" "~/usr/share/info:"))
       
   531 
   526 ;; ======================================================================
   532 ;; ======================================================================
   527 ;; man, woman.
   533 ;; man, woman.
   528 
   534 
   529 (setq woman-use-own-frame nil)
   535 (setq woman-use-own-frame nil)
   530 (setq woman-fill-frame t)
   536 (setq woman-fill-frame t)
   637 (defface my-tab-face
   643 (defface my-tab-face
   638   '((t :background "gray"))
   644   '((t :background "gray"))
   639   "Face for showing TABs."
   645   "Face for showing TABs."
   640   :group 'basic-faces)
   646   :group 'basic-faces)
   641 
   647 
   642 (defface my-todo-face
       
   643   '((t :foreground "red" :weight bold))
       
   644   "Font for showing TODO words."
       
   645   :group 'basic-faces)
       
   646 
       
   647 (defface my-conflict-face
   648 (defface my-conflict-face
   648   '((t :background "pink" :foreground "red" :weight bold))
   649   '((t :background "pink" :foreground "red" :weight bold))
   649   "Font for showing conflicts."
   650   "Font for showing conflicts."
   650   :group 'basic-faces)
   651   :group 'basic-faces)
   651 
   652 
   657 (add-hook 'font-lock-mode-hook (function (lambda ()
   658 (add-hook 'font-lock-mode-hook (function (lambda ()
   658   (when (member major-mode my-devel-mode-list)
   659   (when (member major-mode my-devel-mode-list)
   659     (font-lock-add-keywords nil
   660     (font-lock-add-keywords nil
   660      '(
   661      '(
   661        ("\t+" 0 'my-tab-face t)
   662        ("\t+" 0 'my-tab-face t)
   662        ("\\<\\(FIXME:?\\|XXX:?\\|TODO:?\\)\\>" 1 'my-todo-face t)
   663        ("\\<\\(FIXME:?\\|XXX:?\\|TODO:?\\)\\>" 1 'font-lock-warning-face t)
   663        ("\\(=\\{7,\\}\\|<\\{7,\\}\\|>\\{7,\\}\\)" 1 'my-conflict-face t)
   664        ("\\(=\\{7,\\}\\|<\\{7,\\}\\|>\\{7,\\}\\)" 1 'my-conflict-face t)
   664        ))))))
   665        ))))))
   665 
   666 
   666 ;; (dolist (mode '(c-mode
   667 ;; (dolist (mode '(c-mode
   667 ;;                 java-mode
   668 ;;                 java-mode
   732 ;; (setq-default vc-svn-register-switches "--encoding cp1251")
   733 ;; (setq-default vc-svn-register-switches "--encoding cp1251")
   733 (setq-default vc-svn-register-switches nil)
   734 (setq-default vc-svn-register-switches nil)
   734 
   735 
   735 (if window-system
   736 (if window-system
   736     (progn
   737     (progn
   737      (custom-set-variables
   738       (setq
   738       '(vc-annotate-very-old-color "#0b5b20")
   739        vc-annotate-very-old-color "#0b5b20"
   739       '(vc-annotate-background "white")
   740        vc-annotate-background "white"
   740       '(vc-annotate-color-map
   741        vc-annotate-color-map
   741         (quote (
   742        '(
   742                 (20 .  "#EE0000")
   743          (20 .  "#EE0000")
   743                 (40 .  "#E0800D")
   744          (40 .  "#E0800D")
   744                 (60 .  "#D3001A")
   745          (60 .  "#D3001A")
   745                 (80 .  "#C68027")
   746          (80 .  "#C68027")
   746                 (100 . "#B90034")
   747          (100 . "#B90034")
   747                 (120 . "#AB8042")
   748          (120 . "#AB8042")
   748                 (140 . "#9E004F")
   749          (140 . "#9E004F")
   749                 (160 . "#91805C")
   750          (160 . "#91805C")
   750                 (180 . "#840069")
   751          (180 . "#840069")
   751                 (200 . "#778077")
   752          (200 . "#778077")
   752                 (220 . "#690084")
   753          (220 . "#690084")
   753                 (240 . "#5C8091")
   754          (240 . "#5C8091")
   754                 (260 . "#4F009E")
   755          (260 . "#4F009E")
   755                 (280 . "#4280AB")
   756          (280 . "#4280AB")
   756                 (300 . "#3400B9")
   757          (300 . "#3400B9")
   757                 (320 . "#2780C6")
   758          (320 . "#2780C6")
   758                 (340 . "#1A00D3")
   759          (340 . "#1A00D3")
   759                 (360 . "#0D80E0"))))
   760          (360 . "#0D80E0")))
   760       )
   761       )
   761      )
       
   762   )
   762   )
   763 
   763 
   764 ;; ----------------------------------------------------------------------
   764 ;; ----------------------------------------------------------------------
   765 ;; psvn.
   765 ;; psvn.
   766 
   766