.emacs-my
changeset 1386 e9b455ea0327
parent 1385 5f96b8d649ba
child 1387 3dec99863e5d
equal deleted inserted replaced
1385:5f96b8d649ba 1386:e9b455ea0327
   811 (setq global-hl-line-sticky-flag t)
   811 (setq global-hl-line-sticky-flag t)
   812 (global-hl-line-mode 1)
   812 (global-hl-line-mode 1)
   813 
   813 
   814 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
   814 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
   815 (message "paren, braces")
   815 (message "paren, braces")
       
   816 
       
   817 (require 'paren)
   816 
   818 
   817 (show-paren-mode 1) ; Parenthesis matching via highlighting.
   819 (show-paren-mode 1) ; Parenthesis matching via highlighting.
   818 (setq show-paren-style (quote parenthesis))
   820 (setq show-paren-style (quote parenthesis))
   819 
   821 
   820 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
   822 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  1020 
  1022 
  1021 ;; buffer-menu better then buffer-list, but ibuffer much better.
  1023 ;; buffer-menu better then buffer-list, but ibuffer much better.
  1022 (global-set-key "\C-x\C-b" 'ibuffer)
  1024 (global-set-key "\C-x\C-b" 'ibuffer)
  1023 (global-set-key [s-insert] 'ibuffer)
  1025 (global-set-key [s-insert] 'ibuffer)
  1024 
  1026 
       
  1027 (require 'icomplete)
       
  1028 
  1025 (icomplete-mode 1)
  1029 (icomplete-mode 1)
  1026 (setq icomplete-with-completion-tables t)
  1030 (setq icomplete-with-completion-tables t)
  1027 
  1031 
  1028 (defun my--large-file-p ()
  1032 (defun my--large-file-p ()
  1029   "If buffer too large and my cause performance issue."
  1033   "If buffer too large and my cause performance issue."
  1271 ;; (setq mark-holidays-in-calendar t)
  1275 ;; (setq mark-holidays-in-calendar t)
  1272 ;; (setq all-christian-calendar-holidays t)
  1276 ;; (setq all-christian-calendar-holidays t)
  1273 ;; (setq calendar-date-display-form (quote ((format "%04s-%02d-%02d" year (string-to-int month) (string-to-int day)))))
  1277 ;; (setq calendar-date-display-form (quote ((format "%04s-%02d-%02d" year (string-to-int month) (string-to-int day)))))
  1274 ;; (setq calendar-time-display-form (quote (24-hours ":" minutes (if time-zone " (") time-zone (if time-zone ")"))))
  1278 ;; (setq calendar-time-display-form (quote (24-hours ":" minutes (if time-zone " (") time-zone (if time-zone ")"))))
  1275 (setq calendar-week-start-day 1)
  1279 (setq calendar-week-start-day 1)
  1276 (setq european-calendar-style t)
  1280 (setq calendar-date-style 'iso)
  1277 
  1281 
  1278 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  1282 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  1279 (message "standard hooks")
  1283 (message "standard hooks")
  1280 
  1284 
  1281 (add-hook 'write-file-hooks 'time-stamp)
  1285 (add-hook 'write-file-hooks 'time-stamp)