.emacs-my
changeset 1585 3d8b6068a940
parent 1584 51e7636bcf35
child 1586 6aff838af671
equal deleted inserted replaced
1584:51e7636bcf35 1585:3d8b6068a940
   398 
   398 
   399 ;; Deprecated: `default-header-line-format', `default-mode-line-format'.
   399 ;; Deprecated: `default-header-line-format', `default-mode-line-format'.
   400 ;; For `mode-line-format' default value was used.
   400 ;; For `mode-line-format' default value was used.
   401 (setq-default header-line-format nil)
   401 (setq-default header-line-format nil)
   402 
   402 
   403 (setq default-left-fringe-width nil)
   403 (setq-default left-fringe-width nil)
   404 (setq default-right-fringe-width nil)
   404 (setq-default right-fringe-width nil)
   405 (setq default-left-margin-width nil)
   405 (setq-default left-margin-width nil)
   406 (setq default-right-margin-width nil)
   406 (setq-default right-margin-width nil)
   407 
   407 
   408 (if (< emacs-major-version 24)
   408 (if (< emacs-major-version 24)
   409     (setq default-truncate-lines nil)
   409     (setq default-truncate-lines nil)
   410   (setq truncate-lines nil)
   410   (setq-default truncate-lines nil))
   411   )
       
   412 (setq truncate-partial-width-windows nil)
   411 (setq truncate-partial-width-windows nil)
   413 
   412 
   414 (setq large-file-warning-threshold (* 12 1000 1000)) ; Greater then 10 MiB in order to open logs without warnings.
   413 (setq large-file-warning-threshold (* 12 1000 1000)) ; Greater then 10 MiB in order to open logs without warnings.
   415 
   414 
   416 ;; show column & line numbers in status bar
   415 ;; show column & line numbers in status bar
   665 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
   664 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
   666 (message "whitespaces")
   665 (message "whitespaces")
   667 
   666 
   668 (eval-when 'compile (require 'whitespace))
   667 (eval-when 'compile (require 'whitespace))
   669 
   668 
   670 (setq default-indicate-empty-lines t)
   669 (setq-default indicate-empty-lines t)
   671 (setq default-indicate-buffer-boundaries 'left)
   670 (setq-default indicate-buffer-boundaries 'left)
   672 
   671 
   673 ;; (setq-default show-trailing-whitespace t)
   672 ;; (setq-default show-trailing-whitespace t)
   674 
   673 
   675 (setq whitespace-style '(face trailing tabs))
   674 (setq whitespace-style '(face trailing tabs))
   676 (setq whitespace-global-modes (append my-devel-mode-list my-text-mode-list))
   675 (setq whitespace-global-modes (append my-devel-mode-list my-text-mode-list))