equal
deleted
inserted
replaced
456 |
456 |
457 ;; ====================================================================== |
457 ;; ====================================================================== |
458 ;; *auto-fill* |
458 ;; *auto-fill* |
459 |
459 |
460 (setq-default fill-column 78) |
460 (setq-default fill-column 78) |
|
461 |
|
462 (defvar my-fill-column 100 |
|
463 "I use greater value then 78 for comment in prog source.") |
461 |
464 |
462 ;; By default used American convention - sentence and with two spaces. Change |
465 ;; By default used American convention - sentence and with two spaces. Change |
463 ;; it to one space. Has affect on filling and M-a, M-e commands. |
466 ;; it to one space. Has affect on filling and M-a, M-e commands. |
464 (setq sentence-end-double-space nil) |
467 (setq sentence-end-double-space nil) |
465 |
468 |
800 |
803 |
801 (add-to-list 'auto-mode-alist '("\\.cu$" . c-mode)) |
804 (add-to-list 'auto-mode-alist '("\\.cu$" . c-mode)) |
802 |
805 |
803 (setq-default comment-style (quote indent)) |
806 (setq-default comment-style (quote indent)) |
804 (setq-default comment-column 44) |
807 (setq-default comment-column 44) |
805 (setq-default comment-fill-column 100) |
808 (setq-default comment-fill-column my-fill-column) |
806 |
809 |
807 (mapc (lambda (mode) |
810 (mapc (lambda (mode) |
808 (add-hook mode |
811 (add-hook mode |
809 (lambda () |
812 (lambda () |
810 (setq fill-column 110) ) |
813 (setq fill-column my-fill-column) ) |
811 )) |
814 )) |
812 '(c-mode-hook lisp-mode-hook)) |
815 '(c-mode-hook lisp-mode-hook)) |
813 |
816 |
814 ;; ---------------------------------------------------------------------- |
817 ;; ---------------------------------------------------------------------- |
815 ;; diff, patch. |
818 ;; diff, patch. |