equal
deleted
inserted
replaced
886 |
886 |
887 (mapc (lambda (hook) (add-hook hook (lambda () (setq fill-column my-fill-column)) )) |
887 (mapc (lambda (hook) (add-hook hook (lambda () (setq fill-column my-fill-column)) )) |
888 my-devel-mode-hook-list) |
888 my-devel-mode-hook-list) |
889 |
889 |
890 ;; ---------------------------------------------------------------------- |
890 ;; ---------------------------------------------------------------------- |
891 ;; diff, patch. |
891 ;; diff, patch, ediff, emerge. |
892 |
892 |
893 (setq diff-switches "-u") |
893 (setq diff-switches "-u") |
|
894 |
|
895 (setq ediff-diff-options "") |
894 |
896 |
895 ;; ---------------------------------------------------------------------- |
897 ;; ---------------------------------------------------------------------- |
896 ;; indenting. |
898 ;; indenting. |
897 |
899 |
898 (setq standard-indent 4) |
900 (setq standard-indent 4) |
909 (setq i (* (ceiling line-width 4) 4)) |
911 (setq i (* (ceiling line-width 4) 4)) |
910 (setq tab-stop-list nil) |
912 (setq tab-stop-list nil) |
911 (while (>= i 0) |
913 (while (>= i 0) |
912 (setq tab-stop-list (cons i tab-stop-list)) |
914 (setq tab-stop-list (cons i tab-stop-list)) |
913 (setq i (- i 4)))) |
915 (setq i (- i 4)))) |
914 |
|
915 ;; ---------------------------------------------------------------------- |
|
916 ;; diff. |
|
917 |
|
918 (setq ediff-diff-options "") |
|
919 |
916 |
920 ;; ---------------------------------------------------------------------- |
917 ;; ---------------------------------------------------------------------- |
921 ;; *Compile* |
918 ;; *Compile* |
922 |
919 |
923 (setq compile-auto-highlight t |
920 (setq compile-auto-highlight t |