.emacs-my
changeset 234 b09807e8f792
parent 233 dbef8d59a7c1
child 238 9bbf7d3d45b3
equal deleted inserted replaced
233:dbef8d59a7c1 234:b09807e8f792
   999 ;; SQL
   999 ;; SQL
  1000 
  1000 
  1001 (setq sql-password "")
  1001 (setq sql-password "")
  1002 
  1002 
  1003 ;; ======================================================================
  1003 ;; ======================================================================
  1004 ;;
       
  1005 ;; Установка режима CUA - все как в Windows
       
  1006 ;; поддержка Ctr-c,v,x,d как в windows через пакет CUA
       
  1007 
       
  1008 ;; версия 21.3
       
  1009 
       
  1010 ;(require 'cua)
       
  1011 ;(CUA-mode t)
       
  1012 ;;установка режимов работы курсора через CUA
       
  1013 ;(setq CUA-mode-normal-cursor-color "black")
       
  1014 ;(setq CUA-mode-overwrite-cursor-color "red")
       
  1015 ;(setq CUA-mode-read-only-cursor-color "green")
       
  1016 ;(CUA-keypad-mode 'numeric t); доп.клавиатура - цифры
       
  1017 ;(CUA-keypad-mode 'prefix t); доп.клавиатура - префиксы регистров (М-2)
       
  1018 
       
  1019 ;; версия 21.3.50 и старше
       
  1020 
       
  1021 ;(require 'cua-base)
       
  1022 ;(cua-mode t)
       
  1023 ;;установка режимов работы курсора через CUA
       
  1024 ;(setq cua-normal-cursor-color "black")
       
  1025 ;(setq cua-overwrite-cursor-color "red")
       
  1026 ;(setq cua-read-only-cursor-color "green")
       
  1027 
       
  1028 ;; ======================================================================
       
  1029 ;; Backup
  1004 ;; Backup
  1030 
  1005 
  1031 (setq
  1006 (setq
  1032  backup-by-copying t                           ; don't clobber symlinks
  1007  backup-by-copying t                           ; don't clobber symlinks
  1033  backup-directory-alist '(("." . "~/.backup")) ; don't litter my fs tree
  1008  backup-directory-alist '(("." . "~/.backup")) ; don't litter my fs tree